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

Console character map example added

Browse Source
This commit is contained in:
Владислав Джавадов 2021-01-03 04:32:36 +03:00
parent 24094ee87c
commit 731fbb7c1b
3 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Examples/Console/CharMap/CharMap.dpr Normal file
View File

@ -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.

1
Examples/Console/CharMap/build.bat Normal file
View File

@ -0,0 +1 @@
@call "%~dp0..\..\..\Lib\build.bat" "%~dp0CharMap"

9
Examples/Examples.bpg
View File

@ -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)