From ffda60f2e0039426fbd3cebc945cdcc9417f05e3 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 5 Jun 2009 01:39:48 +0000
Subject: [PATCH] lcl: request checklistbox item height > than check

git-svn-id: trunk@20416 -
---
 lcl/checklst.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/checklst.pas b/lcl/checklst.pas
index 21e813dc0e..5a7d0a66e3 100644
--- a/lcl/checklst.pas
+++ b/lcl/checklst.pas
@@ -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;