diff --git a/Examples/Console/DateTime/DateTime.dpr b/Examples/Console/DateTime/DateTime.dpr index 1fec5a2..4383d21 100644 --- a/Examples/Console/DateTime/DateTime.dpr +++ b/Examples/Console/DateTime/DateTime.dpr @@ -7,7 +7,7 @@ var CursorXY: TCursorXY; begin - InitConsole('Date/Time'); + InitConsole('Date/Time', True); CursorOff; GotoXY(27, 11); diff --git a/Examples/Console/GetCurrentDir/GetCurrentDir.dpr b/Examples/Console/GetCurrentDir/GetCurrentDir.dpr index 4cf13fa..ddfadd6 100644 --- a/Examples/Console/GetCurrentDir/GetCurrentDir.dpr +++ b/Examples/Console/GetCurrentDir/GetCurrentDir.dpr @@ -13,7 +13,7 @@ var Buffer: array[0..BUFFER_SIZE - 1] of KolibriChar; begin - InitConsole('Get Current Directory', False); + InitConsole('Get Current Directory'); GetCurrentDirectory(Buffer, BUFFER_SIZE); diff --git a/Examples/Console/Hello/Hello.dpr b/Examples/Console/Hello/Hello.dpr index 7f2b6f8..d424d38 100644 --- a/Examples/Console/Hello/Hello.dpr +++ b/Examples/Console/Hello/Hello.dpr @@ -6,5 +6,4 @@ uses begin InitConsole('Hello'); WriteLn('Hello, world!'); - ReadKey; end. diff --git a/Examples/Console/LoadFile/LoadFile.dpr b/Examples/Console/LoadFile/LoadFile.dpr index f86292b..60bd553 100644 --- a/Examples/Console/LoadFile/LoadFile.dpr +++ b/Examples/Console/LoadFile/LoadFile.dpr @@ -8,7 +8,7 @@ var Buffer: Pointer; begin - InitConsole('Load File', False); + InitConsole('Load File'); Buffer := LoadFile('/sys/example.asm', FileSize); WriteLn(Buffer, FileSize); end. diff --git a/Examples/Console/ReadFolder/ReadFolder.dpr b/Examples/Console/ReadFolder/ReadFolder.dpr index 1f11e6b..cdf79c8 100644 --- a/Examples/Console/ReadFolder/ReadFolder.dpr +++ b/Examples/Console/ReadFolder/ReadFolder.dpr @@ -17,7 +17,7 @@ var Pos: LongWord; begin - InitConsole('Read Folder', False); + InitConsole('Read Folder'); if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then with FolderInformation do diff --git a/Lib/CRT.pas b/Lib/CRT.pas index 0a938cb..48eb461 100644 --- a/Lib/CRT.pas +++ b/Lib/CRT.pas @@ -32,7 +32,7 @@ const Yellow = 14; 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); procedure SetTitle(Title: PKolibriChar);