paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 06:20:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed wince compilation

Browse Source 
git-svn-id: trunk@15203 -
This commit is contained in:
vincents 2008-05-22 08:28:09 +00:00
parent 3e86fa25cd
commit 4d8c5628cf
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lconvencoding.pas
View File

@ -95,6 +95,11 @@ var EncodingValid: boolean = false;
function GetWindowsEncoding: string;
var
cp : UINT;
{$IFDEF WinCE}
// CP_UTF8 is missing in the windows unit of the Windows CE RTL
const
CP_UTF8 = 65001;
{$ENDIF}
begin
cp := GetACP;
case cp of