for last atflatcontrols

Alexey-T · May 31, 2023 · 9cce20a · 9cce20a
1 parent a81ab8e
commit 9cce20a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -7553,7 +7553,7 @@ procedure TATSynEdit.DoPaintCaretShape(C: TCanvas; ARect: TRect;
 
   if ACaretShape.EmptyInside then
   begin
-    CanvasInvertFrameRect(C, ARect, Colors.Caret);
+    CanvasInvertRectEmptyInside(C, ARect, Colors.Caret);
     exit;
   end;