faster paint empty-inside caret

Alexey-T · May 31, 2023 · a81ab8e · a81ab8e · Alexey-T · May 31, 2023
1 parent 7a0a2eb
commit a81ab8e
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -7553,10 +7553,7 @@ procedure TATSynEdit.DoPaintCaretShape(C: TCanvas; ARect: TRect;
 
   if ACaretShape.EmptyInside then
   begin
-    CanvasInvertRect(C, Rect(ARect.Left, ARect.Top, ARect.Right, ARect.Top+1), Colors.Caret);
-    CanvasInvertRect(C, Rect(ARect.Left, ARect.Bottom-1, ARect.Right, ARect.Bottom), Colors.Caret);
-    CanvasInvertRect(C, Rect(ARect.Left, ARect.Top+1, ARect.Left, ARect.Bottom-1), Colors.Caret);
-    CanvasInvertRect(C, Rect(ARect.Right-1, ARect.Top+1, ARect.Right-1, ARect.Bottom-1), Colors.Caret);
+    CanvasInvertFrameRect(C, ARect, Colors.Caret);
     exit;
   end;