firemonkey

How to send multiple attachments using Intent

喜你入骨 提交于 2019-12-23 03:49:09
问题 I've found this code to send multiple attachments using Gmail Android App: public static void email(Context context, String emailTo, String emailCC, String subject, String emailText, List<String> filePaths) { //need to "send multiple" to get more than one attachment final Intent emailIntent = new Intent(android.content.Intent.ACTION_SEND_MULTIPLE); emailIntent.setType("text/plain"); emailIntent.putExtra(android.content.Intent.EXTRA_EMAIL, new String[]{emailTo}); emailIntent.putExtra(android

“Save to Files” on iOS (FMX)

可紊 提交于 2019-12-23 03:14:35
问题 I want to save email attachments to my app’s doc folder (C++ FMX app for iOS & Android). How do I register my app as a target? The screen shots below show that an app on my phone named Termius is a target to save files to. I want my app to be a target like this. Just need user to get files into my app folder. relayman 回答1: Based on Sherlock70 tutoring i was able to easily add my app's Documents folder as a "save to files" target. I selected iOSDevice64 as my target platform and then went to

Trouble synchronizing generic TList and TListBox

风流意气都作罢 提交于 2019-12-23 01:58:48
问题 I have trouble keeping a TListbox in sync with a TList. Each time an item is added to a generic TList, OnNotify is called and the callback calls just one procedure: create_gradients . Its code is below: procedure TColor_Dialog.create_gradients; var Editor: TGradient_Editor; eGradient: Int32; y: single; s: string; begin List_Names.Clear; List_Gradients.Clear; for eGradient := 0 to FColor_Editor.nGradients - 1 do begin List_Names.Items.Add (FColor_Editor [eGradient].Check_Rainbow.Text); end; //

Delphi FireMonkey - Setting Wallpaper on Win 10 does not work when deployed as APPX

回眸只為那壹抹淺笑 提交于 2019-12-22 18:43:13
问题 I have created a simple application using Delphi 10.2 Tokyo (using FireMonkey) that displays images and allows you to set the desktop wallpaper for a selected image. The main code that sets the desktop wallpaper is: class procedure TUtilityWin.SetWallpaper(AFileName: String); begin SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(AFileName), (SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)); end; While this works great when the application runs on the desktop (as a standalone install), it

Delphi FireMonkey - Setting Wallpaper on Win 10 does not work when deployed as APPX

时间秒杀一切 提交于 2019-12-22 18:43:12
问题 I have created a simple application using Delphi 10.2 Tokyo (using FireMonkey) that displays images and allows you to set the desktop wallpaper for a selected image. The main code that sets the desktop wallpaper is: class procedure TUtilityWin.SetWallpaper(AFileName: String); begin SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(AFileName), (SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)); end; While this works great when the application runs on the desktop (as a standalone install), it

Livebinding JSON objects and arrays

回眸只為那壹抹淺笑 提交于 2019-12-22 18:18:25
问题 Good evening all. I'm currently trying to get to grips with livebindings in Delphi as I'd like to refresh one of my current projects (complete rework from the base for the purpose of pushing to other platforms, optimizing performance and minimizing the code). I'm working with a web API which returns JSON data. The returned JSON format for one example call would look like this; { "response": { "ips": [ { "ip": "111.222.333.444", "classification": "regular", "hits": 134, "latitude": 0.0000,

Clear Firemonkey TListView search text

无人久伴 提交于 2019-12-22 12:40:49
问题 ListView1.items.filter := nil; I understand that the above will clear the filter of a listview however if the Search is visible for the listview and something is typed into it, is there anyway of clearing the text from it? 回答1: for I := 0 to ListView1.Controls.Count-1 do if ListView1.Controls[I] is TSearchBox then begin TSearchBox(ListView1.Controls[I]).Text := ''; end; (based on DocWiki!) 回答2: Thanks @Dsm, by answer. I will just suggest a trick to get TSearchBox just one time and store in a

FireMonkey XE5 - Livebinding - TGrid - Cell text aligment

天大地大妈咪最大 提交于 2019-12-22 12:29:28
问题 I have a Firemonkey Desktop Application for Windows. I have a TGrid which I populate through a visual livebinding TBindSourceDB component. I want some columns to have text aligned to the right, as they are numerical values. I have tried through: onPainting event getting the TTextCell control by number of ColumnxRow typecasting it and setting TextAlignt property to the right None of those measures align the text to the right. I have tried to set it at runtime, unsuccessfully though, getting

Mobile Application Error when loading from stream

做~自己de王妃 提交于 2019-12-22 12:08:12
问题 I'm doing my first application for mobile in delphi and I have a problem and can not fix it. I have a procedure running in which I load a csv file from the resource. When I throw this procedure, on a mobile device (I could only test it on Android) I get this error: 'No mapping for the Unicode character exists in the Target multi-byte code page', no error in 32-bit Windows. Here is the code, Rad Studio XE6: procedure TContactos.LoadFromResource; var FicheroEntero, Linea: TStringList; rs:

FMX form in a DLL (firemonkey/delphi)

被刻印的时光 ゝ 提交于 2019-12-22 11:05:58
问题 Im trying to make a FMX form in a dll, after about 17 hours (of trying diffrent approches) i got it working, except i get a exception trying to unload the dll . I have no idea how to make it work, maybe someone could help me and point out what im doing wrong? side note: i cant have a FMX form in my VCL application becouse of the AA drawing, i just need it on my text while drawing on a canvas and while having a FMX form on a VCL application, i dont get that cleartype on text :( im trying to