Changeset 466

Timestamp:

Feb 22, 2023, 5:11:57 AM (2 years ago)

Author:

ataylor

Message:

Always update minimum size of font dialog to fit controls.

File:

• trunk/Components/CustomFontDialog.PAS (modified) (2 diffs)

trunk/Components/CustomFontDialog.PAS

@@ -377 +377 @@
      TopH := H - VSplit - TxtH - 5;
 
-     // Divide the top half controls at 55% of the total width
-     TopLW := trunc( W * 0.55 );    // Width of top left area
+     // Divide the top half controls at 50% of the total width
+     TopLW := W div 2;              // Width of top left area
      StW := W - TopLW - SzW - 10;   // Width of Style controls
 
@@ -564 +564 @@
 
   FExampleText.Font := FEditFont;
+
+  // Make sure the dialog is big enough for the controls
+  MinTrackWidth := Font.Width * 60;
+  if MinTrackWidth < 400 then
+    MinTrackWidth := 400;
+
+  MinTrackHeight := Font.Height * 20;
+  if MinTrackHeight < 350 then
+    MinTrackHeight := 350;
 
   Screen.Cursor := crDefault;