AdvStringGrid RowFontColor not font scale

VCL TMS VCL UI Pack
1

RowFontColor and similar not scaled font in HDPI monitor

In the code I founded:
unit AdvGrid
procedure TAdvStringGrid.GetVisualProperties(ACol,ARow: Integer; var AState: TGridDrawState; Print, Select, Remap: Boolean;
Row: 31480

    AFont.Height := cp.FontSize;

and
procedure TAdvStringGrid.GetCellColor(ACol,ARow: Integer;AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
AFont.Height := cp.FontSize;

without FDPIScale

Thanks

2

Do you use the latest version of TAdvStringGrid?
What Delphi version do you use?
With the latest version and this test code, I could not reproduce a problem:
(worked fine on 100% and 150% DPI)

procedure TForm1.FormCreate(Sender: TObject);
begin
  advstringgrid1.RandomFill(false);
  advstringgrid1.RowFontColor[1] := clred;
  advstringgrid1.FontSizes[2,2] := 10;
  advstringgrid1.FontColors[3,3] := clred;
end;
3

Thank you very much for your fast reply.
I took the test you recommended.
I have to change: this mistake happens with TDBAdvGrid and not with TAdvStringGrid
Now I'm using :
-Delphi 11
-AdvGrid 8.6.11.0 Dec 2021
-DBAdvGrid 2.5.1.9

See the attached image of my test.

Test1
Test1709×956 77.3 KB

Best regards.

4

This was fixed. The next update will address this.