paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CalLite: Add Finnish texts (translation by Seppo Suutarla)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5380 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-11-23 14:52:04 +00:00
parent 4b857ef28f
commit 4938f826fd
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/callite/demo2/umaintestcallite.lfm
View File

@ -117,8 +117,8 @@ object Form1: TForm1
end
object rgLanguage: TRadioGroup
Left = 200
Height = 184
Top = 240
Height = 200
Top = 224
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 = 164
ClientHeight = 180
ClientWidth = 156
ItemIndex = 0
Items.Strings = (
@ -141,13 +141,14 @@ object Form1: TForm1
'Spanish'
'Italian'
'Polish'
'Finnish'
)
OnClick = rgLanguageClick
TabOrder = 4
end
object rgStartingDOW: TRadioGroup
Left = 200
Height = 184
Height = 176
Top = 40
Width = 160
AutoFill = True
@ -160,7 +161,7 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 164
ClientHeight = 156
ClientWidth = 156
Items.Strings = (
'Sunday'

13
components/callite/source/calendarlite.pas
View File

@ -91,6 +91,10 @@ const
PolishMonths = 'Styczeń,Luty,Marzec,Kwiecień,Maj,Czerwiec,Lipiec,Sierpień,Wrzesień,Październik,Listopad,Grudzień';
PolishTexts = 'Dziś jest,dd/mmm/yyyy,urlop w czasie,Brak święta określone dla';
FinnishTexts ='Tänään on,dd.mm.yyyy,Lomapäivät,Lomapäiviä ei ole asetettu';
FinnishMonths = 'Tammikuu,Helmikuu,Maaliskuu,Huhtikuu,Toukokuu,Kesäkuu,Heinäkuu,Elokuu,Syyskuu,Lokakuu,Marraskuu,Joulukuu';
FinnishDays = 'Su,Ma,Ti,ke,To,Pe,La';
type
TCalendarLite = class;
@ -135,7 +139,8 @@ type
TCalSelMode = (smFirstSingle, smNextSingle, smFirstRange, smNextRange,
smFirstWeek, smNextWeek, smNextWeekRange);
TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian, lgPolish);
TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian,
lgPolish, lgFinnish);
{ TCalDateList }
@ -1805,6 +1810,12 @@ begin
DisplayTexts := PolishTexts;
BiDiMode:= bdLeftToRight;
end;
lgFinnish: begin
DayNames := FinnishDays;
MonthNames := FinnishMonths;
DisplayTexts := FinnishTexts;
BiDiMode := bdLeftToRight;
end;
end;
Invalidate;