paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 11:49:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: one more tweak for the Boolean Checkbox editor position.

Browse Source 
git-svn-id: trunk@47010 -
This commit is contained in:
juha 2014-11-27 20:31:44 +00:00
parent 4f2765f6c2
commit 304f54dde0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/propedits.pp
View File

@ -3278,13 +3278,13 @@ begin
TopMargin := (ARect.Bottom - ARect.Top - Sz.cy) div 2; TopMargin := (ARect.Bottom - ARect.Top - Sz.cy) div 2;
Inc(BRect.Top, TopMargin); Inc(BRect.Top, TopMargin);
// Left varies by widgetset and theme etc. Real Checkbox itself has a left margin. // 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? Inc(BRect.Left, 2); // ToDo: How to find out the real margin?
BRect.Right := BRect.Left + Sz.cx; BRect.Right := BRect.Left + Sz.cx;
BRect.Bottom := BRect.Top + Sz.cy; BRect.Bottom := BRect.Top + Sz.cy;
ThemeServices.DrawElement(ACanvas.Handle, Details, BRect, nil); ThemeServices.DrawElement(ACanvas.Handle, Details, BRect, nil);
// Write text after the box // Write text after the box
BRect := ARect; BRect := ARect;
Inc(BRect.Left, Sz.cx + 5); Inc(BRect.Left, Sz.cx + 4);
end; end;
inherited PropDrawValue(ACanvas, BRect, AState); inherited PropDrawValue(ACanvas, BRect, AState);
end; end;