firemonkey

问题 I am still trying to play video on firemonkey using directx api with libvlc! I have played video using by different way already but I want to play video on directx surface. please looked this link first : http://forum.videolan.org/viewtopic.php?f=32&t=82618 someone write a delphi code about how to use libvlc on directx and that code working well, but this code is pure directx code. I want to integrate this code to firemonkey! How can I do it with firemonkey library(I know for windows

问题 On windows, if align is set to 4 bytes (this is by default in project option) then reading/writing to an integer is atomic. Is it the same on ios/android ? if not atomic, can i have an exception or a misc error (other than obtening the wrong value) if 2 threads read and write at the same time the same integer value ? 来源： https://stackoverflow.com/questions/39987850/is-reading-writing-an-integer-4-bytes-atomic-on-ios-android-like-on-win32-win6

问题 I've created a simple FireMonkey screenshot capture that works fine on Android and Windows..: procedure Capture; var B : TBitmap; begin try B := Layout1.MakeScreenshot; try B.SaveToFile( ..somefilepath.png ); finally B.Free; end; except on E:Exception do ShowMessage( E.Message ); end; end; end; when I moved it to a thread as below, it works fine in Windows but in Android I get the exception 'bitmap too big' from the call to MakeScreenshot. Are there additional steps needed to employ

问题 In this scenario, I created a default button on my FireMonkey HD application via RADStudio XE2. I then created a custom style for the button, named "Style1". This style is very much similar to the default button style, however, it has a TImage control next to the TText control. In simple words, a button with an image next to the text. Now, I'll apply an image to the TImage control for the button? Because if I apply an image to the TImage control VIA the style designer, the other controls who

问题 I am working on a Delphi XE5 Firemonkey Mobil app. I use FireDac for connection. Just trying to do a simple query insert into sQlite database and update the listview with the inserted info. procedure TTabbedwithNavigationForm.Button4Click(Sender: TObject); begin DataModule1.qSelectCustomers.SQL.Text := 'insert into Invoice (Name) values(:newName)'; DataModule1.qSelectCustomers.ParamByName('newName').AsString := 'test'; DataModule1.qSelectCustomers.ExecSQL; BindSourceDB1.DataSet.Refresh; ///

问题 given a Delphi 10.1 Berlin update 2 Firemonkey Android app and a TEdit. I like to detect when the user presses Enter while being in the TEdit. I implemented an OnTyping event already where I loop through all the chars of the .Text property. If vkLineFeed or vkReturn is detected it is Enter (I added the check for vkLineFeed by finding out that certain devices do send that one instead of vkReturn). ReturnKeyType is default. When being set to done or go it looks like I don't even get the Enter

问题 I'm working on a Firemonkey TListView to display search results. This list loads 25 items at a time, but could potentially show hundreds of items. I need to detect when the user has scrolled down to the bottom, so that I can fetch the next 25 items to show in the list. However, I cannot find the appropriate properties to determine this. There's the OnPullRefresh event, but that applies to scrolling to the top of the list and pulling it down. What I need is similar, but for the bottom of the

问题 I'm working on a Firemonkey TListView to display search results. This list loads 25 items at a time, but could potentially show hundreds of items. I need to detect when the user has scrolled down to the bottom, so that I can fetch the next 25 items to show in the list. However, I cannot find the appropriate properties to determine this. There's the OnPullRefresh event, but that applies to scrolling to the top of the list and pulling it down. What I need is similar, but for the bottom of the

问题 I am building an app in FireMonkey under Rad Studio XE8. I would like to have custom intervals on my notifications (FMX.Notification). However notification repeats can only be set to certain intervals. TRepeatInterval = (None, Second, Minute, Hour, Day, Week, Weekday, Month, Quarter, Year, Era); If i whant to fire each 15 minutes, would I really need to create four notification (at 0 , 15, 30, 45 minutes) and repeat them every hour with TRepeatInterval(4)? 回答1: The documentation for FMX

问题 I have this (now working) code based on bits I picked up various places: procedure TFormMain.imgMapsGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); var LObj: IControl; LImage: TImage; W: Single; H: Single; begin LImage := nil; LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location)); if (LObj is TImage) and (LObj.Visible) then begin LImage := TImage(LObj.GetObject); if (LImage <> imgMaps) then LImage := nil ; end ; if LImage = nil then Exit ; if