-
Content Count
438 -
Joined
-
Last visited
-
Days Won
5
Cristian Peța last won the day on August 15 2024
Cristian Peța had the most liked content!
Community Reputation
122 ExcellentTechnical Information
-
Delphi-Version
Delphi 11 Alexandria
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
programmatically determine the edition of RAD Studio 12.3
Cristian Peța replied to dmitrybv's topic in Delphi IDE and APIs
I don't have an answer but the edition is in the license. And I don't think there is a public API to read it. But if you run ddc32 with different small projects the messages can tell you something about this. -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
I updated the report https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-3711 -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
Just wanted to try a fix in FMX.Forms and I found it already there but commented 🤔. First two lines will exit and AlignObjects() will not be called if used Form.BeginUpdate. The Realign will be done anyway after Form.EndUpdate. procedure TCustomForm.Realign; begin // if FDisableAlign or (FUpdating > 0) then // Exit; ... more code if FCanvas <> nil then begin AlignObjects(Self, Padding, FCanvas.Width, FCanvas.Height, FLastWidth, FLastHeight, FDisableAlign); RecalcControlsUpdateRect; InvalidateRect(ClientRect); end; end; -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
Using arrRect.SetBounds() you avoid a call to AlignObjects because TControl.SetBounds is checking some things before a call to AlignObjects Avoid setting TPosition.X -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
More or less all Form.Children. AlignObjects().DoAlign() enumerates all Form.Children but it depends a little if the object supports IAlignableObject interface. -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
FMX.Types.AlignObjects is taking the most time: 97.4% (from VTune) AlignObjects is not called from TControl.Realign and is going fast when rectangles are on TLayout. But when rectangles are on a form, AlignObjects is called from TCustomForm.Realign and is taking the most time FMX.Types.AlignObjects($4BD50A0,$4C4C860,640,480,640,480,False) FMX.Forms.TCustomForm.Realign FMX.Controls.TControlHelper.PositionChanged(???) FMX.Types.TPosition.DoChange FMX.Types.TPosition.SetX(1) Unit1.TForm1.Button1Click($4BEFDE0) -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
Can you reproduce in a small project that you can post here? -
Extreme slow-down in Windows FMX app UI since upgrading to 12.1
Cristian Peța replied to domus's topic in FMX
Have you tried with a profiler? -
I have 12.2 and it was installed by default in C:\Program Files\Eclipse Adoptium\jdk-17.0.9.9-hotspot All is working for me.
-
I suppose you want something like this: * ReportTitle (logo + ...) * Header - RichText - Column names (if you need them) * MasterData connected to the table - table fields that will be printed for every table record * Footer - RichText * PageFooter (for Page Numbers)
-
Reading again I'm asking myself if you know what MasterData is. You connect MasterData to a table and MastedData will be printed for every line in that table. To put a TableObiect into a MasterData is somehow strange for me. You will print a table for every record of a table.
-
What didn't work? The MasterData is not shown or only TableObiect? Have you set MasterData.DataSet? Do you have something in that table? And you want to print that RishText for every line in that MasterData table?
-
Code signing certificates have become so expensive...
Cristian Peța replied to RaelB's topic in Delphi Third-Party
Then you need to enter the pin every time you use Signtool with Yubikey? -
Lockbox 3 GenerateKeys = Range Check Error
Cristian Peța replied to softtouch's topic in General Help
- b8_1 := P8^ shl ShiftAmnt; + b8_1 := Byte(P8^ shl ShiftAmnt); //(3 shl 7) do not fit into Byte - b8_1 := P8^ shl ShiftComp8; + b8_1 := Byte(P8^ shl ShiftComp8); - PoweredFactor, Power, iFactor: integer; + PoweredFactor, Power, iFactor: uint32; After some changes in /run/utilities/uTPLb_HugeCardinal.pas no more errors... but it works? If it worked with range checking OFF then probably it will work. -
Maybe using SameValue(number, 0.965, 0.001)? Or if you need all the precision the test binary.