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

Gtk3: do not try to draw caret at design time widget.

Browse Source
This commit is contained in:
zeljan1 2025-02-21 10:24:54 +01:00
parent e4db21c499
commit b119620f45
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -1943,7 +1943,7 @@ begin
end;
DoBeforeLCLPaint;
LCLObject.WindowProc(TLMessage(Msg));
if HasCaret then
if HasCaret and not (csDesigning in LCLObject.ComponentState) then
begin
ACaret := TGtk3Caret(g_object_get_data(Sender,'gtk3-caret'));
if ACaret.Visible then