paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 21:16:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: Patch from DRIGUS GmbH, implements LCLIntf.TextOut

Browse Source 
git-svn-id: trunk@22246 -
This commit is contained in:
sekelsenmat 2009-10-20 14:37:30 +00:00
parent a8faf01cf3
commit 67b6e93573
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/wince/wincewinapi.inc
View File

@ -2892,10 +2892,12 @@ end;
------------------------------------------------------------------------------}
function TWinCEWidgetSet.TextOut(DC: HDC; X, Y: Integer; Str: PChar; Count: Integer): Boolean;
var
WS: WideString;
begin
Result := false;
// Result := Boolean(Windows.ExtTextOut(DC, X, Y, Str, Count));
// Result := Boolean(Windows.TextOut(DC, X, Y, Str, Count));
// There is no Windows.TextOut in Windows CE, so we improvise with other routines
WS := UTF8ToUTF16(Copy(Str, 1, Count));
Result := Boolean(Windows.ExtTextOut(DC, X, Y, 0, nil, PWideChar(WS), Length(WS), nil));
end;
{------------------------------------------------------------------------------