Changeset 460 for trunk/ae/MainFormUnit.pas

Timestamp:

Feb 18, 2023, 6:26:37 PM (2 years ago)

Author:

ataylor

Message:

AE now uses WindowText font and scales controls as needed.

File:

• trunk/ae/MainFormUnit.pas (modified) (2 diffs)

trunk/ae/MainFormUnit.pas

@@ -9 +9 @@
 
 Const
-  AppVersion =     'v1.9.8a'; // $SS_REQUIRE_NEW_VERSION$
-  BldLevelVersion = '1.9.8a';
+  AppVersion =     'v1.9.7c'; // $SS_REQUIRE_NEW_VERSION$
+  BldLevelVersion = '1.9.7c';
 
 { Todo:
@@ -1720 +1720 @@
   FirstPanelWidth: longint;
 Begin
-  StatusBar.Height := Canvas.TextHeight( 'S' ) + 4;
+  StatusBar.Height := Canvas.TextHeight( 'S' ) + Font.InternalLeading + 4;
   if Assigned( Memo ) then
   begin