paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 16:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed compilation on 64bit Linux

Browse Source 
git-svn-id: trunk@33898 -
This commit is contained in:
mattias 2011-12-01 21:29:49 +00:00
parent ee7e057f20
commit 4a0c93d51e
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/customdrawn_common.pas
View File

@ -244,15 +244,17 @@ begin
// In the LCL TEdit AutoSizes only its Height, so follow this here
cidEdit: PreferredHeight := GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx)+5;
cidCheckBox, cidRadioButton:
begin
if AStateEx.AutoSize then
PreferredWidth := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT)
+ GetMeasuresEx(ADest, TCDCONTROL_CAPTION_WIDTH, AState, AStateEx) + 6;
begin
if AStateEx.AutoSize then begin
PreferredWidth := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
PreferredWidth := PreferredWidth
+ GetMeasuresEx(ADest, TCDCONTROL_CAPTION_WIDTH, AState, AStateEx) + 6;
end;
PreferredHeight :=
Max(GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx),
GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT));
end;
PreferredHeight :=
Max(GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx),
GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT));
end;
end;
end;