Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-23 15:43:50 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

KoW for console applications added

Browse Source
This commit is contained in:
Владислав Джавадов
2021-01-08 18:39:17 +03:00
parent 305cd924f7
commit 5f3fca1705
29 changed files with 824 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Examples/Console/DateTime/DateTime.dpr
View File

@@ -7,20 +7,18 @@ var
CursorXY: TCursorXY;
begin
InitConsole('Date/Time');
InitConsole('Date/Time', True, 80, 25, 80, 25);
CursorOff;
GotoXY(27, 11);
GotoXY(27, 12);
Write(
'System Date and System Time'#10 +
' '
' '
);
CursorXY := WhereXY;
repeat
with GetSystemDate do
con_printf('%02x.%02x.%02x', Day, Month, Year);
with GetSystemTime do
con_printf(' - %02x:%02x:%02x', Hours, Minutes, Seconds);
with GetSystemDate, GetSystemTime do
con_printf('%02x.%02x.%02x - %02x:%02x:%02x', Day, Month, Year, Hours, Minutes, Seconds);
GotoXY(CursorXY);
Delay(500);
until KeyPressed;