Cristian Peța

And where is this behavior documented? Actual documentation quoted above is wrong then?

@angusj, Is Image32 intended to be thread-safe? I ask because there is a global var aFontManager in Img32.Text. I told myself: this is not a problem, I will instantiate a TFontManager for every thread. But then I found that TFontCache.AddGlyph() uses this global var aFontManager.... You pushed this code in 7 dec. 2024 EDIT: I see that I can use fFontReader.fFontManager instead of aFontManager. EDIT2: I created a Pull request. My first one and hope it is ok. Thank you for your work on this library!

If you profiled this then how much from that 50 ms take the calls to draw lines.

How many lines? GDI+ is slow but I suppose you are using GDI here. I have 174 ms for 46000 lines. EDIT: That means 13300 lines per 50 ms

Use a profiler and see what takes so much. I doubt that GDI drawing takes 50 ms for this on a modern CPU.

FireDAC Monitor has nothing to do with forms. It receives data from FDConnection.

Yes, no problem. And what has this to do with FireDAC Monitor tool properties? BTW, you can start yourself the Monitor from the Bin folder, not necessary to use the link from the IDE.

Why? It should be like this:

I second this. Here I don't see line number in IdTask.TIdTask.DoBeforeRun. I suppose it is the first line. Also the call stack is not what it should. I would like also assembler code and register values. Address 00000004 is FBeforeRunDone in TIdTask.DoBeforeRun. TIdTask = class(TObject) protected FBeforeRunDone: Boolean; .... end; procedure TIdTask.DoBeforeRun; begin FBeforeRunDone := True; <-- "Access violation at address 0098638C in module 'MyStuff.exe'. Write of address 00000004" BeforeRun; end; So a reference to TIdTask object is nil but we don't see the call stack to know who is calling this nil reference. A proper call stack is missing.

It is just a string property. What can compiler complain? But documentation for TWSocketServer says:

I prefer something like this: type TMyStrings = (zero, one, two, three, four); function StrToMyString(AString: String): TMyStrings; begin if AString = 'zero' then Result := TMyStrings.zero else if AString = 'one' then Result := TMyStrings.one else if AString = 'two' then Result := TMyStrings.two else if AString = 'three' then Result := TMyStrings.three else if AString = 'four' then Result := TMyStrings.four end; var s: String; begin s := 'three'; case StrToMyString(s) of zero: writeln('zero'); one: writeln('one'); two: writeln('two'); three: writeln('three'); four: writeln('four'); end; //or, if you want interger case Integer(StrToMyString(s)) of 0: writeln('zero'); 1: writeln('one'); 2: writeln('two'); 3: writeln('three'); 4: writeln('four'); end;

And what is the benefit? if-then-else is more readable than this.

A DLL is a library and it can run only in the processes of a main application (rundll32 or other app).

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.

I updated the report https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-3711

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;

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

More or less all Form.Children. AlignObjects().DoAlign() enumerates all Form.Children but it depends a little if the object supports IAlignableObject interface.

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)

Can you reproduce in a small project that you can post here?

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?