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

lcl: request checklistbox item height > than check

Browse Source 
git-svn-id: trunk@20416 -
This commit is contained in:
paul 2009-06-05 01:39:48 +00:00
parent 7b82b702dd
commit ffda60f2e0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/checklst.pas
View File

@ -28,8 +28,8 @@ unit CheckLst;
interface
uses
Classes, SysUtils, LCLProc, LCLType, GraphType, Graphics, LMessages,
LResources, Controls, StdCtrls;
Classes, SysUtils, Math, LCLProc, LCLType, GraphType, Graphics, LMessages,
LResources, Controls, StdCtrls, LCLIntf;
type
@ -190,7 +190,7 @@ end;
procedure TCustomCheckListBox.MeasureItem(Index: Integer; var TheHeight: Integer);
begin
if (Style = lbStandard) then
TheHeight := CalculateStandardItemHeight
TheHeight := Max(CalculateStandardItemHeight, GetSystemMetrics(SM_CYMENUCHECK) + 2)
else
inherited MeasureItem(Index, TheHeight);
end;