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

win32: don't use LCLIntf ShowWindow in win32 interface

Browse Source 
git-svn-id: trunk@24712 -
This commit is contained in:
paul 2010-04-19 07:56:48 +00:00
parent f3ce045d4b
commit fe58688a50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32object.inc
View File

@ -504,9 +504,9 @@ end;
procedure TWin32WidgetSet.AppSetVisible(const AVisible: Boolean); procedure TWin32WidgetSet.AppSetVisible(const AVisible: Boolean);
begin begin
if AVisible then if AVisible then
ShowWindow(FAppHandle, SW_SHOW) Windows.ShowWindow(FAppHandle, SW_SHOW)
else else
ShowWindow(FAppHandle, SW_HIDE); Windows.ShowWindow(FAppHandle, SW_HIDE);
end; end;
function TWin32WidgetSet.AppRemoveStayOnTopFlags: Boolean; function TWin32WidgetSet.AppRemoveStayOnTopFlags: Boolean;