+ {$IF FPC_FULLVERSION>=30000}
if TCharacter.IsSurrogate(WideChar(OrgCharCode)) then+ {$ELSE}
+ if False then+ {$ENDIF}
WinProcess := True--this can be shorted, with one {$if..} {$endif}.
Regards,
Alexey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20171210/11464bd4/attachment.html>