paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 14:53:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: partially implemented ExtTextOut, now TSynEdit looks bit nicer :)

Browse Source
This commit is contained in:
Željan Rikalo 2023-01-29 20:00:56 +01:00
parent d03ae50d12
commit 2b44a6011a
1 changed files with 21 additions and 6 deletions

27
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -1532,17 +1532,32 @@ end;
function TGtk3WidgetSet.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
var
GtkDC: TGtk3DeviceContext absolute DC;
AHWND: HWND;
AOffset: TPoint;
AScrollinfo: TScrollInfo;
begin
Result := False;
// {$IFDEF VerboseGtk3DeviceContext}
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
DebugLn('TGtk3WidgetSet.ExtTextOut x=',dbgs(x),' y=',dbgs(y),' Text ',dbgs(Str),' count ',dbgs(Count));
{$IFDEF VerboseGtk3DeviceContext}
DebugLn(Format('TGtk3WidgetSet.ExtTextOut x=%d y=%d Text=%s count=%d ',[X, Y, String(Str), Count]));
{$ENDIF}
// inherited ExtTextOut(DC, X, Y, Options, Rect, Str, Count, Dx);
if IsValidDC(DC) then
if IsValidDC(DC)then
begin
Result := True;
cairo_save(GtkDc.pcr);
if Options and ETO_CLIPPED = ETO_CLIPPED then
begin
cairo_rectangle(GtkDc.pcr, Rect^.Left, Rect^.Top, Rect^.Right - Rect^.Left, Rect^.Bottom - Rect^.Top);
cairo_clip(GtkDc.pcr);
end;
if Options and ETO_OPAQUE = ETO_OPAQUE then
TGtk3DeviceContext(DC).fillRect(Rect, HBRUSH(GtkDC.CurrentBrush));
TGtk3DeviceContext(DC).drawText(X, Y, Str, Count);
cairo_restore(GtkDc.pcr);
Result := True;
end;
end;