pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 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'

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ń'; 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;