Window captions of some example projects set to their actual names

This commit is contained in:
Владислав Джавадов 2020-05-29 01:14:16 +03:00
parent a400afb119
commit 72eaac205a
4 changed files with 4 additions and 4 deletions

View File

@ -26,7 +26,7 @@ begin
CurX := 0;
CurY := 0;
BeginDraw;
DrawWindow(Left, Top, Right, Bottom, 'Get Key', $00FFFFFF,
DrawWindow(Left, Top, Right, Bottom, 'Please type text to draw', $00FFFFFF,
WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
EndDraw;
end;

View File

@ -23,7 +23,7 @@ begin
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
printf := GetProcAddress(hConsole, 'con_printf');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Get Current Directory');
GetCurrentDirectory(Buffer, BUFFER_SIZE);

View File

@ -18,7 +18,7 @@ begin
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
WriteN := GetProcAddress(hConsole, 'con_write_string');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Load File');
Buffer := LoadFile('/sys/example.asm', FileSize);
WriteN(Buffer, FileSize);

View File

@ -37,7 +37,7 @@ begin
end
else
begin
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'ReadFolder');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Read Folder');
printf('Folder "%s" can not be read.'#10, FolderPath);
end;