delphi-10-seattle

Why are breakpoints green and not working?

由 穿精又带淫゛_ 提交于 2019-12-10 14:46:44
问题 I am trying to run a debug on my code, but somehow it stopped working. Here is a snippet and the green lines it is showing: I have tried to right click on my project and clean it. Tried to delete temporary files, like .stat and .dcu . Switching back and forth to Release and Debug modes, rebuilding, recompiling them. The Debugging options under Project -> Options -> Delphi compiling are all set to true. Checked if there are no duplicate files in the search paths . Other projects are working

Delphi Seattle has very big font as default

由 若如初见. 提交于 2019-12-10 14:32:27
问题 Delphi Seattle has very big font as default , and I dont like it. tried to change it as I did with XE8 with a script Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\ModernTheme] "FontName"="Segoe UI" "FontSize"=dword:0000000a "MainToolBarColor"="clGradientActiveCaption" But it did not work , how is this handled in Delphi Seattle ? 回答1: The documentation has not changed between the two versions. Creating a Registry Script File Create a new text document

GCM in Delphi Seattle without BAAS

由 久未见 提交于 2019-12-10 11:26:53
问题 I am trying to implement GCM without BAAS in GCM. I have looked at previous examples using the bridge and from my research the following should work without relying on the old TGCMReceiver component. But the following line always returns nil, I run this after the application starts up on a button click: APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM); APushService is always nil. My AndroidManifest looks as follows: <?xml version="1.0" encoding=

Delphi 10 Seattle - Vista Dialogs bug with VCL Styles

由 这一生的挚爱 提交于 2019-12-10 11:26:11
问题 I've ran into a problem with "Vista Dialogs" in "Delphi 10 Seattle" yesterday. It seems to not work well with some VCL Styles. This bug occured while using "Windows 10 Dark" as default style in my app. So my immediate thought was that Vista Dialogs does not work with Custom VCL Styles, but when using "Windows" as a default style and using Windows 10 as OS the dialog works fine. I've uploaded two pictures, one with the style applied showing the visual bug and one without it, working just fine.

Delphi delete FireMonkey element from Form on Android

由 生来就可爱ヽ(ⅴ＜●) 提交于 2019-12-09 21:53:28
问题 I created an element on my Form with this code in the OnShow event: procedure TForm4.FormShow(Sender: TObject); var VertScrollLink:TVertScrollBox; begin VertScrollLink := TVertScrollBox.Create(form4); VertScrollLink.Align := TAlignLayout.Client; VertScrollLink.Parent := form4; end; On some action, I need to delete the layout dynamically: for LIndex := form4.ComponentCount-1 downto 0 do begin if (form4.Components[LIndex].ToString='TVertScrollBox') then begin //showmessage(form4.Components

Error in JCL installation into Delphi 10 Seattle

由 北城以北 提交于 2019-12-08 21:27:48
问题 I am trying to install JCL/JVCL into Delphi-10-Seattle I got the following Error: Using Embarcadero RAD Studio 10 Seattle Embarcadero Delphi for Win32 compiler version 30.0... E:\Delphi-10\Jedi\jcl\source\common\JclSysUtils.pas(3034) Error: E2010 Incompatible types: 'TJclWaitResult' and 'TWaitResult' JclInstall.pas(2264) Fatal: F2063 Could not compile used unit 'JclSysUtils.pas' Line 3034 in 'JclSysUtils.pas' is: if (ProcessEvent.WaitForever = {$IFDEF RTL280_UP}TJclWaitResult.{$ENDIF RTL280

How export all my certificates of software separately to a .pfx file?

由 て烟熏妆下的殇ゞ 提交于 2019-12-08 05:26:45
问题 I want export programatically of a computer all my certificates of software separately to .pfx file to sign 2 new softwares that already are in final step of building in another pc. To make this i found a C++ code example (that after i translate to Delphi). My Delphi version still not was tested but even so i think that is working fine. program CertToPFX; {$APPTYPE CONSOLE} {$R *.res} uses Windows, WinCrypt, Classes, SysUtils; var CertContext: PCCERT_CONTEXT; CertPropId: DWORD; Data: array [0

CapsLock password message in TEdit visually fails with VCL Styles

由 ♀尐吖头ヾ 提交于 2019-12-07 23:25:45
问题 The CapsLock message when using password in TEdit get buggy when using VCL Style. This is how looks like without style: and this with VCL Style on: The message is in portuguese, but I don't think this matter. Using Windows 10 style in Delphi Seattle 23.0.21418.4207 (with Update 1). 回答1: Found it. VCL Style Utils, like a lot of other things, solves the bug. Just had to add the Vcl.Styles.Utils.ScreenTips in the uses. 来源： https://stackoverflow.com/questions/41098869/capslock-password-message-in

CapsLock password message in TEdit visually fails with VCL Styles

由 雨燕双飞 提交于 2019-12-06 08:15:55
The CapsLock message when using password in TEdit get buggy when using VCL Style. This is how looks like without style: and this with VCL Style on: The message is in portuguese, but I don't think this matter. Using Windows 10 style in Delphi Seattle 23.0.21418.4207 (with Update 1). Found it. VCL Style Utils, like a lot of other things, solves the bug. Just had to add the Vcl.Styles.Utils.ScreenTips in the uses. 来源： https://stackoverflow.com/questions/41098869/capslock-password-message-in-tedit-visually-fails-with-vcl-styles

Delphi/Firemonkey Change iOS screen rotation at runtime

由 对着背影说爱祢 提交于 2019-12-06 05:27:29
问题 basically all I want to achieve is when a user is in a certain part of the App to change the screen rotation as needed, I have this working for Andriod and I can not see why it shouldn't work for iOS procedure TForm1.Button1Click(Sender: TObject); var ScreenService: IFMXScreenService; OrientSet: TScreenOrientations; begin if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then begin OrientSet := [TScreenOrientation.soLandscape];//<- Break point
订阅 delphi-10-seattle