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;
UnhandledClickLeft : Boolean = false;
MouseCursorEnabled : Boolean = true;
OpenTerminal : Boolean = false;
procedure mouseEnabled(b : boolean);
begin
@ -703,6 +704,11 @@ var
SelectedWindow : uint32;
begin
if OpenTerminal then begin
terminal.run;
OpenTerminal:= false;
end;
{ Clear the Console_Matrix }
for y:=0 to 63 do begin
for x:=0 to 159 do begin
@ -1072,9 +1078,15 @@ end;
procedure keyhook(key_info : TKeyInfo);
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);
if (key_info.CTRL_DOWN) and (key_info.ALT_DOWN) then begin
case key_info.key_code of
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;

View File

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