mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Crash under GTK3

Browse source
This commit is contained in:
Alexander Koblov 2025-03-28 21:48:46 +03:00
commit 92bd7df527
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
components/viewer/viewercontrol.pas
View file

@ -2068,17 +2068,21 @@ begin
if FShowCaret <> AValue then
begin
FShowCaret:= AValue;
if FShowCaret then
if HandleAllocated then
begin
LCLIntf.CreateCaret(Handle, 0, 2, FTextHeight);
LCLIntf.ShowCaret(Handle);
FCaretVisible:= True;
Invalidate;
end
else begin
FCaretVisible:= False;
LCLIntf.HideCaret(Handle);
LCLIntf.DestroyCaret(Handle);
if FShowCaret then
begin
LCLIntf.CreateCaret(Handle, 0, 2, FTextHeight);
LCLIntf.ShowCaret(Handle);
FCaretVisible:= True;
Invalidate;
end
else begin
FCaretVisible:= False;
LCLIntf.HideCaret(Handle);
LCLIntf.DestroyCaret(Handle);
end;
end;
end;
end;