Changeset 94 for trunk/Forms

Timestamp:

Sep 27, 2022, 12:04:27 AM (2 years ago)

Author:

chronos

Message:

• Fixed: Night and day state in clock.
• Fixed: Translation of short days of weeks names.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -40 +40 @@
   object Translator1: TTranslator
     POFilesFolder = 'Languages'
+    OnTranslate = Translator1Translate
     Left = 496
     Top = 358

trunk/Forms/UFormMain.pas

@@ -38 +38 @@
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure Translator1Translate(Sender: TObject);
   private
     Initialized: Boolean;
@@ -62 +63 @@
   UFormImages, UPixelPointer;
 
+resourcestring
+  SMondayShort = 'MON';
+  STuesdayShort = 'TUE';
+  SWednesdayShort = 'WED';
+  SThrusdayShort = 'THU';
+  SFridayShort = 'FRI';
+  SSaturdayShort = 'SAT';
+  SSundayShort = 'SUN';
+
 { TFormMain }
 
@@ -177 +187 @@
   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;