From efee47543f3523586a9601b4ad5ce712040f899e Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 12 Apr 2008 00:36:13 +0000
Subject: [PATCH] * Initializes check images when toCheckSupport option is set

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@414 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-unstable/VirtualTrees.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 3859c9033..867e937b2 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -5229,7 +5229,10 @@ begin
       if not (csLoading in ComponentState) and HandleAllocated then
       begin
         if toCheckSupport in ToBeSet + ToBeCleared then
+        begin
+          GetCheckImageList;
           Invalidate;
+        end;
         if not (csDesigning in ComponentState) then
         begin
           if toFullRepaintOnResize in (TobeSet + ToBeCleared) then
@@ -19638,10 +19641,10 @@ end;
 
 function TBaseVirtualTree.GetClientRect: TRect;
 begin
-  Result:=Inherited;
+  Result := inherited;
   //lclheader
   if HandleAllocated and (hoVisible in FHeader.FOptions) then
-    Dec(Result.Bottom,FHeader.Height);
+    Dec(Result.Bottom, FHeader.Height);
 end;
 
 //----------------------------------------------------------------------------------------------------------------------