Changeset 459 for trunk

Timestamp:

Feb 18, 2023, 5:23:06 AM (2 years ago)

Author:

ataylor

Message:

CustomFontDialog now scales controls to font.

File:

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

trunk/Components/CustomFontDialog.PAS

@@ -311 +311 @@
 
      SetEditFont( Screen.DefaultFont );
+
 End;
 
@@ -336 +337 @@
      ExampleH: longint;
      VSplit: longint;
-     GrpH: longint;
      TopH: longint;
+     TxtH: longint;
+     BtnH: longint;
+     BtnW: longint;
+     TopLW: longint;
+     SzW: longint;
+     StW: longint;
+     StLH: longint;
+     LstY: longint;
+     ChkY: longint;
+     FaX: longint;
 Begin
      W := ClientWidth;
      H := ClientHeight;
+
+     // Basic measurements based on current font size
+     try
+        // Height of a line of text (with some slight padding)
+        TxtH := trunc( Canvas.TextHeight( 'M' ) * 1.2 );
+        // Height & width of a pushbutton
+        BtnH := trunc( Canvas.TextHeight( 'M' ) * 1.5 );
+        BtnW := Canvas.TextWidth('W') * 8;
+        // Width of size controls area
+        SzW  := Canvas.TextWidth('W') * 5;
+     except
+        TxtH := 20;
+        BtnH := 30;
+        BtnW := 80;
+        StW  := 45;
+     end;
 
      // Example is minimum 40 pixels, or 20% of height
@@ -347 +373 @@
        ExampleH := H div 5;
 
-     // Base of name/size/style (45 allows for buttons/spacing)
-     VSplit := 45 + ExampleH;
-     TopH := H - VSplit - 25;
-
-     GrpH := TopH + 20;
-     //                             Left     Bottom      Width    Height
-     FNameLabel      .SetWindowPos( 5,       H - 25,     W - 210, 20      );
-     FNameList       .SetWindowPos( 5,       VSplit,     W - 210, TopH    );
-
-     FStyleLabel     .SetWindowPos( W - 200, H - 25,     120,     20      );
-
-     FStyleListbox   .SetWindowPos( W - 200, H - 100,    145,     75      );
-
-     FBoldCheck      .SetWindowPos( W - 200, H - 125,    145,     20      );
-     FItalicCheck    .SetWindowPos( W - 200, H - 145,    145,     20      );
-     FUnderscoreCheck.SetWindowPos( W - 200, H - 165,    145,     20      );
-     FOutlineCheck   .SetWindowPos( W - 200, H - 185,    145,     20      );
-     FStrikeOutCheck .SetWindowPos( W - 200, H - 205,    145,     20      );
-
-     FSizeLabel      .SetWindowPos( W - 50,  H - 25,     45,      20      );
-     FSizeCombo      .SetWindowPos( W - 50,  VSplit,     45,      TopH    );
-
-     FExampleText    .SetWindowPos( 5,       40,         W - 10,  ExampleH );
-
-     FActualFaceLabel.SetWindowPos( 180,     10,         W - 185,  20      );
-
-     FOKButton       .SetWindowPos( 5,       5,          80,      30      );
-     FCancelButton   .SetWindowPos( 90,      5,          80,      30      );
+     // Base of top area (name/size/style)
+     VSplit := BtnH + ExampleH + 15;
+     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
+     StW := W - TopLW - SzW - 10;   // Width of Style controls
+
+     LstY := H - TxtH - 5;          // Top of all listboxes
+     StLH := TxtH * 4;              // Height of Style listbox
+     ChkY := LstY - StLH - 5;       // Top of checkbox area
+     FaX := 20 + ( 2 * BtnW );      // Left position of selected-face label
+
+     //                             Left     Bottom      Width      Height
+     FNameLabel      .SetWindowPos( 5,       LstY,       TopLW-5,   TxtH     );
+     FNameList       .SetWindowPos( 5,       VSplit,     TopLW-5,   TopH     );
+
+     FStyleLabel     .SetWindowPos( TopLW+5, LstY,       StW,       TxtH     );
+     FStyleListbox   .SetWindowPos( TopLW+5, LstY-StLH,  StW,       StLH     );
+
+     FBoldCheck      .SetWindowPos( TopLW+5, ChkY-TxtH,     StW,    TxtH     );
+     FItalicCheck    .SetWindowPos( TopLW+5, ChkY-(2*TxtH), StW,    TxtH     );
+     FUnderscoreCheck.SetWindowPos( TopLW+5, ChkY-(3*TxtH), StW,    TxtH     );
+     FOutlineCheck   .SetWindowPos( TopLW+5, ChkY-(4*TxtH), StW,    TxtH     );
+     FStrikeOutCheck .SetWindowPos( TopLW+5, ChkY-(5*TxtH), StW,    TxtH     );
+
+     FSizeLabel      .SetWindowPos( W-SzW,   LstY,       SzW-5,     TxtH     );
+     FSizeCombo      .SetWindowPos( W-SzW,   VSplit,     SzW-5,     TopH     );
+
+     FExampleText    .SetWindowPos( 5,       BtnH+10,    W-10,      ExampleH );
+
+     FActualFaceLabel.SetWindowPos( FaX,     6,          W-FaX-5,   TxtH     );
+
+     FOKButton       .SetWindowPos( 5,       5,          BtnW,      BtnH     );
+     FCancelButton   .SetWindowPos( BtnW+10, 5,          BtnW,      BtnH     );
 
 End;