Changeset 469 for trunk/ae/MainFormUnit.pas

Timestamp:

Feb 26, 2023, 1:26:47 AM (2 years ago)

Author:

ataylor

Message:

Improve print dialog scaling; avoid crash when querying the system time/date formats

File:

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

trunk/ae/MainFormUnit.pas

@@ -9 +9 @@
 
 Const
-  AppVersion =     'v1.9.8c'; // $SS_REQUIRE_NEW_VERSION$
-  BldLevelVersion = '1.9.9';
+  AppVersion =      'v1.9.8d'; // $SS_REQUIRE_NEW_VERSION$
+  BldLevelVersion = '1.9.8d';
 
 { Todo:
@@ -666 +666 @@
                           ExtractFileName( FFilename ) );
 
-  // centred date/time, if it fits
-  DateTimeStr := FormatDateTime( 'ddddd t', // short date, short time
+  // centred date/time, if it fits (short/long date/time strings cause crash on some systems)
+  DateTimeStr := FormatDateTime( 'yyyy/mm/dd h:nn:ss ampm',
                                  Now );
 
@@ -687 +687 @@
                           Y,
                           PageNumberStr );
+
 end;
 
@@ -771 +772 @@
     begin
       Printer.Canvas.Font :=
-        Screen.GetFontFromPointSize( 'Courier New',
+        Screen.GetFontFromPointSize( 'Courier',
                                      FMemoFont.PointSize );
     end
@@ -838 +839 @@
 
     // print text that fits on this page
-
     while P < EndP do
     begin
@@ -933 +933 @@
                           nil // no vector of increments
                         );
-
       // subtract line height from vertical position
       dec( Y, TextHeight );
@@ -2284 +2283 @@
   Description = 'Text Editor';
 
-  // BLDLevel - compatible - mostly
+  // BLDLevel-like info (not actually compatible with BLDLEVEL command)
   EmbeddedVersion: string =
       '@#'