paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:22:54 +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) if not (riqfUpdate in AFlags)
then ADesc.Init; then ADesc.Init;
(*
if riqfMono in AFlags if riqfMono in AFlags
then begin then begin
ADesc.Format := ricfGray; ADesc.Format := ricfGray;
@ -598,7 +598,7 @@ begin
ADesc.BluePrec := 1; ADesc.BluePrec := 1;
ADesc.BlueShift := Desc.MaskShift; ADesc.BlueShift := Desc.MaskShift;
end end
(*
//TODO //TODO
else if riqfGrey in AFlags else if riqfGrey in AFlags
then begin then begin
@ -613,7 +613,7 @@ begin
ADesc.RedShift := 0; ADesc.RedShift := 0;
end end
*) *)
else if riqfRGB in AFlags if (riqfMono in AFlags) or (riqfRGB in AFlags)
then begin then begin
ADesc.Format := ricfRGBA; ADesc.Format := ricfRGBA;
ADesc.Depth := Desc.Depth; ADesc.Depth := Desc.Depth;