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

Fixed crash for linux 64bit. also will compile for fpc 2.0.4

Browse Source 
git-svn-id: trunk@12591 -
This commit is contained in:
andrew 2007-10-26 03:12:48 +00:00
parent d9d3e3ca2a
commit a9d5aa40ef
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2196,7 +2196,7 @@ var
SrcStartBit := 7;
ShiftInc := -1;
{$ifdef HasX}
XImage := PPointer(AImage+1)^;
XImage := gdk_x11_image_get_ximage(AImage);
if XImage^.bitmap_bit_order = LSBFirst
then begin
SrcStartBit := 0;

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

@ -1464,7 +1464,7 @@ begin
{$ifdef hasx}
if AImage = nil then Exit;
XImage := PPointer(AImage+1)^;
XImage := gdk_x11_image_get_ximage(AImage);
if XImage^.bitmap_bit_order = LSBFirst then Exit;
{$endif}

1
lcl/interfaces/gtk2/gtk2extrah.inc
View File

@ -42,6 +42,7 @@ var
gdk_display: PDisplay; external gdklib name 'gdk_display';
function gdk_window_xwindow(win : PGdkDrawable): TXID; cdecl; external gdklib name 'gdk_x11_drawable_get_xid';
function gdk_x11_image_get_ximage(image:PGdkImage):PXImage;cdecl;external gdklib name 'gdk_x11_image_get_ximage';
{$endif}