optim: truncate too long str on rendeding

Alexey-T · Feb 27, 2020 · 14dd2ea · 14dd2ea
1 parent bc5810c
commit 14dd2ea
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/atsynedit/atsynedit_canvasproc.pas b/atsynedit/atsynedit_canvasproc.pas
@@ -540,12 +540,9 @@ procedure CanvasTextOut(C: TCanvas; APosX, APosY: integer; AText: atString;
       ListInt[i]:= ListOffsets[i] * NCharWidth div 100;
 
     //truncate AText, to not paint over screen
-    for i:= 1 to High(ListInt) do
-      if ListInt[i]>AProps.ControlWidth then
-      begin
-        SetLength(AText, i);
-        Break;
-      end;
+    i:= AProps.ControlWidth div AProps.CharSize.X + 2;
+    if Length(AText)>i then
+      SetLength(AText, i);
 
     Dx[0]:= ListInt[0];
     for i:= 1 to High(ListInt) do