From 927a7f336dd5ec461591b6c0e913897a157df5bb Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:30 +0000 Subject: [PATCH] fixed Set/GetPixel git-svn-id: trunk@2591 - --- lcl/interfaces/gtk/gtkproc.inc | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc index 5507014407..f920ec87e5 100644 --- a/lcl/interfaces/gtk/gtkproc.inc +++ b/lcl/interfaces/gtk/gtkproc.inc @@ -1327,19 +1327,19 @@ begin end; {------------------------------------------------------------------------------ - Function GetControlWindow(Control: Pointer) : PGDKWindow; + Function GetControlWindow(Widget: Pointer) : PGDKWindow; Get the gdkwindow of a widget. ------------------------------------------------------------------------------} -Function GetControlWindow(Control: Pointer) : PGDKWindow; +Function GetControlWindow(Widget: Pointer) : PGDKWindow; begin - If Control <> nil then begin - If not GTKWidgetIsA(PGTKWidget(Control), GTK_Layout_Get_Type) then - Result := PGTKWidget(Control)^.Window + If Widget <> nil then begin + If not GTKWidgetIsA(PGTKWidget(Widget), GTK_Layout_Get_Type) then + Result := PGTKWidget(Widget)^.Window else - Result := PGtkLayout(Control)^.bin_window; + Result := PGtkLayout(Widget)^.bin_window; end else - RaiseException('GetControlWindow Control=nil'); + RaiseException('GetControlWindow Widget=nil'); end; {------------------------------------------------------------------------------ @@ -4102,6 +4102,9 @@ end; { ============================================================================= $Log$ + Revision 1.180 2003/06/13 10:09:04 mattias + fixed Set/GetPixel + Revision 1.179 2003/06/10 00:46:16 mattias fixed aligning controls