FabDev

Hello, I'm developing a Delphi FireMonkey (FMX) application that works perfectly when run locally on Windows. However, when the application is deployed through RemoteApp (RDP seamless mode) — for example, on Windows Server 2019 — the application does not appear in the taskbar. - Here's what I’ve tried so far (with no success): Setting BorderStyle := TFmxFormBorderStyle.Single Manually setting the form's Visible := True Forcing the form to be shown using ShowWindow(...) Using Windows API to set WS_EX_APPWINDOW and remove WS_EX_TOOLWINDOW Trying to delay taskbar hacks via TThread.Synchronize(...) Attempting similar tricks in Loaded, OnCreate, and OnShow I also tried calling this helper function in FormCreate, but it had no visible effect: uses FMX.Platform.Win, Winapi.Windows; procedure ForceTaskbarPresence(Form: TForm); var Wnd: HWND; begin if TPlatformServices.Current.SupportsPlatformService(IFMXWindowService) then begin Wnd := WindowHandleToPlatform(Form.Handle).Wnd; SetWindowLong(Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW); ShowWindow(Wnd, SW_SHOW); end; end; Tested in both Delphi 11.X and 12.3. In contrast, a VCL application behaves correctly in the same RemoteApp environment, especially when setting Application.MainFormOnTaskbar := True. My goal: make the main FMX window appear in the taskbar under RemoteApp, so the user can interact with it as a normal application window. My question: Has anyone successfully made a pure FMX application appear in the Windows taskbar under RemoteApp? If not, is the only reliable workaround to embed FMX inside a VCL host form? Thanks in advance,

Hello, Thank you for your help. In the About box, the following information is displayed: Embarcadero® RAD Studio 12 - Version 29.0.53571.9782 Installed update: Delphi 12 and C++ Builder 12 Update 2 RAD Studio 12.2 Patch 1 => I always apply all the GetIt Update... So I uninstalled this version Get IT 12.2 Patch 1.0, then re-downloaded RAD Studio from my.embarcadero.com and installed: RAD Studio 12.1 Patch 1 ➜ After this installation, Delphi no longer starts and displays the following error: "The procedure entry point @Idethme@Utils" This occurs at startup, before any third-party components are loaded. Then, when I try to apply RAD Studio 12.1 Patch 2, I get the following error: "RAD Studio version does not match the target version." My question: Does this mean that my Delphi installation is in an inconsistent state, somewhere between 12.1 Patch 1 (which may have failed ?) and 12.2.2? Two possible solutions: Upgrade to RAD Studio 12.3 and reinstall all my third-party components. Perform a clean installation of RAD Studio 12.3, without keeping the old configuration. What would be the best approach?

For Devexpress or TrichView I have this error : "The procedure entry point deth Utils@TIDEDialogRegistryServices@$bcctr$qqrv could not be found in the dynamic link library: C:\Comp\DevExpress\Library\RS29\dcldxCoreRS29.bpl" For TMS or Fast report it is : "entry point @system@Threading@TParallelArray@$bcctr$qqrv" For The-Drag-and-Drop-Component-Suite-for-Delphi : "The procedure entry point @Idethme@Utils@TIDEDialogRegistryServices@$bcctr$qqrv could not be found in the dynamic link library: C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclDragDropDR12.bpl" So upgrade 12.2 to 12.3 is problematic with existing Third-party components ? There not such a problem with 12.1 -> 12.2 update or 11.2 -> 11.3 update ...

