diff --git a/Examples/Console/CharMap/CharMap.dpr b/Examples/Console/CharMap/CharMap.dpr new file mode 100644 index 0000000..fd7e219 --- /dev/null +++ b/Examples/Console/CharMap/CharMap.dpr @@ -0,0 +1,30 @@ +program CharMap; + +uses + CRT; + +const + HexDigits: array[$0..$F] of KolibriChar = '0123456789ABCDEF'; + +var + CharLine: array[$0..$F] of KolibriChar; + Line, Ch: Byte; +begin + InitConsole('Character map'); + + con_write_asciiz(' '); + con_write_string(HexDigits, Length(HexDigits)); + con_write_asciiz(#10); + + for Line := Low(HexDigits) to High(HexDigits) do + begin + con_write_string(@HexDigits[Line], 1); + con_write_asciiz(' '); + for Ch := Low(CharLine) to High(CharLine) do + CharLine[Ch] := Chr(Line shl 4 + Ch); + con_set_flags(con_get_flags or CON_IGNORE_SPECIALS); + con_write_string(CharLine, Length(CharLine)); + con_set_flags(con_get_flags and not CON_IGNORE_SPECIALS); + con_write_asciiz(#10); + end; +end. diff --git a/Examples/Console/CharMap/build.bat b/Examples/Console/CharMap/build.bat new file mode 100644 index 0000000..34bf7c0 --- /dev/null +++ b/Examples/Console/CharMap/build.bat @@ -0,0 +1 @@ +@call "%~dp0..\..\..\Lib\build.bat" "%~dp0CharMap" \ No newline at end of file diff --git a/Examples/Examples.bpg b/Examples/Examples.bpg index 9b998bf..49f0aba 100644 --- a/Examples/Examples.bpg +++ b/Examples/Examples.bpg @@ -9,13 +9,16 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = ColorButtons.exe ConsoleColors.exe DateTime.exe DrawImage.exe DrawImageEx.exe DrawText.exe \ - Echo.exe GetCurrentDirectory.exe GetPixel.exe GetPointOwner.exe Hello.exe HelloGUI.exe LoadFile.exe \ - ReadFolder.exe Screenshot.exe SetCursor.exe SetPixel.exe SetWindowPos.exe +PROJECTS = CharMap.exe ColorButtons.exe ConsoleColors.exe DateTime.exe DrawImage.exe DrawImageEx.exe DrawText.exe \ + Echo.exe GetCurrentDirectory.exe GetPixel.exe GetPointOwner.exe Hello.exe HelloGUI.exe LoadFile.exe ReadFolder.exe \ + Screenshot.exe SetCursor.exe SetPixel.exe SetWindowPos.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ +CharMap.exe: Console\CharMap\CharMap.dpr + $(DCC) + ColorButtons.exe: GUI\ColorButtons\ColorButtons.dpr $(DCC)