+ added properties TEnhancedVideoCell.ForegroundColor and .BackgroundColor,

  which can store up to 256 colors

packages/rtl-console/src/inc/video.inc

@@ -23,17 +23,40 @@ const
 
 operator = (const a,b : TEnhancedVideoCell) res: Boolean;
 begin
-  res:=(a.Attribute=b.Attribute) and (a.ExtendedGraphemeCluster = b.ExtendedGraphemeCluster);
+  res:=(a.FForegroundColor=b.FForegroundColor) and
+       (a.FBackgroundColor=b.FBackgroundColor) and
+       (a.ExtendedGraphemeCluster = b.ExtendedGraphemeCluster);
 end;
 
 function TEnhancedVideoCell.GetAttribute: Byte;
 begin
-  GetAttribute := Byte(FAttributes);
+  GetAttribute := (FForegroundColor and $0F) or Byte(FBackgroundColor shl 4);
 end;
 
 procedure TEnhancedVideoCell.SetAttribute(Attr: Byte);
 begin
-  FAttributes := (FAttributes and $FF00) or Attr;
+  FForegroundColor := Attr and $0F;
+  FBackgroundColor := Attr shr 4;
+end;
+
+function TEnhancedVideoCell.GetForegroundColor: Byte;
+begin
+  GetForegroundColor := FForegroundColor;
+end;
+
+procedure TEnhancedVideoCell.SetForegroundColor(AForegroundColor: Byte);
+begin
+  FForegroundColor := AForegroundColor;
+end;
+
+function TEnhancedVideoCell.GetBackgroundColor: Byte;
+begin
+  GetBackgroundColor := FBackgroundColor;
+end;
+
+procedure TEnhancedVideoCell.SetBackgroundColor(ABackgroundColor: Byte);
+begin
+  FBackgroundColor := ABackgroundColor;
 end;
 
 function TEnhancedVideoCell.GetExtendedGraphemeCluster: UnicodeString;
@@ -69,6 +92,8 @@ end;
 class operator TEnhancedVideoCell.Initialize(var evc: TEnhancedVideoCell);
 begin
   evc.FAttributes := 0;
+  evc.ForegroundColor := 0;
+  evc.BackgroundColor := 0;
 end;
 
 class operator TEnhancedVideoCell.Finalize(var evc: TEnhancedVideoCell);

packages/rtl-console/src/inc/videoh.inc

@@ -38,12 +38,20 @@ type
     procedure SetExtendedGraphemeCluster(const AExtendedGraphemeCluster: UnicodeString);
     function GetAttribute: Byte;
     procedure SetAttribute(Attr: Byte);
+    function GetForegroundColor: Byte;
+    procedure SetForegroundColor(AForegroundColor: Byte);
+    function GetBackgroundColor: Byte;
+    procedure SetBackgroundColor(ABackgroundColor: Byte);
   public
     property ExtendedGraphemeCluster: UnicodeString read GetExtendedGraphemeCluster write SetExtendedGraphemeCluster;
     property Attribute: Byte read GetAttribute write SetAttribute;
+    property ForegroundColor: Byte read GetForegroundColor write SetForegroundColor;
+    property BackgroundColor: Byte read GetBackgroundColor write SetBackgroundColor;
 
   private
     FAttributes: Word;
+    FForegroundColor : Byte;
+    FBackgroundColor : Byte;
     case integer of
       0: (EGC_SingleChar: WideChar);
       1: (EGC_WideStr: Pointer);