Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-09-19 17:41:01 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't close console window by default

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-12 12:01:19 +03:00
parent 7b632d7d69
commit c0078559bb
6 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,7 +7,7 @@ var
CursorXY: TCursorXY; CursorXY: TCursorXY;
begin begin
InitConsole('Date/Time'); InitConsole('Date/Time', True);
CursorOff; CursorOff;
GotoXY(27, 11); GotoXY(27, 11);

2
Examples/Console/GetCurrentDir/GetCurrentDir.dpr
View File

@ -13,7 +13,7 @@ var
Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar; Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar;
begin begin
InitConsole('Get Current Directory', False); InitConsole('Get Current Directory');
GetCurrentDirectory(Buffer, BUFFER_SIZE); GetCurrentDirectory(Buffer, BUFFER_SIZE);

1
Examples/Console/Hello/Hello.dpr
View File

@ -6,5 +6,4 @@ uses
begin begin
InitConsole('Hello'); InitConsole('Hello');
WriteLn('Hello, world!'); WriteLn('Hello, world!');
ReadKey;
end. end.

2
Examples/Console/LoadFile/LoadFile.dpr
View File

@ -8,7 +8,7 @@ var
Buffer: Pointer; Buffer: Pointer;
begin begin
InitConsole('Load File', False); InitConsole('Load File');
Buffer := LoadFile('/sys/example.asm', FileSize); Buffer := LoadFile('/sys/example.asm', FileSize);
WriteLn(Buffer, FileSize); WriteLn(Buffer, FileSize);
end. end.

2
Examples/Console/ReadFolder/ReadFolder.dpr
View File

@ -17,7 +17,7 @@ var
Pos: LongWord; Pos: LongWord;
begin begin
InitConsole('Read Folder', False); InitConsole('Read Folder');
if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then
with FolderInformation do with FolderInformation do

2
Lib/CRT.pas
View File

@ -32,7 +32,7 @@ const
Yellow = 14; Yellow = 14;
White = 15; White = 15;
procedure InitConsole(Title: PKolibriChar; CloseWindowOnExit: Boolean = True; procedure InitConsole(Title: PKolibriChar; CloseWindowOnExit: Boolean = False;
WndWidth: LongWord = $FFFFFFFF; WndHeight: LongWord = $FFFFFFFF; ScrWidth: LongWord = $FFFFFFFF; ScrHeight: LongWord = $FFFFFFFF); WndWidth: LongWord = $FFFFFFFF; WndHeight: LongWord = $FFFFFFFF; ScrWidth: LongWord = $FFFFFFFF; ScrHeight: LongWord = $FFFFFFFF);
procedure SetTitle(Title: PKolibriChar); procedure SetTitle(Title: PKolibriChar);