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

This commit is contained in:
kieron 2018-05-05 17:46:43 +00:00
parent 7a7a9667d2
commit 37741b6cea
12 changed files with 18 additions and 6 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -315,6 +315,7 @@ var
UnhandledClick : Boolean = false; UnhandledClick : Boolean = false;
UnhandledClickLeft : Boolean = false; UnhandledClickLeft : Boolean = false;
MouseCursorEnabled : Boolean = true; MouseCursorEnabled : Boolean = true;
OpenTerminal : Boolean = false;
procedure mouseEnabled(b : boolean); procedure mouseEnabled(b : boolean);
begin begin
@ -703,6 +704,11 @@ var
SelectedWindow : uint32; SelectedWindow : uint32;
begin begin
if OpenTerminal then begin
terminal.run;
OpenTerminal:= false;
end;
{ Clear the Console_Matrix } { Clear the Console_Matrix }
for y:=0 to 63 do begin for y:=0 to 63 do begin
for x:=0 to 159 do begin for x:=0 to 159 do begin
@ -1072,9 +1078,15 @@ end;
procedure keyhook(key_info : TKeyInfo); procedure keyhook(key_info : TKeyInfo);
begin begin
if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin if (key_info.CTRL_DOWN) and (key_info.ALT_DOWN) then begin
if WindowManager.Windows[WindowManager.Z_Order[0]] <> nil then begin case key_info.key_code of
if WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed <> nil then WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed(key_info); uint8('c'):OpenTerminal:=true;
end;
end else begin
if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin
if WindowManager.Windows[WindowManager.Z_Order[0]] <> nil then begin
if WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed <> nil then WindowManager.Windows[WindowManager.Z_Order[0]]^.Hooks.OnKeyPressed(key_info);
end;
end; end;
end; end;
end; end;

View File

@ -3,13 +3,13 @@ unit asuro;
interface interface
const const
VERSION = '1.0.0-660a'; VERSION = '1.0.0-661a';
VERSION_MAJOR = '1'; VERSION_MAJOR = '1';
VERSION_MINOR = '0'; VERSION_MINOR = '0';
VERSION_SUB = '0'; VERSION_SUB = '0';
REVISION = '660'; REVISION = '661';
RELEASE = 'a'; RELEASE = 'a';
LINE_COUNT = 26872; LINE_COUNT = 26884;
implementation implementation