CalLite: Add Greek language, but mark Languages as deprecated. v0.3.4.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6772 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/callite/callight_pkg.lpk

@@ -13,7 +13,7 @@
     </CompilerOptions>
     <Description Value="A lightweight calendar component"/>
     <License Value="Modified LGL2 (with linking exception)"/>
-    <Version Minor="3" Release="3"/>
+    <Version Minor="3" Release="4"/>
     <Files Count="1">
       <Item1>
         <Filename Value="source/calendarlite.pas"/>

components/callite/demo2/umaintestcallite.lfm

@@ -9,7 +9,7 @@ object Form1: TForm1
   Color = clWindow
   Font.CharSet = ANSI_CHARSET
   OnCreate = FormCreate
-  LCLVersion = '1.7'
+  LCLVersion = '2.1.0.0'
   object PSettings: TPanel
     Left = 0
     Height = 432
@@ -117,8 +117,8 @@ object Form1: TForm1
     end
     object rgLanguage: TRadioGroup
       Left = 200
-      Height = 200
+      Height = 208
-      Top = 224
+      Top = 216
       Width = 160
       AutoFill = True
       Caption = 'Language to use'
@@ -130,7 +130,7 @@ object Form1: TForm1
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 180
+      ClientHeight = 188
       ClientWidth = 156
       ItemIndex = 0
       Items.Strings = (
@@ -142,13 +142,14 @@ object Form1: TForm1
         'Italian'
         'Polish'
         'Finnish'
+        'Greek'
       )
       OnClick = rgLanguageClick
       TabOrder = 4
     end
     object rgStartingDOW: TRadioGroup
       Left = 200
-      Height = 176
+      Height = 168
       Top = 40
       Width = 160
       AutoFill = True
@@ -161,7 +162,7 @@ object Form1: TForm1
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 156
+      ClientHeight = 148
       ClientWidth = 156
       Items.Strings = (
         'Sunday'

components/callite/source/calendarlite.pas

@@ -95,6 +95,10 @@ const
   FinnishMonths = 'Tammikuu,Helmikuu,Maaliskuu,Huhtikuu,Toukokuu,Kesäkuu,Heinäkuu,Elokuu,Syyskuu,Lokakuu,Marraskuu,Joulukuu';
   FinnishDays = 'Su,Ma,Ti,ke,To,Pe,La';
 
+  GreekDays = 'Κυρ,Δευ,Τρί,Τετ,Πεμ,Παρ,Σαβ';
+  GreekMonths = 'Ιανουάριος,Φεβρουάριος,Μάρτιος,Απρίλος,Μάιος,Ιούνιος,Ιούλιος,Αύγουστος,Σεπτέμβριος,Οκτώβριος,Νοέμβριος,Δεκέμβριος';
+  GreekTexts = 'Σήμερα είναι,"mmm dd"","" yyyy",Καμία γιορτή,Δεν έχει καμία αργία';
+
 type
   TCalendarLite = class;
 
@@ -140,7 +144,7 @@ type
     smFirstWeek, smNextWeek, smNextWeekRange);
 
   TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian,
-               lgPolish, lgFinnish);
+               lgPolish, lgFinnish, lgGreek);
 
 
   { TCalDateList }
@@ -379,7 +383,7 @@ type
     property WeekendDays: TDaysOfWeek read FWeekendDays
       write SetWeekendDays default [dowSunday];
     property Languages: TLanguage read FLanguage
-      write SetLanguage default lgEnglish;
+      write SetLanguage default lgEnglish; deprecated 'Use DayNames, DisplayTexts, and MonthNames instead.';
 
     // new event properties
     property OnDateChange: TNotifyEvent read FOnDateChange write FOnDateChange;
@@ -1833,6 +1837,12 @@ begin
                  DisplayTexts := FinnishTexts;
                  BiDiMode := bdLeftToRight;
                end;
+    lgGreek:   begin
+                 DayNames := GreekDays;
+                 MonthNames := GreekMonths;
+                 DisplayTexts := GreekTexts;
+                 BiDiMode := bdLeftToRight;
+               end;
   end;
 
   Invalidate;