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@668 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-06 05:58:03 +00:00
parent fee4e4d759
commit b9d6225cb8
71 changed files with 31 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/console.pas
View File

@ -201,6 +201,7 @@ procedure _MouseUp();
procedure _MouseClick(left : boolean);
procedure setWindowColors(colors : uint32);
function getWindowColorPtr : puint32;
implementation
@ -319,6 +320,11 @@ var
MouseCursorEnabled : Boolean = true;
OpenTerminal : Boolean = false;
function getWindowColorPtr : puint32;
begin
getWindowColorPtr:= @Window_Border.Attributes;
end;
procedure setWindowColors(colors : uint32);
begin
Window_Border.Attributes:= colors;
@ -1087,6 +1093,7 @@ begin
if (key_info.CTRL_DOWN) and (key_info.ALT_DOWN) then begin
case key_info.key_code of
uint8('c'):OpenTerminal:=true;
uint8('r'):resetSystem;
end;
end else begin
if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin