Exceptions with Version 2025.44

[gkobler]

Hello

I installed the new version 2025.44 and noticed some problems with my program.

After investigation, i create a small demo program, see attachment.

Compile it with v44, the start it and press the "view" button, then "hide". then you got a exceptions. I also got an exception, when i delete a Series at design time in the IDE.

Compile and run it with <=V43 it runs without any problems.

Delphi 12.3.1 Build the program with Win32 and Win64.

Hope this will be fixed.

Thanks in advanced
Gregor

[Yeray]

Hello,

Yes, that's a side effect of a bug in v2025.44 (#2777), which was identified and fixed here.
Find below the full git diff:

Code: Select all

--- a/Chart.pas
+++ b/Chart.pas
@@ -418,6 +418,7 @@ type

     ILegend : TCustomChartLegend;

+    procedure FontChanged(Sender: TObject);
     function GetFont:TTeeFont;
     procedure SetAlign(const Value:TCanvasTextAlign);
     procedure SetCustom(SetPos:Boolean);
@@ -5519,6 +5520,14 @@ begin
   result:=Assigned(FFont);
 end;

+procedure TLegendItem.FontChanged(Sender: TObject);
+begin
+  SetCustom(False);
+
+  if Assigned(ILegend) then
+    ILegend.CanvasChanged(Sender);
+end;
+
 function TLegendItem.GetFont:TTeeFont;
 var Old : Boolean;
 begin
@@ -5536,6 +5545,12 @@ begin
      else
         FFont:=TTeeFont.Create(nil);

+  {$IFDEF FMX}
+  FFont.Brush.OnChanged:=FontChanged;
+  {$ELSE}
+  FFont.OnChange:=FontChanged;
+  {$ENDIF}
+
   result:=FFont;
 end;

@@ -5635,11 +5650,6 @@ begin
     result:=TLegendItem.Create;
     result.ILegend:=ILegend;

-    if ILegend.InternalLegendStyle=lsAuto then
-       ILegend.CalcLegendStyle;
-
-    result.Text:=ILegend.FormattedLegend(Index);
-
     inherited Items[Index]:=result;
   end;
 end;

[gkobler]

Ok, thanks. Will Steema create a new installer to fix that?

[Yeray]

Hello,

Yes, we'll publish new installers as soon as possible.

[gkobler]

Thanks a lot