paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 03:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Ligatures on Windows, {$DEFINE WINDOWS_LIGATURE}

Browse Source 
git-svn-id: trunk@63951 -
This commit is contained in:
martin 2020-10-04 16:00:38 +00:00
parent 7ab3261e30
commit c49c00a477
1 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/synedit/syntextdrawer.pp
View File

@ -67,11 +67,12 @@ unit SynTextDrawer;
interface
uses
{$IFDEF WINDOWS}windows, {$ENDIF}
Classes, Types, SysUtils,
// LCL
LCLType, LCLIntf, Graphics, GraphUtil,
// LazUtils
LazMethodList, LazLoggerBase, LazTracer,
LazMethodList, LazLoggerBase, LazTracer, LazUTF8,
// SynEdit
SynEditTypes, SynEditMiscProcs;
@ -244,7 +245,7 @@ type
procedure ExtTextOut(X, Y: Integer; fuOptions: UINT; const ARect: TRect;
Text: PChar; Length: Integer; FrameBottom: Integer = -1); virtual;
procedure NewTextOut(X, Y: Integer; fuOptions: UINT; const ARect: TRect;
Text: PChar; Length: Integer; AnEto: TEtoBuffer);
Text: PChar; ALength: Integer; AnEto: TEtoBuffer);
procedure DrawFrame(const ARect: TRect);
procedure ForceNextTokenWithEto;
function NeedsEto: boolean;
@ -1239,20 +1240,41 @@ begin
LCLIntf.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text, Length, DistArray);
end;
procedure TheTextDrawer.NewTextOut(X, Y: Integer; fuOptions: UINT; const ARect: TRect;
Text: PChar; Length: Integer; AnEto: TEtoBuffer);
{$IFDEF WINDOWS_LIGATURE}
function GetCharacterPlacementW(hdc: HDC; lpString: LPCWSTR; nCount, nMaxExtend: Integer; var lpResults: GCP_RESULTSW; dwFlags: DWORD): DWORD; external 'gdi32' name 'GetCharacterPlacementW';
{$ENDIF}
procedure TheTextDrawer.NewTextOut(X, Y: Integer; fuOptions: UINT;
const ARect: TRect; Text: PChar; ALength: Integer; AnEto: TEtoBuffer);
var
EtoArray: PInteger;
{$IFDEF WINDOWS_LIGATURE}
W: WideString;
Glyphs: array of WideChar;
CharPlaceInfo: GCP_RESULTSW;
{$ENDIF}
begin
if AnEto <> nil then
EtoArray := AnEto.Eto
else
EtoArray := nil;
{$IFDEF WINDOWS_LIGATURE}
W := UTF8ToUTF16(Text, ALength);
ZeroMemory(@CharPlaceInfo, SizeOf(CharPlaceInfo));
CharPlaceInfo.lStructSize:= SizeOf(CharPlaceInfo);
SetLength(Glyphs, Length(W));
CharPlaceInfo.lpGlyphs:= @Glyphs[0];
CharPlaceInfo.nGlyphs:= Length(Glyphs);
if GetCharacterPlacementW(FDC, PWChar(W), Length(W), 0, CharPlaceInfo, GCP_LIGATE)<> 0 then begin
Windows.ExtTextOutW(FDC, X, Y, fuOptions or ETO_GLYPH_INDEX, @ARect, Pointer(Glyphs), Length(Glyphs), EtoArray);
exit;
end;
{$ENDIF}
if UseUTF8 then
LCLIntf.ExtUTF8Out(FDC, X, Y, fuOptions, @ARect, Text, Length, EtoArray)
LCLIntf.ExtUTF8Out(FDC, X, Y, fuOptions, @ARect, Text, ALength, EtoArray)
else
LCLIntf.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text, Length, EtoArray);
LCLIntf.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text, ALength, EtoArray);
end;