Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@633 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-01 14:07:36 +00:00
parent b94a5932a2
commit 0618e0a10a
12 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/console.pas
View File

@ -356,14 +356,22 @@ end;
procedure RemoveFromZOrder(WND : HWND);
var
i : uint32;
idx : uint32;
begin
idx:= MAX_WINDOWS;
for i:=0 to MAX_WINDOWS-1 do begin
if WindowManager.Z_Order[i] = WND then begin
WindowManager.Z_Order[i]:= MAX_WINDOWS;
idx:= i;
break;
end;
end;
if idx <> MAX_WINDOWS then begin
for i:=idx to MAX_WINDOWS-1 do begin
WindowManager.Z_Order[i]:= WindowManager.Z_Order[i+1];
end;
end;
end;
procedure FocusZOrder(WND : HWND);