+ added operator = for comparison of TEnhancedVideoCell records

git-svn-id: branches/unicodekvm@48531 -

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

@@ -13,6 +13,11 @@
 
 { TEnhancedVideoCell }
 
+operator = (const a,b : TEnhancedVideoCell) res: Boolean;
+begin
+  res:=(a.Attribute=b.Attribute) and (a.ExtendedGraphemeCluster = b.ExtendedGraphemeCluster);
+end;
+
 function TEnhancedVideoCell.GetAttribute: Byte;
 begin
   GetAttribute := Byte(FAttributes);

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

@@ -142,6 +142,8 @@ const {The following constants were variables in the past.
 
       FVMaxWidth = 240;
 
+operator = (const a,b : TEnhancedVideoCell) res: Boolean;
+
 Procedure LockScreenUpdate;
 { Increments the screen update lock count with one.}
 Procedure UnlockScreenUpdate;