From 2843f3cd0c47a0d5a59a1216435556be6c41a93f Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 7 May 2007 02:20:44 +0000
Subject: [PATCH] * Gtk - Draw dotted line using a bitmap brush like win32 *
 Workaround to LCL bug 8823

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@163 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-unstable/VirtualTrees.pas       | 7 ++-----
 .../virtualtreeview-unstable/demos/images/images.lpi       | 1 -
 .../virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi | 3 +++
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 502fd92a1..5160a7c02 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -4764,6 +4764,7 @@ begin
     else
       Images.Handle := LoadBitmap(FindClassHInstance(TBaseVirtualTree), PChar(ImageName));
     }
+    Images.TransparentColor := clNone;
     Images.LoadFromLazarusResource(ImageName);
     Logger.SendBitmap([lcCheck],ImageName,Images);
     try
@@ -13702,8 +13703,7 @@ begin
 
   if NeedLines then
   begin
-    //Workaround till LCL gets fixed
-    {$ifdef Windows}
+    //WARNING: It requires a patched LCL
     if FDottedBrush <> 0 then
       DeleteObject(FDottedBrush);
 
@@ -13719,9 +13719,6 @@ begin
     PatternBitmap := CreateBitmap(8, 8, 1, 1, Bits);
     FDottedBrush := CreatePatternBrush(PatternBitmap);
     DeleteObject(PatternBitmap);
-    {$else}
-    FDottedBrush := CreatePatternBrush(0);
-    {$endif}
   end;
 end;
 
diff --git a/components/virtualtreeview-unstable/demos/images/images.lpi b/components/virtualtreeview-unstable/demos/images/images.lpi
index 53d063726..d33ffa3c9 100644
--- a/components/virtualtreeview-unstable/demos/images/images.lpi
+++ b/components/virtualtreeview-unstable/demos/images/images.lpi
@@ -17,7 +17,6 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
diff --git a/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi b/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi
index 13ccd0eba..97358a693 100644
--- a/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi
+++ b/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi
@@ -64,6 +64,9 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <SearchPaths>
+      <LCLWidgetType Value="gtk"/>
+    </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>