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

LazControls: Center Caption of TCheckBoxThemed vertically. Issue #29054, patch from Gabor Boros.

Browse Source 
git-svn-id: trunk@50457 -
This commit is contained in:
juha 2015-11-21 09:56:14 +00:00
parent 8098f1092f
commit d9d0b6a6c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/checkboxthemed.pas
View File

@ -360,7 +360,7 @@ begin
if ARightToLeft then inc(aFlags, DT_RTLREADING);
with ThemeServices.GetTextExtent(ACanvas.Handle, aDetails, ACaption, aFlags, nil) do begin
aTextSize.cx := Right;
aTextSize.cy := Bottom + 2 * cFocusBorder;
aTextSize.cy := ACanvas.TextExtent(ACaption).cy;
end;
aCaptionPoint.Y := (ARect.Bottom + ARect.Top - aTextSize.cy) div 2;
aCheckBoxPoint.Y := (ARect.Bottom + ARect.Top - CheckBoxSize.cy) div 2;