Changeset 134 for trunk/UCore.pas

Timestamp:

May 2, 2023, 11:48:43 AM (12 months ago)

Author:

chronos

Message:

• Fixed: Translation of week days.
• Fixed: Highest score changed after click at game over screen.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -14 +14 @@
     ThemeManager1: TThemeManager;
     Translator1: TTranslator;
+    procedure Translator1Translate(Sender: TObject);
   end;
 
@@ -24 +25 @@
 {$R *.lfm}
 
+resourcestring
+  SMondayShort = 'MON';
+  STuesdayShort = 'TUE';
+  SWednesdayShort = 'WED';
+  SThrusdayShort = 'THU';
+  SFridayShort = 'FRI';
+  SSaturdayShort = 'SAT';
+  SSundayShort = 'SUN';
+
+{ TCore }
+
+procedure TCore.Translator1Translate(Sender: TObject);
+begin
+  FormatSettings.ShortDayNames[1] := SSundayShort;
+  FormatSettings.ShortDayNames[2] := SMondayShort;
+  FormatSettings.ShortDayNames[3] := STuesdayShort;
+  FormatSettings.ShortDayNames[4] := SWednesdayShort;
+  FormatSettings.ShortDayNames[5] := SThrusdayShort;
+  FormatSettings.ShortDayNames[6] := SFridayShort;
+  FormatSettings.ShortDayNames[7] := SSaturdayShort;
+end;
+
 end.