paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix Compilation for WinCE issue #24560

Browse Source 
git-svn-id: trunk@41602 -
This commit is contained in:
martin 2013-06-08 19:35:20 +00:00
parent 90fc05b7ce
commit 595f395fde
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedittextsystemcharwidth.pas
View File

@ -28,11 +28,14 @@ of this file under either the MPL or the GPL.
-------------------------------------------------------------------------------}
{$mode objfpc}{$H+}
{$IFDEF Windows} {$IFnDEF WINCE}
{$DEFINE WindowsDesktop}
{$ENDIF} {$ENDIF}
interface
uses
{$IFDEF Windows} windows, {$endif}
{$IFDEF WindowsDesktop} windows, {$endif}
Classes, SysUtils, LazSynEditText, LazUTF8, Controls, Graphics, LazLoggerBase;
type
@ -67,7 +70,7 @@ end;
procedure TSynEditStringSystemWidthChars.DoGetPhysicalCharWidths(Line: PChar; LineLen,
Index: Integer; PWidths: PPhysicalCharWidth);
{$IFDEF Windows}
{$IFDEF WindowsDesktop}
var
//s: UnicodeString;// wideString;
i: DWORD;
@ -93,7 +96,7 @@ begin
end;
{$IFDEF Windows}
{$IFDEF WindowsDesktop}
SetLength(s, LineLen+1); // wide chars of UTF-16 <= bytes of UTF-8 string
if ConvertUTF8ToUTF16(PWideChar(S), LineLen+1, Line, LineLen, [toInvalidCharToSymbol], l) <> trNoError then
exit;