paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 04:39:28 +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:
bEnable:
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;
begin
Assert(False, Format('Trace: [TGtk2WidgetSet.EnableWindow] hWnd: 0x%x, Enable: %s', [hwnd, BOOL_TEXT[bEnable]]));
Result := False;
if hWnd <> 0 then
gtk_widget_set_sensitive(pgtkwidget(hWnd), bEnable);
Result:=true;
begin
Result := not GTK_WIDGET_SENSITIVE(PGtkWidget(HWND));
gtk_widget_set_sensitive(PGtkWidget(hWnd), bEnable);
end;
end;
{------------------------------------------------------------------------------