Legend.Style=lsLastValues does not work since last release

[SStol]

Since last release (2025.44.250520) Legend.Style=lsLastValues does not work properly.

Please see minimal example in attachment...

old version:

_old.jpg (65.93 KiB) Viewed 603 times

new version:

_new.jpg (67.41 KiB) Viewed 603 times

Regards,

[Yeray]

Hello,

Yes, that was bug in v2025.44, 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;