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

Gtk3: fixed TGtk3Caret crash.

Browse Source
This commit is contained in:
zeljan1 2025-01-13 17:18:24 +01:00
parent 05cc198468
commit dd89f481b4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,7 +76,12 @@ begin
cr := TGtk3DeviceContext(W.Context).pcr;
end;
if Not AHaveContext then
cr := gdk_cairo_create(gtk_widget_get_window(FOwner));
begin
if Gtk3IsGdkWindow(gtk_widget_get_window(FOwner)) then
cr := gdk_cairo_create(gtk_widget_get_window(FOwner))
else
exit;
end;
try
//writeln('Caret: BlinkState=',FBlinkState,' HaveContext=',AHaveContext,' X=',FPosX,' Y=',FPosY,' Self=',PtrUInt(Self));
if FBlinkState then