Changeset 134 for trunk/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -35 +35 @@
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
-    procedure Translator1Translate(Sender: TObject);
   private
     Initialized: Boolean;
@@ -60 +59 @@
 uses
   UFormImages, UPixelPointer, UCore, UFormTest, UTestCases;
-
-resourcestring
-  SMondayShort = 'MON';
-  STuesdayShort = 'TUE';
-  SWednesdayShort = 'WED';
-  SThrusdayShort = 'THU';
-  SFridayShort = 'FRI';
-  SSaturdayShort = 'SAT';
-  SSundayShort = 'SUN';
 
 { TFormMain }
@@ -205 +195 @@
   if Engine.RedrawPending then
     PaintBox1.Repaint;
-end;
-
-procedure TFormMain.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;