hi

i've had to make the following change to get the lcl to compile for windows ce (fpc 2.2.3):

Index: lcl/include/fileutil.inc
=================================================================== --- lcl/include/fileutil.inc (revision 17031)
+++ lcl/include/fileutil.inc (working copy)
@@ -83,13 +83,13 @@
end;

 function UTF8ToConsole(const s: string): string;
-{$ifdef Windows}
+{$ifdef MSWindows}
 var
   Dst: PChar;
 {$endif}
 begin
   Result := UTF8ToSys(s);
-  {$ifdef Windows}
+  {$ifdef MSWindows}
   Dst := AllocMem((Length(Result) + 1) * SizeOf(Char));
   if CharToOEM(PChar(Result), Dst) then
     Result := StrPas(Dst);

this is because i don't think CharToOem exists for windows ce. i'm not sure if this points to an underlying problem, though.

henry

Thanks, applied.

Best regards,
Paul Ishenin.