paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 17:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* copy operator of TEnhancedVideoCell now copies the 8-bit foreground and background colors

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-03-16 08:08:24 +02:00
parent 61623c43ca
commit 3eae0213be
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-console/src/inc/video.inc
View File

@ -113,7 +113,8 @@ end;
class operator TEnhancedVideoCell.Copy(constref aSrc: TEnhancedVideoCell; var aDst: TEnhancedVideoCell); class operator TEnhancedVideoCell.Copy(constref aSrc: TEnhancedVideoCell; var aDst: TEnhancedVideoCell);
begin begin
aDst.ExtendedGraphemeCluster := aSrc.ExtendedGraphemeCluster; aDst.ExtendedGraphemeCluster := aSrc.ExtendedGraphemeCluster;
aDst.Attribute := aSrc.Attribute; aDst.FForegroundColor := aSrc.FForegroundColor;
aDst.FBackgroundColor := aSrc.FBackgroundColor;
end; end;
Const Const