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

Qt: fixed result of TQtWidgetSet.SetForegroundWindow()

Browse Source 
git-svn-id: trunk@27599 -
This commit is contained in:
zeljko 2010-10-07 09:38:55 +00:00
parent ca6f8ce58c
commit 376cb466ca
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtwidgets.pas
View File

@ -222,6 +222,7 @@ type
function getWindowState: QtWindowStates;
procedure grabMouse; virtual;
function hasFocus: Boolean; virtual;
function IsActiveWindow: Boolean;
function isMinimized: Boolean;
function isMaximized: Boolean;
function IsWindow: Boolean;
@ -3535,6 +3536,11 @@ begin
Result := QWidget_hasFocus(Widget);
end;
function TQtWidget.IsActiveWindow: Boolean;
begin
Result := QWidget_isActiveWindow(Widget);
end;
function TQtWidget.isMinimized: Boolean;
begin
Result := QWidget_isMinimized(Widget);

9
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4898,9 +4898,12 @@ end;
function TQtWidgetSet.SetForegroundWindow(HWnd: HWND): boolean;
begin
TQtWidget(HWnd).Activate;
Result := True;
Result := False;
if HWND <> 0 then
begin
Result := TQtWidget(HWND).IsActiveWindow;
TQtWidget(HWnd).Activate;
end;
end;
function TQtWidgetSet.SetMenu(AWindowHandle: HWND; AMenuHandle: HMENU): Boolean;