for last atflatcontrols

Alexey-T · May 31, 2023 · 29a57dc · 29a57dc
1 parent 86ef3e9
commit 29a57dc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/atsynedit_cmp/atsynedit_cmp_form.pas b/atsynedit_cmp/atsynedit_cmp_form.pas
@@ -163,6 +163,7 @@ procedure CloseFormAutoCompletion;
 implementation
 
 uses
+  ATCanvasPrimitives,
   ATStrings,
   ATStringProc,
   ATStringProc_Separator,
@@ -786,7 +787,7 @@ procedure TFormATSynEditComplete.UpdateListboxItemHeight;
 begin
   if CompletionOps.MonoFont then
   begin
-    N:= ATFlatTheme.DoScaleFont(ATFlatTheme.MonoFontSize) * 18 div 10 + 2;
+    N:= CanvasFontSizeToPixels(ATFlatTheme.DoScaleFont(ATFlatTheme.MonoFontSize));
     N:= N * Max(96, Screen.PixelsPerInch) div 96;
     Listbox.ItemHeight:= N;
   end