Yes all updates are installed in Delphi 12.2 (Getit doesn't find anymore update).

Hello, I'm currently upgrading from Delphi 12.2 Enterprise to 12.3 Enterprise (32 bits IDE) in a Windows 10 64 bits VM, with multiple third-party components installed (TMS, FastReport, DevExpress, etc.). Frameworks MacOS/IOS and Android 64 installed and work fine. Previous migration from Delphi 12.1 to 12.2 work without any problem. I encountered two issues during the process: At the beginning of the installation, after the automatic GETIT uninstallation, I received the following error: "No Delphi or C++ Builder installed." Despite this message, the installation proceeded. After completing the installation, when Delphi's splash screen loads third-party components, I get multiple error messages (for most of third-party components) similar to: "The procedure entry point @system@Threading@TParallelArray@$bcctr$qqrv was not found in the dynamic link library C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\SVGIconImageListRestClient290.bpl." This procedure entry point seems related to rtl290.bpl/rtl290.dcp, correct? I've resolved issue #1 by manually uninstalling GETIT packages. However, issue #2 persists. I suspect there might be corrupted or incorrect paths somewhere, so I've tried cleaning all Delphi paths (Win32, Win64, Android, etc.) using the "delete incorrect paths" option and restoring from previous VM snapshots. Unfortunately, this didn't resolve the issue, and occasionally, I also receive an error: "Failed to get data for 'path36'" Any insights or suggestions to solve these problems would be greatly appreciated. I'd prefer to resolve this before doing a completely clean installation (without existing Delphi registry entries). IDE 64 bits work without any problem, certainly because no third-party components ? Thank you!

One again Dave, Thank you, it's work ! However, it didn't work the first time; After done it, I had to open a project in Xcode and manually select a profile... Thank you Alejandro too. But I have an Apple ID linked to Xcode.

Hello, I have a problem since I have my migrated MacMini to MacOS Sequoia (15.0). There is no Provisioning profile in Delphi project (In project/Option/Provisioning). On the Mac PAServer terminal I see the command : command_line: "/usr/bin/security" find-identity -v But nothing append. And Delphi say "No provisioning profil has been found in the build configuration and device selected...". I have no problem using XCode 15 in the same MacMini. In Xcode / Settings / Accounts all my Certificates seems to be here... All worked fine in MacOS 14 PS : This doesn't help :

https://gist.github.com/bananita/8039021 This exists too : https://github.com/deqline/IPABundler

Oops, yes, .IPA (not API) the end of the week is tough! 😉 Some says that : Move the .app folder into a new folder named "Payload," then compress it into a zip file and change the file extension from .zip to .ipa. I tried it without success. Anyway, thanks Dave for your confirmation.

Hello, I'am trying to upload an application to Apple Store in TestFlight Problem on my Mac in PAServer\Scratch-dir my application is an .app (extension). And Transporter (Apple application) need an .api application. How to convert an .app to .api ? Or how to obtain an .api with Delphi ? Or does .API is only avalaible for "Application Store" and "Ad Hoc" Configuration ? I'am using Delphi 12.1

I did not know this CanUndoSelText method, but It's exactly that I need. Thank you very much !

Hello, On a basic TMemo (or any TEdit) Undo work by default when the end user modify something. Problem if you change something by code like a simple : Memo1.Seltext:='Bob'; After this Undo (CTRL + Z ) will not work for the user. If he want to cancel my "Bob". So how to force a modification by code to be in Undo stack ?

Hello, I have exactly the same problem here after Delphi 12 installation. This directory has been created : C:\Users\Public\Documents\Embarcadero\Studio\23.0\CatalogRepository\AndroidSDK-2525-23.0.50491.5718 But a lot of files are missing in this directory (platforms, build-tools and platforms-tools subdirectories for example). Maybe because of an existing Delphi 11.3 + Android SDK (AndroidSDK-2525-22.0.47991.2819) always installed ?

Hello, I have no time to test Delphi 12 for the moment. Can somebody say which version of Indy is in Delphi 12 ?

Hello, What is the better code to free a shared resource between thread (lStrings.free) : procedure TForm16.ShowComputedDetail; begin TTask.run( procedure var lTstrings:Tstrings; begin lTstrings:=Tstringlist.create; try ComputeDetail(lTstrings); TThread.Queue(nil, procedure begin MyTMemo.BeginUpdate; MyTMemo.lines.Assign(lTstrings); MyTMemo.EndUpdate; lTstrings.Free; end); finally end; end); end; or procedure TForm16.ShowComputedDetail; begin TTask.run( procedure var lTstrings:Tstrings; begin lTstrings:=Tstringlist.create; try ComputeDetail(lTstrings); TThread.Queue(nil, procedure begin MyTMemo.BeginUpdate; MyTMemo.lines.Assign(lTstrings); MyTMemo.EndUpdate; end); finally lTstrings.Free; end; end); end;