TEnhancedVideoBuf type

TEnhancedVideoBuf = 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