mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 17:41:01 +02:00
CRT.TextAttribute → TextAttr, for compatibility to original CRT
This commit is contained in:
parent
6f73b7be3f
commit
d9cb4352b5
14
Lib/CRT.pas
14
Lib/CRT.pas
@ -42,8 +42,9 @@ function WhereY: Integer;
|
|||||||
function WhereXY: TCursorXY;
|
function WhereXY: TCursorXY;
|
||||||
|
|
||||||
function NormVideo: LongWord; // reset text attributes
|
function NormVideo: LongWord; // reset text attributes
|
||||||
function TextAttribute: Byte; overload;
|
function TextAttr: Byte; overload;
|
||||||
function TextAttribute(Color, Background: Byte): LongWord; overload;
|
function TextAttr(Attr: Byte): LongWord; overload;
|
||||||
|
function TextAttr(Color, Background: Byte): LongWord; overload;
|
||||||
function TextBackground: Byte; overload;
|
function TextBackground: Byte; overload;
|
||||||
function TextBackground(Color: Byte): LongWord; overload;
|
function TextBackground(Color: Byte): LongWord; overload;
|
||||||
function TextColor: Byte; overload;
|
function TextColor: Byte; overload;
|
||||||
@ -126,12 +127,17 @@ begin
|
|||||||
Result := SetFlags(GetFlags and $300 or $07);
|
Result := SetFlags(GetFlags and $300 or $07);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TextAttribute: Byte;
|
function TextAttr: Byte;
|
||||||
begin
|
begin
|
||||||
Result := GetFlags and $FF;
|
Result := GetFlags and $FF;
|
||||||
end;
|
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
|
begin
|
||||||
Result := SetFlags(GetFlags and $300 or Color and $0F or Background and $0F shl 4);
|
Result := SetFlags(GetFlags and $300 or Color and $0F or Background and $0F shl 4);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user