From 11db30ab3d347f358f6ca5e86bc1640f8930c11c Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 8 Feb 2021 14:06:44 +0000
Subject: [PATCH] * use CP_OEMCP to convert characters in
 LegacyChar2ExtendedGraphemeCluster

git-svn-id: branches/unicodekvm@48533 -
---
 packages/rtl-console/src/inc/video.inc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-console/src/inc/video.inc b/packages/rtl-console/src/inc/video.inc
index 7928cd88f3..aee2ba58f4 100644
--- a/packages/rtl-console/src/inc/video.inc
+++ b/packages/rtl-console/src/inc/video.inc
@@ -313,8 +313,13 @@ begin
 end;
 
 function LegacyChar2ExtendedGraphemeCluster(const Ch: Char): UnicodeString;
+var
+  tmpS: RawByteString;
 begin
-  Result := Ch;
+  SetLength(tmpS, 1);
+  tmpS[1]:=Ch;
+  System.SetCodePage(tmpS,CP_OEMCP,False);
+  Result:=tmpS;
 end;
 
 procedure Enhanced2Legacy;