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

Fixed compiliation for gtk1

Browse Source 
git-svn-id: trunk@12592 -
This commit is contained in:
andrew 2007-10-26 03:27:50 +00:00
parent a9d5aa40ef
commit d20f251adf
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtk1object.inc
View File

@ -2196,7 +2196,11 @@ var
SrcStartBit := 7; SrcStartBit := 7;
ShiftInc := -1; ShiftInc := -1;
{$ifdef HasX} {$ifdef HasX}
{$IFDEF Gtk1}
XImage := PGdkImagePrivate(AImage)^.ximage;
{$ELSE}
XImage := gdk_x11_image_get_ximage(AImage); XImage := gdk_x11_image_get_ximage(AImage);
{$ENDIF}
if XImage^.bitmap_bit_order = LSBFirst if XImage^.bitmap_bit_order = LSBFirst
then begin then begin
SrcStartBit := 0; SrcStartBit := 0;

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1464,7 +1464,11 @@ begin
{$ifdef hasx} {$ifdef hasx}
if AImage = nil then Exit; if AImage = nil then Exit;
{$IFDEF Gtk1}
XImage := PGdkImagePrivate(AImage)^.ximage;
{$ELSE}
XImage := gdk_x11_image_get_ximage(AImage); XImage := gdk_x11_image_get_ximage(AImage);
{$ENDIF}
if XImage^.bitmap_bit_order = LSBFirst then Exit; if XImage^.bitmap_bit_order = LSBFirst then Exit;
{$endif} {$endif}
@ -5770,7 +5774,7 @@ begin
if CanRequestAlpha then Exit; // we're done if CanRequestAlpha then Exit; // we're done
if not AIncludeAplha then Exit; if not AIncludeAplha then Exit;
{$ifdef VER2_0} {$if defined(VER2_0) or defined(GTK1)}
pixbuf := gdk_pixbuf_add_alpha(Result, false, #0,#0,#0); pixbuf := gdk_pixbuf_add_alpha(Result, false, #0,#0,#0);
{$else} {$else}
pixbuf := gdk_pixbuf_add_alpha(Result, false, 0,0,0); pixbuf := gdk_pixbuf_add_alpha(Result, false, 0,0,0);