paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 20:00:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minor improvement to the X11 screen format code

Browse Source 
git-svn-id: trunk@36722 -
This commit is contained in:
sekelsenmat 2012-04-11 08:39:16 +00:00
parent c74dcfc14e
commit 69b548980c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/customdrawn/customdrawnobject_x11.inc
View File

@ -159,7 +159,6 @@ var
DW,DH,DWMM,DHMM: culong;
I: Integer;
APVisual: PVisual;
begin
{$ifdef Verbose_CDWS}
// DebugLn('TCDWidgetSet.AppInit');
@ -203,9 +202,12 @@ begin
ScreenInfo.ColorDepth:= XDefaultDepth(FDisplay,FScreen);
ScreenInfo.Initialized:= True;
// Pixmap Format
// Screen Pixmap Format
// ScreenFormat is just a hint to tell controls to use the screen format
// because using the same format as the screen increases the speed of canvas copy operations
APVisual:= XDefaultVisual(FDisplay,FScreen);
FVisual:= APVisual^;
ScreenFormat := clfARGB32; // Standard value with alpha blending support if we don't find a enum which matches the screen format
if (ScreenInfo.ColorDepth = 16) then ScreenFormat:= clfRGB16_R5G6B5
else if (ScreenInfo.ColorDepth = 24) then begin
if (FVisual.blue_mask = $FF) and
@ -231,7 +233,6 @@ begin
(FVisual.blue_mask = $FF000000) then
ScreenFormat:= clfARGB32;
end;
//ScreenFormat := clfBGR24;
//if (not (woX11SkipWMHints in WindowOptions)) and (woWindow in WindowOptions) then
//begin