paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 09:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed result of TGtk2WidgetSet.EnableWindow()

Browse Source 
git-svn-id: trunk@27547 -
This commit is contained in:
zeljko 2010-10-02 16:39:37 +00:00
parent 04c2eb89db
commit f80a1aaa04
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -2666,15 +2666,18 @@ end;
Params: hWnd: Params: hWnd:
bEnable: bEnable:
Returns: Returns:
If the window was previously disabled, the return value is TRUE.
If the window was not previously disabled, the return value is FALSE.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TGtk2WidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean; function TGtk2WidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
begin begin
Assert(False, Format('Trace: [TGtk2WidgetSet.EnableWindow] hWnd: 0x%x, Enable: %s', [hwnd, BOOL_TEXT[bEnable]])); Assert(False, Format('Trace: [TGtk2WidgetSet.EnableWindow] hWnd: 0x%x, Enable: %s', [hwnd, BOOL_TEXT[bEnable]]));
Result := False;
if hWnd <> 0 then if hWnd <> 0 then
gtk_widget_set_sensitive(pgtkwidget(hWnd), bEnable); begin
Result:=true; Result := not GTK_WIDGET_SENSITIVE(PGtkWidget(HWND));
gtk_widget_set_sensitive(PGtkWidget(hWnd), bEnable);
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------