paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 23:57:11 +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:
begin
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;