Windows 11 Scaled Delphi berlin problem

50 views
Skip to first unread message

enver penjo

unread,
Dec 15, 2021, 10:43:56 AM12/15/21
to Rosi Delphi Components
When scaling windows 11 to 150% rosinsky TrDBGrid_MS ,
some column is scaled but some not.

Regards

Tomas Rosinsky

unread,
Dec 15, 2021, 11:35:37 AM12/15/21
to Rosi Delphi Components
Hello,
do you mean column width or title font or something else?
Please provide printscreen and more details, mainly DFM file with column setting. 
I can hardly help and answer your general information.

Thank you and regards
Tomas

Dne středa 15. prosince 2021 v 16:43:56 UTC+1 uživatel penj...@gmail.com napsal:

enver penjo

unread,
Dec 16, 2021, 6:28:36 AM12/16/21
to Rosi Delphi Components
Bad_150_scaling.jpg

DB_Action buttons is not scaled.
TRDBGRID_ms some column is scaled but some not (Location,Active_p,Default_).

Tomas Rosinsky

unread,
Dec 16, 2021, 7:54:41 AM12/16/21
to Rosi Delphi Components
Hello, 
DFM file is still missing so I'm not sure how the title fonts are set for each column. Also please provide what version of my components are you using and your registered email from the component purchase.

Anyway in the RAD 101 there is a bug in the scaling of standard DBGrid which is partly fixed by my rDBGrid, but only if the title font is set.
So probably these 3 columns are set in different way as others.

Similar with TToolbar used for  my rDBAction toolbar. Scaling is not fully supported in this RAD version.
I would suggest to use current RAD version (104 or 110) with better scaling support if you need to use it.

Thanks and regards
Tomas

Dne čtvrtek 16. prosince 2021 v 12:28:36 UTC+1 uživatel penj...@gmail.com napsal:

enver penjo

unread,
Dec 16, 2021, 10:17:53 AM12/16/21
to Rosi Delphi Components
3 not good looking columns a made from code:
procedure addColumn(g:TrDBGrid_MS;colName:string);
var i:integer;
    col:tcolumn;
begin
      i:=g.GetFieldNameColumnIndex(colName);
      if i<0 then begin
         Col := g.Columns.Add;
         Col.Title.Caption := colName;
         col.FieldName:=colName;
         col.Expanded:=false;
         col.Visible:=true;
         col.Index:=1;
      end;
end;

Registered email is: awoerner

enver penjo

unread,
Dec 16, 2021, 12:56:51 PM12/16/21
to Rosi Delphi Components
last version
Reply all
Reply to author
Forward
0 new messages