TadvColumnGrid fontsize too small when using Grid images on Highdpi/scaled monitors

VCL TMS VCL UI Pack
1

On Monitors with scale > 100%, Textsize in cells is changing to whats look like a non scale size when turning on image in a cell that contain text.

2

Do you use the latest version of TMS VCL UI Pack 10.7.2.0 and if so, what Delphi version do you use? How you configured fonts? Grid property settings?

3

We are using Delphi 11 with all hotfixes, TMS VCL UI Pack 10.7.2.0

It is very easy to reproduce, just create at new vcl project and
drop a AdvColumngrid, ImageCollection, VirtualImageList and a Button to the form.
then add a image to imagecollection/virtualImageList
on advColumnGrid set gridimages to virtualimagelist and add some text to headers

in button.onclick troggle grid image on/off in one of the headers containing text:

I use this code to troggle image on/off

procedure TForm6.Button1Click(Sender: TObject);
var
  idx : Integer;
begin
   idx := -1;
   IF AdvColumnGrid1.GetImageIdx(1, 0, Idx)  then
     if idx=0 then
     begin
       AdvColumnGrid1.removeImageIdx(1,0);
     end;

   if idx = -1 then
   begin
     AdvColumnGrid1.AddImageIdx(1,0,0, haBeforeText, TCellValign.vaCenter);
   end;

end;

TestAdvColumnGrid.zip (12.0 KB)

Kind Regard
Henrik

4

I forgot one thing, You should launch the test app on a monitor running with scale > 100%

Kind regard
Henrik

5

Thanks for reporting.
We traced & solved this issue here.
The next update will address this.