paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ unicode fix in TDesktop.InitBackground

Browse Source 
git-svn-id: branches/unicodekvm@48648 -
This commit is contained in:
nickysn 2021-02-10 23:53:02 +00:00
parent 6c0491f7c2
commit 8dc55d8294
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fv/src/app.inc
View File

@ -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 }