pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11384,10 +11384,10 @@ begin
FPlusBM := TBitmap.Create; FPlusBM := TBitmap.Create;
FPlusBM.Transparent := True; FPlusBM.Transparent := True;
FPlusBM.PixelFormat := pf32bit; FPlusBM.PixelFormat := OptimalPixelFormat;
FMinusBM := TBitmap.Create; FMinusBM := TBitmap.Create;
FMinusBM.Transparent := True; FMinusBM.Transparent := True;
FMinusBM.PixelFormat := pf32bit; FMinusBM.PixelFormat := OptimalPixelFormat;
//FBorderStyle := bsSingle; //FBorderStyle := bsSingle;
FButtonStyle := bsRectangle; FButtonStyle := bsRectangle;
@ -27450,6 +27450,12 @@ begin
Logger.Send([lcPaintHeader],'ClientRect',ClientRect); Logger.Send([lcPaintHeader],'ClientRect',ClientRect);
Logger.Send([lcPaintHeader],'TreeRect',GetTreeRect); Logger.Send([lcPaintHeader],'TreeRect',GetTreeRect);
Logger.Send([lcPaintHeader],'OffsetX: %d OffsetY: %d',[OffsetX,OffsetY]); 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 if not (tsPainting in FStates) then
begin begin
DoStateChange([tsPainting]); DoStateChange([tsPainting]);