git-svn-id: https://spexeah.com:8443/svn/Asuro@662 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
1 parent
7a7a9667d2
commit
37741b6cea
12 files changed
+18
-6
No files matched your search
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.
+15
-3
@@ -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;
|
||||||
|
|||||||
@@ -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
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user