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

gtk intf: fixed compilation under fpc 2.3.1

Browse Source 
git-svn-id: trunk@11059 -
This commit is contained in:
mattias 2007-05-03 07:40:22 +00:00
parent bfe4a7f795
commit 501538a5df
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1265,7 +1265,7 @@ begin
{$IFDEF VerboseGdkPixbuf} {$IFDEF VerboseGdkPixbuf}
debugln('ScalePixmap A1'); debugln('ScalePixmap A1');
{$ENDIF} {$ENDIF}
gdk_pixbuf_render_pixmap_and_mask(ScaleDest,NewPixmap,DummyMask,0); gtkextra.gdk_pixbuf_render_pixmap_and_mask(ScaleDest,NewPixmap,DummyMask,0);
{$IFDEF VerboseGdkPixbuf} {$IFDEF VerboseGdkPixbuf}
debugln('ScalePixmap A2'); debugln('ScalePixmap A2');
{$ENDIF} {$ENDIF}

1
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1233,7 +1233,6 @@ class procedure TGtk2WSCustomComboBox.DestroyHandle(
var var
Handle: HWND; Handle: HWND;
ComboWidget: PGtkWidget; ComboWidget: PGtkWidget;
ItemList: TGtkListStoreStringList;
begin begin
Handle := AWinControl.Handle; Handle := AWinControl.Handle;
ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget; ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget;