add Español support in TFMXCalendarControl

Author: zhaoyipeng

Diff for: ComponentsSource/FMX.CalendarControl.pas

@@ -59,6 +59,7 @@ interface
 const
   TCnWeeks: TWeekNames = ('日', '一', '二', '三', '四', '五', '六');
   TEnWeeks: TWeekNames = ('SUN', 'MON', 'TUE', 'WED', 'THU', 'FRI', 'SAT');
+  TEsWeeks: TWeekNames = ('dom', 'lun', 'mar', 'mié', 'jue', 'vie', 'sáb');
 
   TCnMonths: TMonthNames = ('一月', '二月', '三月', '四月', '五月', '六月',
     '七月', '八月', '九月', '十月', '十一月', '十二月');
@@ -76,6 +77,21 @@ interface
     'November',
     'December'
   );
+  TEsMonths: TMonthNames = (
+    'Enero',
+    'Febrero',
+    'Marzo',
+    'Abril',
+    'Mayo',
+    'Junio',
+    'Julio',
+    'Agosto',
+    'Septiembre',
+    'Octubre',
+    'Noviembre',
+    'Ciciembre'
+  );
+
 type
   TWeekLayout = class(TControl)
   private

Diff for: Demo/CalendarDemo/CalendarDemoMain.fmx

@@ -8,7 +8,7 @@ object CalendarDemoMainForm: TCalendarDemoMainForm
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
   OnCreate = FormCreate
-  DesignerMasterStyle = 3
+  DesignerMasterStyle = 0
   object Rectangle1: TRectangle
     Align = Client
     Fill.Color = xFFF0F0F0
@@ -25,7 +25,7 @@ object CalendarDemoMainForm: TCalendarDemoMainForm
       StartDate = 42948.000000000000000000
       EndDate = 43020.422420370370000000
       FirstDayOfWeek = 7
-      SelectedDate = 43110.000000000000000000
+      SelectedDate = 43178.000000000000000000
       IsShowLunarDate = False
       OnSelectedItem = FMXCalendarControl1SelectedItem
     end
@@ -87,16 +87,33 @@ object CalendarDemoMainForm: TCalendarDemoMainForm
       IsChecked = True
       Position.X = 16.000000000000000000
       Position.Y = 13.000000000000000000
-      TabOrder = 1
-      Text = #20013#25991
+      Size.Width = 112.000000000000000000
+      Size.Height = 19.000000000000000000
+      Size.PlatformDefault = False
+      TabOrder = 2
+      Text = #27721#35821
       OnChange = rbChineseChange
     end
     object rbEnglish: TRadioButton
       GroupName = 'Lang'
-      Position.X = 184.000000000000000000
+      Position.X = 132.000000000000000000
       Position.Y = 13.000000000000000000
+      Size.Width = 112.000000000000000000
+      Size.Height = 19.000000000000000000
+      Size.PlatformDefault = False
+      TabOrder = 1
+      Text = 'English'
+      OnChange = rbChineseChange
+    end
+    object rbSpanish: TRadioButton
+      GroupName = 'Lang'
+      Position.X = 248.000000000000000000
+      Position.Y = 13.000000000000000000
+      Size.Width = 112.000000000000000000
+      Size.Height = 19.000000000000000000
+      Size.PlatformDefault = False
       TabOrder = 0
-      Text = #33521#25991
+      Text = 'Espa'#241'ol'
       OnChange = rbChineseChange
     end
   end
@@ -105,34 +122,25 @@ object CalendarDemoMainForm: TCalendarDemoMainForm
     Left = 168
     Top = 224
     ResourcesBin = {
-      3F010000420061007300690063000D000A004C006100620065006C0031000D00
-      0A0041006E0069006D006100740069006F006E000D000A00370035000D000A00
-      53006C0069006400650072000D000A004200420043006F00640065000D000A00
-      47007500650073007400750072006500500061007300730077006F0072006400
-      0D000A00500061007300730077006F00720064003A000D000A00430061006C00
-      65006E006400610072000D000A003E663A799C5186530D000A002D4E87650867
-      FD4E0D000A00F18287650867FD4E0D000A005300650067003700530068006100
-      700065000D000A0053007500660066006C0065000D000A0054006F0061007300
-      74000D000A0054006F006100730074002000440065006D006F000D000A005300
-      68006F007700200054006F006100730074000D000A004900730062006C006F00
-      63006B000D000A004D006500730073006100670065003A000D000A0041006C00
-      690067006E000D000A0054006F0070000D000A00430065006E00740065007200
-      0D000A0042006F00740074006F006D000D000A0046006F006E00740043006F00
-      6C006F0072000D000A004200610063006B0043006F006C006F0072000D000A00
-      5100520043006F00640065000D000A004C0069006E00650073000D000A004600
-      6F007200650043006F006C006F0072000D000A00510075006900740065005A00
-      6F006E0065003A000D000A00490063006F006E00530069007A0065003A000D00
-      0A0046004D00580043006F006D0070006F006E0065006E007400730020004400
-      65006D006F0020004100700070006C00690063006100740069006F006E000D00
-      0A0053006F0075007200630065000D000A002D4E87650D000A00F18287650D00
-      0A0002000000020000007A006800340000003E663A799C5186533D003E663A79
-      9C5186530D000A002D4E87650867FD4E3D002D4E87650867FD4E0D000A00F182
-      87650867FD4E3D00F18287650867FD4E0D000A002D4E87653D002D4E87650D00
-      0A00F18287653D0045006E0067006C006900730068000D000A00020000006500
-      6E004D000000F18287650867FD4E3D0045006E0067006C006900730068002000
-      4D006F006E00740068000D000A002D4E87650867FD4E3D004300680069006E00
-      65007300650020004D006F006E00740068000D000A003E663A799C5186533D00
-      530068006F00770020004C0075006E006100720020000D000A00F18287653D00
-      45006E0067006C006900730068000D000A002D4E87653D002D4E87650D000A00}
+      2F00000033000D000A0035000D000A0034000D000A003E663A799C5186530D00
+      0A00496CED8B0D000A007F89ED735972ED8B0D000A0045006E0067006C006900
+      730068000D000A004500730070006100F1006F006C000D000A00F182ED8B0D00
+      0A0003000000020000007A0068004E0000003E663A799C5186533D003E663A79
+      9C5186530D000A00496CED8B3D00496CED8B0D000A0045006E0067006C006900
+      730068003D0045006E0067006C006900730068000D000A004500730070006100
+      F1006F006C003D004500730070006100F1006F006C000D000A00F182ED8B3D00
+      45006E0067006C006900730068000D000A007F89ED735972ED8B3D0045007300
+      70006100F1006F006C000D000A000200000065006E00540000003E663A799C51
+      86533D00530068006F00770020004C0075006E00610072000D000A00F182ED8B
+      3D0045006E0067006C006900730068000D000A007F89ED735972ED8B3D004500
+      730070006100F1006F006C000D000A0045006E0067006C006900730068003D00
+      45006E0067006C006900730068000D000A004500730070006100F1006F006C00
+      3D004500730070006100F1006F006C000D000A00496CED8B3D00496CED8B0D00
+      0A000200000065007300570000003E663A799C5186533D004D006F0073007400
+      72006100720020004C0075006E00610072000D000A00496CED8B3D00496CED8B
+      0D000A00F182ED8B3D0045006E0067006C006900730068000D000A007F89ED73
+      5972ED8B3D004500730070006100F1006F006C000D000A004500730070006100
+      F1006F006C003D004500730070006100F1006F006C000D000A0045006E006700
+      6C006900730068003D0045006E0067006C006900730068000D000A00}
   end
 end

Diff for: Demo/CalendarDemo/CalendarDemoMain.pas

@@ -16,10 +16,11 @@   TCalendarDemoMainForm = class(TForm)
     Rectangle2: TRectangle;
     txtCnDate1: TText;
     txtCnDate2: TText;
-    lng1: TLang;
     Layout1: TLayout;
     rbChinese: TRadioButton;
     rbEnglish: TRadioButton;
+    rbSpanish: TRadioButton;
+    lng1: TLang;
     procedure rbChineseChange(Sender: TObject);
     procedure chkShowLunarDateChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -75,11 +76,17 @@ procedure TCalendarDemoMainForm.rbChineseChange(Sender: TObject);
     FMXCalendarControl1.SetMonthNames(TCnMonths);
     FMXCalendarControl1.SetWeekNames(TCnWeeks);
   end
-  else
+  else if rbEnglish.IsChecked then
   begin
     LoadLangFromStrings(lng1.LangStr['en']);
     FMXCalendarControl1.SetMonthNames(TEnMonths);
     FMXCalendarControl1.SetWeekNames(TEnWeeks);
+  end
+  else
+  begin
+    LoadLangFromStrings(lng1.LangStr['es']);
+    FMXCalendarControl1.SetMonthNames(TEsMonths);
+    FMXCalendarControl1.SetWeekNames(TEsWeeks);
   end;
 end;