paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Use optimal pixel format

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@261 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2007-09-06 18:04:49 +00:00
parent c3bc3cc808
commit eb49466d3a
1 changed files with 8 additions and 2 deletions

10
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -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]);