From 6bdfb279ecfbd9f9c59fd3e5fd5290b5c0791485 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 15 Dec 2009 19:24:25 +0000
Subject: [PATCH] * Compile with Theme Support

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/trunk/VTConfig.inc     |  1 +
 components/virtualtreeview-new/trunk/VirtualTrees.pas | 10 +++-------
 .../trunk/virtualtreeview_package.lpk                 | 11 ++++++-----
 3 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/components/virtualtreeview-new/trunk/VTConfig.inc b/components/virtualtreeview-new/trunk/VTConfig.inc
index 9d33f235e..bbb5fcd87 100644
--- a/components/virtualtreeview-new/trunk/VTConfig.inc
+++ b/components/virtualtreeview-new/trunk/VTConfig.inc
@@ -29,6 +29,7 @@
 {$define EnableAdvancedGraphics}
 {$define EnableAlphaBlend}
 {.$define EnableAccessible}
+{$define ThemeSupport}
 
 //under linux the performance is poor with threading enabled
 {$ifdef Windows}
diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index fe533a16c..f05be9235 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -331,11 +331,7 @@ uses
   SyncObjs  // Thread support
   //Clipbrd // Clipboard support
   {$ifdef ThemeSupport}
-    {$ifndef COMPILER_7_UP}
-      , ThemeSrv, TMSchema, UxTheme  // Windows XP themes support. Get these units from www.soft-gems.net
-    {$else}
-      , Themes, UxTheme
-    {$endif COMPILE_7_UP}
+  , Themes , UxTheme
   {$endif ThemeSupport}
   {$ifdef EnableAccessible}
   , oleacc // for MSAA IAccessible support
@@ -23055,8 +23051,8 @@ begin
           Details.State := 0;
         end;
         ThemeServices.DrawElement(Canvas.Handle, Details, R);
-        if Index in [21..24] then
-          UtilityImages.Draw(Canvas, XPos - 1, YPos, 4);
+        //if Index in [21..24] then
+        //  UtilityImages.Draw(Canvas, XPos - 1, YPos, 4);
       end
       else
     {$endif ThemeSupport}
diff --git a/components/virtualtreeview-new/trunk/virtualtreeview_package.lpk b/components/virtualtreeview-new/trunk/virtualtreeview_package.lpk
index 38a164912..d1d250322 100644
--- a/components/virtualtreeview-new/trunk/virtualtreeview_package.lpk
+++ b/components/virtualtreeview-new/trunk/virtualtreeview_package.lpk
@@ -4,15 +4,12 @@
     <Name Value="virtualtreeview_package"/>
     <Author Value="Mike Lischke (LCL Port: Luiz Americo)"/>
     <CompilerOptions>
-      <Version Value="5"/>
+      <Version Value="8"/>
       <SearchPaths>
         <IncludeFiles Value="include/intf/$(LCLWidgetType)/;units/;include/intf/"/>
         <OtherUnitFiles Value="units/$(LCLWidgetType)/"/>
         <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)"/>
       </SearchPaths>
-      <CodeGeneration>
-        <Generate Value="Faster"/>
-      </CodeGeneration>
       <Other>
         <CompilerPath Value="$(CompPath)"/>
       </Other>
@@ -22,7 +19,7 @@
     <License Value=" Moziall Public License 1.1 (MPL 1.1) or GNU Lesser General Public License
 "/>
     <Version Major="4" Minor="5" Release="1"/>
-    <Files Count="5">
+    <Files Count="6">
       <Item1>
         <Filename Value="virtualtrees.lrs"/>
         <Type Value="LRS"/>
@@ -44,6 +41,10 @@
         <Filename Value="ideicons.lrs"/>
         <Type Value="LRS"/>
       </Item5>
+      <Item6>
+        <Filename Value="VTConfig.inc"/>
+        <Type Value="Include"/>
+      </Item6>
     </Files>
     <Type Value="RunAndDesignTime"/>
     <RequiredPkgs Count="3">