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

Browse Source
This commit is contained in:
kieron
2018-05-01 17:34:47 +00:00
parent 8b7a8182b8
commit 6d8717a7fc
17 changed files with 148 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/prog/shell.pas
View File

@ -3,7 +3,7 @@ unit shell;
interface
uses
Console, RTC;
Console, RTC, terminal;
procedure init();
@ -49,6 +49,17 @@ begin
writeIntExWND(DateTime.Seconds, Colors, Handle);
end;
procedure OnMouseClick(x : uint32; y : uint32; left : boolean);
begin
//WriteIntLn(x);
//WriteIntLn(y);
if left then begin
if (y = 0) and (x < 10) then begin
terminal.run;
end;
end;
end;
procedure init();
begin
colors:= console.combinecolors($0000, $FFFF);
@ -58,6 +69,7 @@ begin
//console.clearWNDEx(Handle, colors);
console.setShellWindow(Handle, false);
console.registerEventHandler(Handle, EVENT_DRAW, void(@Draw));
console.registerEventHandler(Handle, EVENT_MOUSE_CLICK, void(@OnMouseClick));
end;
end.