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

Gtk2: fixed mono bitmap creation on gtk2. issue #12362

Browse Source 
git-svn-id: trunk@35278 -
This commit is contained in:
zeljko 2012-02-10 06:41:22 +00:00
parent 948afeefd5
commit a48c391314
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -580,7 +580,7 @@ begin
if not (riqfUpdate in AFlags)
then ADesc.Init;
(*
if riqfMono in AFlags
then begin
ADesc.Format := ricfGray;
@ -598,7 +598,7 @@ begin
ADesc.BluePrec := 1;
ADesc.BlueShift := Desc.MaskShift;
end
(*
//TODO
else if riqfGrey in AFlags
then begin
@ -613,7 +613,7 @@ begin
ADesc.RedShift := 0;
end
*)
else if riqfRGB in AFlags
if (riqfMono in AFlags) or (riqfRGB in AFlags)
then begin
ADesc.Format := ricfRGBA;
ADesc.Depth := Desc.Depth;