[JVCL-Checkins] dev/JVCL3/run JvCheckListBox.pas,1.25,1.26 - Fixed Mantis #3592: TJvCheckListBox scrollbar doesn't fit

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28924/run

Modified Files:
	JvCheckListBox.pas 
Log Message:
Fixed Mantis #3592: TJvCheckListBox scrollbar doesn't fit


Index: JvCheckListBox.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCheckListBox.pas,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** JvCheckListBox.pas	20 Mar 2006 11:30:51 -0000	1.25
--- JvCheckListBox.pas	20 Mar 2006 11:43:15 -0000	1.26
***************
*** 138,142 ****
  type
    // Used for the load/save methods
- 
    TCheckListRecord = record
      Checked: Boolean;
--- 138,141 ----
***************
*** 399,402 ****
--- 398,402 ----
    begin
      ItemWidth := Canvas.TextWidth(Items[I] + ' ');
+     Inc(ItemWidth, GetCheckWidth); 
      if FMaxWidth < ItemWidth then
        FMaxWidth := ItemWidth;
***************
*** 551,554 ****
--- 551,555 ----
          ItemWidth := Canvas.TextWidth(StrPas(PChar(Msg.lParam)) + ' ');
          {$ENDIF CLR}
+         Inc(ItemWidth, GetCheckWidth);
          if FMaxWidth < ItemWidth then
            FMaxWidth := ItemWidth;
***************
*** 558,561 ****
--- 559,563 ----
        begin
          ItemWidth := Canvas.TextWidth(Items[Msg.wParam] + ' ');
+         Inc(ItemWidth, GetCheckWidth);
          if ItemWidth = FMaxWidth then
          begin