Changeset 460

Timestamp:

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

Author:

ataylor

Message:

AE now uses WindowText font and scales controls as needed.

Location:

trunk/ae

Files:

• AE.scu (modified) ( previous)
• ColorsFormUnit.pas (modified) (1 diff)
• MainFormUnit.pas (modified) (2 diffs)
• ProductInformationFormUnit.pas (modified) (2 diffs)

trunk/ae/ColorsFormUnit.pas

@@ -47 +47 @@
 Procedure TColorsForm.ColorsFormOnSetupShow (Sender: TObject);
 Begin
-//   ScaleForm( self, 11, 16 );
+  ScaleForm( self, 8, 16 );
   // doesn't look to good with non-proportional scaling.
 End;

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

trunk/ae/ProductInformationFormUnit.pas

@@ -48 +48 @@
 Procedure TProductInformationForm.ProductInformationFormOnSetupShow (Sender: TObject);
 Begin
-  ScaleForm( self, 11, 16 );
+  ScaleForm( self, 8, 16 );
 End;
 
@@ -54 +54 @@
 Begin
   RegisterForLanguages( OnLanguageEvent );
+  Font := GetNiceDefaultFont;
 
   NameAndVersionEdit.Font := Screen.CreateCompatibleFont( Font );