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

customdrawn: Improves the checkbox autosizing

Browse Source 
git-svn-id: trunk@33521 -
This commit is contained in:
sekelsenmat 2011-11-14 07:21:21 +00:00
parent 3223ac53ab
commit 24044afdf5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/customdrawn/customdrawn_common.pas
View File

@ -204,9 +204,12 @@ begin
cidCheckBox, cidRadioButton: cidCheckBox, cidRadioButton:
begin begin
if AStateEx.AutoSize then if AStateEx.AutoSize then
PreferredWidth := 21 + GetMeasuresEx(ADest, TCDCONTROL_CAPTION_WIDTH, AState, AStateEx); PreferredWidth := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT)
+ GetMeasuresEx(ADest, TCDCONTROL_CAPTION_WIDTH, AState, AStateEx) + 6;
PreferredHeight := GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx); PreferredHeight :=
Max(GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx),
GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT));
end; end;
end; end;
end; end;