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

CRT.TextAttribute → TextAttr, for compatibility to original CRT

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-09 22:05:24 +03:00
parent 6f73b7be3f
commit d9cb4352b5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Lib/CRT.pas
View File

@ -42,8 +42,9 @@ function WhereY: Integer;
function WhereXY: TCursorXY;
function NormVideo: LongWord; // reset text attributes
function TextAttribute: Byte; overload;
function TextAttribute(Color, Background: Byte): LongWord; overload;
function TextAttr: Byte; overload;
function TextAttr(Attr: Byte): LongWord; overload;
function TextAttr(Color, Background: Byte): LongWord; overload;
function TextBackground: Byte; overload;
function TextBackground(Color: Byte): LongWord; overload;
function TextColor: Byte; overload;
@ -126,12 +127,17 @@ begin
Result := SetFlags(GetFlags and $300 or $07);
end;
function TextAttribute: Byte;
function TextAttr: Byte;
begin
Result := GetFlags and $FF;
end;
function TextAttribute(Color, Background: Byte): LongWord;
function TextAttr(Attr: Byte): LongWord;
begin
Result := SetFlags(GetFlags and $300 or Attr);
end;
function TextAttr(Color, Background: Byte): LongWord;
begin
Result := SetFlags(GetFlags and $300 or Color and $0F or Background and $0F shl 4);
end;