paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 23:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: dbgrids: high dpi: scale indicator column width

Browse Source 
git-svn-id: trunk@55669 -
This commit is contained in:
ondrej 2017-08-16 17:02:58 +00:00
parent a3f0b7435a
commit 70f73bf75f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -40,6 +40,9 @@ uses
{$DEFINE noautomatedbookmark}
{$endif}
const
DEFINDICATORCOLWIDTH = 12;
type
TCustomDbGrid = class;
TColumn = class;
@ -833,7 +836,7 @@ begin
RowCount := OldFixedRows + 1;
ColCount := OldFixedCols + 1;
if dgIndicator in Options then
ColWidths[0]:=12;
ColWidths[0]:=Scale96ToFont(DEFINDICATORCOLWIDTH);
end;
procedure TCustomDBGrid.DoHeaderClick(Index: Integer);
@ -1649,7 +1652,7 @@ begin
{$endif}
if FDefaultColWidths then begin
if dgIndicator in Options then
ColWidths[0]:=12;
ColWidths[0]:=Scale96ToFont(12);
if NeedAutoSizeColumns then
UpdateAutoSizeColumns;
end;