paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 14:20:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Make a compromise for Boolean property editor Checkbox left position. Actually depends on widgetset and theme.

Browse Source 
git-svn-id: trunk@46992 -
This commit is contained in:
juha 2014-11-26 09:23:48 +00:00
parent 7d9296fe56
commit 80fc1404b6
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/propedits.pp
View File

@ -3262,7 +3262,7 @@ var
Details: TThemedElementDetails;
Check: TThemedButton;
Sz: TSize;
TopMargin, RightMargin: Integer;
TopMargin: Integer;
begin
BRect := ARect;
fUseCheckbox := FPropertyHook.GetCheckboxForBoolean;
@ -3277,18 +3277,14 @@ begin
Sz := ThemeServices.GetDetailSize(Details);
TopMargin := (ARect.Bottom - ARect.Top - Sz.cy) div 2;
Inc(BRect.Top, TopMargin);
{$IFDEF LCLGTK2}
RightMargin := 3; // A hack. GTK2 checkbox itself has a left margin.
{$ELSE}
RightMargin := 1;
{$ENDIF}
Inc(BRect.Left, RightMargin);
// Left varies by widgetset and theme etc. Real Checkbox itself has a left margin.
Inc(BRect.Left, 3); // ToDo: How to find out the real margin?
BRect.Right := BRect.Left + Sz.cx;
BRect.Bottom := BRect.Top + Sz.cy;
ThemeServices.DrawElement(ACanvas.Handle, Details, BRect, nil);
// Write text after the box
BRect := ARect;
Inc(BRect.Left, Sz.cx+RightMargin+2);
Inc(BRect.Left, Sz.cx + 5);
end;
inherited PropDrawValue(ACanvas, BRect, AState);
end;