Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Terminal

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@214 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2017-10-23 06:27:53 +00:00
parent 9d27e6cb0f
commit 0478535819
47 changed files with 80 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/console.pas
View File

@ -77,6 +77,8 @@ procedure writebin32ln(b : uint32);
procedure writebin32ex(b : uint32; attributes : char);
procedure writebin32lnex(b : uint32; attributes : char);
procedure backspace;
function combinecolors(Foreground, Background : TColor) : char;
procedure _increment_x();
@ -440,6 +442,14 @@ begin
outb($3D5, b);
end;
procedure backspace;
begin
Dec(Console_Cursor.X);
writechar(' ');
Dec(Console_Cursor.X);
_update_cursor();
end;
procedure _increment_x(); [public, alias: '_console_increment_x'];
begin
Console_Cursor.X:= Console_Cursor.X+1;