OldEnhancedVideoBuf¶

var
  OldEnhancedVideoBuf: Array of TEnhancedVideoCell = record
private
  TEnhancedVideoCell.class operator initialize
                                              (var evc: TEnhancedVideoCell);
  TEnhancedVideoCell.class operator finalize(var evc: TEnhancedVideoCell);
  TEnhancedVideoCell.class operator addref(var evc: TEnhancedVideoCell);
  TEnhancedVideoCell.class operator copy
                                        (constref aSrc: TEnhancedVideoCell; 
                                        var aDst: TEnhancedVideoCell);
  function GetExtendedGraphemeCluster : UnicodeString;
  procedure SetExtendedGraphemeCluster
                                      (const AExtendedGraphemeCluster: UnicodeString);
  function GetAttribute : Byte;
  procedure SetAttribute(Attr: Byte);
  function GetEnhancedVideoAttributes : TEnhancedVideoAttributes;
  procedure SetEnhancedVideoAttributes
                                      (AEnhancedVideoAttributes: TEnhancedVideoAttributes);
  function GetForegroundColor : Byte;
  procedure SetForegroundColor(AForegroundColor: Byte);
  function GetBackgroundColor : Byte;
  procedure SetBackgroundColor(ABackgroundColor: Byte);
public
  property ExtendedGraphemeCluster : UnicodeString;
  property Attribute : Byte;
  property EnhancedVideoAttributes : TEnhancedVideoAttributes;
  property ForegroundColor : Byte;
  property BackgroundColor : Byte;
private
  FInternalAttributes : Word;
  FForegroundColor : Byte;
  FBackgroundColor : Byte;
case Integer of
0: (
  EGC_SingleChar : WideChar;
);
1: (
  EGC_WideStr : Pointer;
);
end
;