Workaround to LCL bug 8553

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@134 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/virtualtreeview-unstable/VirtualTrees.pas

@@ -3357,7 +3357,11 @@ const
   Copyright: string = 'Virtual Treeview © 1999, 2003 Mike Lischke';
 
 var
-
+  //Workaround to LCL bug 8553
+  {$ifndef Windows}
+  pf32bit: TPixelFormat = pfDevice;
+  {$endif}
+  
   StandardOLEFormat: TFormatEtc = (
     // Format must later be set.
     cfFormat: 0;
@@ -7529,7 +7533,6 @@ var
   ScreenDC: HDC;
 
 begin
-  {$ifdef NeedWindows}
   if FStates * [disInDrag, disHidden, disPrepared, disSystemSupport] = [disInDrag, disHidden, disPrepared] then
   begin
     Exclude(FStates, disHidden);
@@ -7545,7 +7548,6 @@ begin
       ReleaseDC(0, ScreenDC);
     end;
   end;
-  {$endif}
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -10547,7 +10549,10 @@ begin
               FColumns.FHoverIndex := NoColumn;
               if I > NoColumn then
                 Invalidate(FColumns[I]);
+              //todo: implement drag image under gtk
+              {$ifdef Windows}
               PrepareDrag(P, FDragStart);
+              {$endif}
               FStates := FStates - [hsDragPending] + [hsDragging];
               HandleHeaderMouseMove := True;
               Result := 0;
@@ -28009,11 +28014,7 @@ begin
           Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle);
           // Avoid unnecessary copying of bitmap content. This will destroy the DC handle too.
           NodeBitmap.Height := 0;
-          {$ifdef Windows}
           NodeBitmap.PixelFormat := pf32Bit;
-          {$else}
-          NodeBitmap.PixelFormat := pfDevice;
-          {$endif}
           NodeBitmap.Width := TargetRect.Right - TargetRect.Left + 1;
           NodeBitmap.Height := TargetRect.Bottom - TargetRect.Top + 1;
           Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle);

components/virtualtreeview-unstable/demos/mininal/Main.lrs

@@ -1,3 +1,5 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TMainForm','FORMDATA',[
   'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#181#1#6'Height'#3#225#1#3'Top'#3#22
   +#1#5'Width'#3#169#1#18'HorzScrollBar.Page'#3#168#1#18'VertScrollBar.Page'#3

components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi

@@ -69,13 +69,8 @@
     </CodeGeneration>
     <Linking>
       <Debugging>
-        <UseHeaptrc Value="True"/>
+        <UseLineInfoUnit Value="False"/>
       </Debugging>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
     </Linking>
     <Other>
       <CompilerPath Value="$(CompPath)"/>