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

Browse Source
This commit is contained in:
kieron
2018-05-01 20:45:42 +00:00
parent de17203bf7
commit 9915c45e00
13 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/prog/memview.pas
View File

@ -3,7 +3,7 @@ unit memview;
interface
uses
console, terminal;
console, terminal, keyboard;
procedure init();
@ -63,6 +63,16 @@ begin
end;
end;
procedure OnKeyPressed(info : TKeyInfo);
begin
if info.key_code = 16 then begin
dec(MEM_LOC, 16);
end;
if info.key_code = 18 then begin
inc(MEM_LOC, 16);
end;
end;
procedure run(Params : PParamList);
var
loc : PChar;
@ -87,6 +97,7 @@ begin
Handle:= newWindow(20, 40, 63, 14, 'MEMVIEW');
registerEventHandler(Handle, EVENT_DRAW, void(@Draw));
registerEventHandler(Handle, EVENT_CLOSE, void(@OnClose));
registerEventHandler(Handle, EVENT_KEY_PRESSED, void(@OnKeyPressed));
writestringWND('Memview started at location: ', getTerminalHWND);
end else begin
writestringWND('Memview location changed to: ', getTerminalHWND);

1
src/prog/terminal.pas
View File

@ -341,6 +341,7 @@ end;
procedure key_event(info : TKeyInfo);
begin
if TERMINAL_HWND <> 0 then begin
//writeintlnWND(info.key_code, TERMINAL_HWND);
if (info.key_code >= 32) and (info.key_code <= 126) then begin
if bIndex < 1024 then begin
buffer[bIndex]:= info.key_code;