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

fix typo in previous commit

Browse Source 
git-svn-id: trunk@12253 -
This commit is contained in:
paul 2007-09-30 08:04:22 +00:00
parent 1a6c35994e
commit 3f32501f30
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32proc.pp
View File

@ -1056,7 +1056,8 @@ var
WindowInfo: PWindowInfo;
begin
// prevent recursive calling when the AppHandle window is disabled
If InDisableApplicationWindows then exit;
If InDisableApplicationWindows then
exit;
InDisableApplicationWindows:=true;
New(DisableWindowsInfo);
DisableWindowsInfo^.NewModalWindow := Window;
@ -1083,7 +1084,7 @@ begin
end;
end;
function EnumStatOnTopRemove(Handle: HWND; Param: LPARAM): WINBOOL; stdcall;
function EnumStayOnTopRemove(Handle: HWND; Param: LPARAM): WINBOOL; stdcall;
var
AStyle: DWord;
StayOnTopWindowsInfo: PStayOnTopWindowsInfo absolute Param;
@ -1108,7 +1109,7 @@ begin
WindowInfo := GetWindowInfo(Window);
WindowInfo^.StayOnTopList := StayOnTopWindowsInfo^.StayOnTopList;
EnumThreadWindows(GetWindowThreadProcessId(Window, nil),
@EnumStatOnTopRemove, LPARAM(StayOnTopWindowsInfo));
@EnumStayOnTopRemove, LPARAM(StayOnTopWindowsInfo));
Dispose(StayOnTopWindowsInfo);
end;