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

Gtk3: improved caret painting, use TGtk3Widget context if available

Browse Source
This commit is contained in:
zeljan1 2025-01-09 17:30:37 +01:00
parent ac3b0817b8
commit 28abf26e85
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/gtk3/gtk3caret.pas
View File

@ -52,35 +52,49 @@ type
property PosX: integer read FPosX;
property PosY: integer read FPosY;
property RespondToFocus: boolean read FRespondToFocus write SetRespondToFocus;
property Visible: boolean read FVisible;
end;
implementation
uses Gtk3Procs;
uses Gtk3Procs, gtk3int, Gtk3Objects, Gtk3Widgets;
{ TGtk3Caret }
procedure TGtk3Caret.RedrawCaret;
var
cr: PCairo_t;
W: TGtk3Widget;
AHaveContext: Boolean;
begin
{TODO: Implement bitmap caret.}
if not Assigned(FOwner) or not FVisible then Exit;
cr := gdk_cairo_create(gtk_widget_get_window(FOwner));
AHaveContext := False;
W := Gtk3WidgetFromGtkWidget(FOwner);
if W.Context <> 0 then
begin
AHaveContext := True;
cr := TGtk3DeviceContext(W.Context).pcr;
end;
if Not AHaveContext then
cr := gdk_cairo_create(gtk_widget_get_window(FOwner));
try
writeln('Caret: BlinkState=',FBlinkState,' HaveContext=',AHaveContext,' X=',FPosX,' Y=',FPosY,' Self=',PtrUInt(Self));
if FBlinkState then
begin
cairo_rectangle(cr, FPosX, FPosY, FWidth, FHeight);
cairo_set_source_rgb(cr, 0, 0, 0);
cairo_fill(cr);
//cairo_stroke(cr);
end else
begin
cairo_rectangle(cr, FPosX, FPosY, FWidth, FHeight);
cairo_set_source_rgb(Cr, 1, 1, 1);
cairo_fill(cr);
//cairo_stroke(cr);
end;
finally
cairo_destroy(cr);
if not AHaveContext then
cairo_destroy(cr);
end;
end;