From eb49466d3a9b906438b43c6db193c0ce2d3f3ec0 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 6 Sep 2007 18:04:49 +0000
Subject: [PATCH] * Use optimal pixel format

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

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 8f79cb429..de10f53ed 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -11384,10 +11384,10 @@ begin
 
   FPlusBM := TBitmap.Create;
   FPlusBM.Transparent := True;
-  FPlusBM.PixelFormat := pf32bit;
+  FPlusBM.PixelFormat := OptimalPixelFormat;
   FMinusBM := TBitmap.Create;
   FMinusBM.Transparent := True;
-  FMinusBM.PixelFormat := pf32bit;
+  FMinusBM.PixelFormat := OptimalPixelFormat;
 
   //FBorderStyle := bsSingle;
   FButtonStyle := bsRectangle;
@@ -27450,6 +27450,12 @@ begin
   Logger.Send([lcPaintHeader],'ClientRect',ClientRect);
   Logger.Send([lcPaintHeader],'TreeRect',GetTreeRect);
   Logger.Send([lcPaintHeader],'OffsetX: %d  OffsetY: %d',[OffsetX,OffsetY]);
+  //lcl changes to 24bit color depth when screen depth is 32 bit
+  //todo: remove when this limitation is removed
+  {$ifdef Windows}
+  if (PixelFormat = pfDevice) and (ScreenInfo.ColorDepth = 32) then
+    PixelFormat := pf32bit;
+  {$endif}
   if not (tsPainting in FStates) then
   begin
     DoStateChange([tsPainting]);