From 8dc55d82942d36a5723b2b97f4ec5699563edb14 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 10 Feb 2021 23:53:02 +0000
Subject: [PATCH] + unicode fix in TDesktop.InitBackground

git-svn-id: branches/unicodekvm@48648 -
---
 packages/fv/src/app.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/fv/src/app.inc b/packages/fv/src/app.inc
index 0202d73338..831c22c5ea 100644
--- a/packages/fv/src/app.inc
+++ b/packages/fv/src/app.inc
@@ -525,7 +525,11 @@ END;
 {  InitBackGround -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB    }
 {---------------------------------------------------------------------------}
 PROCEDURE TDesktop.InitBackground;
-CONST Ch: Char = #176;
+{$ifdef FV_UNICODE}
+CONST Ch = #$2591;
+{$else FV_UNICODE}
+CONST Ch = #176;
+{$endif FV_UNICODE}
 VAR R: TRect;
 BEGIN
    GetExtent(R);                                      { Get desktop extents }