You've already forked lazarus-ccr
CalLite: Add Finnish texts (translation by Seppo Suutarla)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5380 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -117,8 +117,8 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object rgLanguage: TRadioGroup
|
object rgLanguage: TRadioGroup
|
||||||
Left = 200
|
Left = 200
|
||||||
Height = 184
|
Height = 200
|
||||||
Top = 240
|
Top = 224
|
||||||
Width = 160
|
Width = 160
|
||||||
AutoFill = True
|
AutoFill = True
|
||||||
Caption = 'Language to use'
|
Caption = 'Language to use'
|
||||||
@ -130,7 +130,7 @@ object Form1: TForm1
|
|||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
ChildSizing.ControlsPerLine = 1
|
ChildSizing.ControlsPerLine = 1
|
||||||
ClientHeight = 164
|
ClientHeight = 180
|
||||||
ClientWidth = 156
|
ClientWidth = 156
|
||||||
ItemIndex = 0
|
ItemIndex = 0
|
||||||
Items.Strings = (
|
Items.Strings = (
|
||||||
@ -141,13 +141,14 @@ object Form1: TForm1
|
|||||||
'Spanish'
|
'Spanish'
|
||||||
'Italian'
|
'Italian'
|
||||||
'Polish'
|
'Polish'
|
||||||
|
'Finnish'
|
||||||
)
|
)
|
||||||
OnClick = rgLanguageClick
|
OnClick = rgLanguageClick
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
end
|
end
|
||||||
object rgStartingDOW: TRadioGroup
|
object rgStartingDOW: TRadioGroup
|
||||||
Left = 200
|
Left = 200
|
||||||
Height = 184
|
Height = 176
|
||||||
Top = 40
|
Top = 40
|
||||||
Width = 160
|
Width = 160
|
||||||
AutoFill = True
|
AutoFill = True
|
||||||
@ -160,7 +161,7 @@ object Form1: TForm1
|
|||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
ChildSizing.ControlsPerLine = 1
|
ChildSizing.ControlsPerLine = 1
|
||||||
ClientHeight = 164
|
ClientHeight = 156
|
||||||
ClientWidth = 156
|
ClientWidth = 156
|
||||||
Items.Strings = (
|
Items.Strings = (
|
||||||
'Sunday'
|
'Sunday'
|
||||||
|
@ -91,6 +91,10 @@ const
|
|||||||
PolishMonths = 'Styczeń,Luty,Marzec,Kwiecień,Maj,Czerwiec,Lipiec,Sierpień,Wrzesień,Październik,Listopad,Grudzień';
|
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';
|
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
|
type
|
||||||
TCalendarLite = class;
|
TCalendarLite = class;
|
||||||
|
|
||||||
@ -135,7 +139,8 @@ type
|
|||||||
TCalSelMode = (smFirstSingle, smNextSingle, smFirstRange, smNextRange,
|
TCalSelMode = (smFirstSingle, smNextSingle, smFirstRange, smNextRange,
|
||||||
smFirstWeek, smNextWeek, smNextWeekRange);
|
smFirstWeek, smNextWeek, smNextWeekRange);
|
||||||
|
|
||||||
TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian, lgPolish);
|
TLanguage = (lgEnglish, lgFrench, lgGerman, lgHebrew, lgSpanish, lgItalian,
|
||||||
|
lgPolish, lgFinnish);
|
||||||
|
|
||||||
|
|
||||||
{ TCalDateList }
|
{ TCalDateList }
|
||||||
@ -1805,6 +1810,12 @@ begin
|
|||||||
DisplayTexts := PolishTexts;
|
DisplayTexts := PolishTexts;
|
||||||
BiDiMode:= bdLeftToRight;
|
BiDiMode:= bdLeftToRight;
|
||||||
end;
|
end;
|
||||||
|
lgFinnish: begin
|
||||||
|
DayNames := FinnishDays;
|
||||||
|
MonthNames := FinnishMonths;
|
||||||
|
DisplayTexts := FinnishTexts;
|
||||||
|
BiDiMode := bdLeftToRight;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Invalidate;
|
Invalidate;
|
||||||
|
Reference in New Issue
Block a user