paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 02:26:14 +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 interface
uses uses
Classes, SysUtils, LCLProc, LCLType, GraphType, Graphics, LMessages, Classes, SysUtils, Math, LCLProc, LCLType, GraphType, Graphics, LMessages,
LResources, Controls, StdCtrls; LResources, Controls, StdCtrls, LCLIntf;
type type
@ -190,7 +190,7 @@ end;
procedure TCustomCheckListBox.MeasureItem(Index: Integer; var TheHeight: Integer); procedure TCustomCheckListBox.MeasureItem(Index: Integer; var TheHeight: Integer);
begin begin
if (Style = lbStandard) then if (Style = lbStandard) then
TheHeight := CalculateStandardItemHeight TheHeight := Max(CalculateStandardItemHeight, GetSystemMetrics(SM_CYMENUCHECK) + 2)
else else
inherited MeasureItem(Index, TheHeight); inherited MeasureItem(Index, TheHeight);
end; end;