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

fixed Set/GetPixel

Browse Source 
git-svn-id: trunk@2591 -
This commit is contained in:
mattias 2002-08-17 23:41:30 +00:00
parent fb7fe27231
commit 927a7f336d
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1327,19 +1327,19 @@ begin
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function GetControlWindow(Control: Pointer) : PGDKWindow; Function GetControlWindow(Widget: Pointer) : PGDKWindow;
Get the gdkwindow of a widget. Get the gdkwindow of a widget.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function GetControlWindow(Control: Pointer) : PGDKWindow; Function GetControlWindow(Widget: Pointer) : PGDKWindow;
begin begin
If Control <> nil then begin If Widget <> nil then begin
If not GTKWidgetIsA(PGTKWidget(Control), GTK_Layout_Get_Type) then If not GTKWidgetIsA(PGTKWidget(Widget), GTK_Layout_Get_Type) then
Result := PGTKWidget(Control)^.Window Result := PGTKWidget(Widget)^.Window
else else
Result := PGtkLayout(Control)^.bin_window; Result := PGtkLayout(Widget)^.bin_window;
end else end else
RaiseException('GetControlWindow Control=nil'); RaiseException('GetControlWindow Widget=nil');
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -4102,6 +4102,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.180 2003/06/13 10:09:04 mattias
fixed Set/GetPixel
Revision 1.179 2003/06/10 00:46:16 mattias Revision 1.179 2003/06/10 00:46:16 mattias
fixed aligning controls fixed aligning controls