From b14e3dc63384b9a3fbf3ddf735e180626361a2ff Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 23 Dec 2007 16:13:44 +0000
Subject: [PATCH] * Fix compilation * Sort mark with transparency

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@301 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../virtualtreeview-unstable/VirtualTrees.pas | 19 +++++++++----------
 .../demos/images/images.lpi                   |  2 +-
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 2d1b46ebd..e6006e5ea 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -118,7 +118,9 @@ interface
 {$endif}
 
 uses
-  {$i intf_uses.inc}
+  {$ifdef LCLWin32}
+  Windows,
+  {$endif}
   ActiveX,
   OleUtils,
   DelphiCompat,
@@ -8952,8 +8954,8 @@ begin
               if not (hpeSortGlyph in ActualElements) and ShowSortGlyph then
               begin
                 SortIndex := SortGlyphs[FHeader.FSortDirection, tsUseThemes in FHeader.Treeview.FStates];
-                StretchMaskBlt(FHeaderBitmap.Canvas.Handle, SortGlyphPos.X, SortGlyphPos.Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
-                  SortIndex * UtilityImageSize, 0, UtilityImageSize, UtilityImageSize, UtilityImages.MaskHandle, 0, 0, 0);
+                DirectMaskBlt(FHeaderBitmap.Canvas.Handle, SortGlyphPos.X, SortGlyphPos.Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
+                  SortIndex * UtilityImageSize, 0, UtilityImages.MaskHandle);
                 //UtilityImages.Draw(FHeaderBitmap.Canvas, SortGlyphPos.X, SortGlyphPos.X, SortIndex);
               end;
 
@@ -8963,12 +8965,12 @@ begin
                 Y := (PaintRectangle.Top + PaintRectangle.Bottom - UtilityImages.Height) div 2;
 
                 if DropMark = dmmLeft then
-                  StretchMaskBlt(FHeaderBitmap.Canvas.Handle, PaintRectangle.Left, Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
-                    0 * UtilityImageSize, 0, UtilityImageSize, UtilityImageSize, UtilityImages.MaskHandle, 0, 0, 0)
+                  DirectMaskBlt(FHeaderBitmap.Canvas.Handle, PaintRectangle.Left, Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
+                    0 * UtilityImageSize, 0, UtilityImages.MaskHandle)
                   //UtilityImages.Draw(FHeaderBitmap.Canvas, PaintRectangle.Left, Y, 0)
                 else
-                   StretchMaskBlt(FHeaderBitmap.Canvas.Handle, PaintRectangle.Right - 16, Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
-                    1 * UtilityImageSize, 0, UtilityImageSize, UtilityImageSize, UtilityImages.MaskHandle, 0, 0, 0);
+                   DirectMaskBlt(FHeaderBitmap.Canvas.Handle, PaintRectangle.Right - 16, Y, UtilityImageSize, UtilityImageSize, UtilityImages.Canvas.Handle,
+                    1 * UtilityImageSize, 0, UtilityImages.MaskHandle);
                   //UtilityImages.Draw(FHeaderBitmap.Canvas, PaintRectangle.Right - 16 , Y,  1);
               end;
 
@@ -21514,9 +21516,6 @@ end;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-type
-  TCustomImageListCast = class(TCustomImageList);
-
 procedure TBaseVirtualTree.PaintImage(var PaintInfo: TVTPaintInfo; ImageInfoIndex: TVTImageInfoIndex; DoOverlay: Boolean);
 
 const
diff --git a/components/virtualtreeview-unstable/demos/images/images.lpi b/components/virtualtreeview-unstable/demos/images/images.lpi
index d33ffa3c9..db385d224 100644
--- a/components/virtualtreeview-unstable/demos/images/images.lpi
+++ b/components/virtualtreeview-unstable/demos/images/images.lpi
@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectOptions>
     <PathDelim Value="/"/>
-    <Version Value="5"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <AlwaysBuild Value="False"/>