pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Update German language file. Add English po files. Activate Polish language in fulldemo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8256 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-18 22:14:59 +00:00
parent 253688d1e3
commit e363408fea
5 changed files with 553 additions and 527 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -49,6 +49,7 @@ object MainForm: TMainForm
Font.Color = clWhite
Font.Height = -24
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
@ -223,6 +224,7 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Visible days'
ParentColor = False
end
object DaysTrackBar: TTrackBar
AnchorSideLeft.Control = LblVisibleDays
@ -284,6 +286,7 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Granularity'
ParentColor = False
end
end
end
@ -516,6 +519,7 @@ object MainForm: TMainForm
Width = 299
BorderSpacing.Top = 24
Caption = 'Check the resource to be overlaid to the current resource'
ParentColor = False
end
object lblResources: TLabel
AnchorSideLeft.Control = Resources
@ -527,6 +531,7 @@ object MainForm: TMainForm
BorderSpacing.Left = 16
BorderSpacing.Top = 24
Caption = 'Resources (the selected resource will be displayed)'
ParentColor = False
end
end
object Settings: TPage
@ -541,6 +546,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Language'
ParentColor = False
end
object CbLanguages: TComboBox
AnchorSideTop.Control = Settings
@ -580,6 +586,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Drawing style:'
ParentColor = False
end
object CbAddressBuilder: TComboBox
AnchorSideLeft.Control = CbLanguages
@ -614,6 +621,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Address builder'
ParentColor = False
end
object CbAllowInplaceEditing: TCheckBox
AnchorSideLeft.Control = CbLanguages
@ -656,6 +664,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'First day of week'
ParentColor = False
end
object CbTimeFormat: TComboBox
AnchorSideLeft.Control = CbLanguages
@ -682,6 +691,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time format'
ParentColor = False
end
object CbAllowDragAndDrop: TCheckBox
AnchorSideLeft.Control = CbAllowInplaceEditing

4
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -738,15 +738,15 @@ begin
lang := ExtractLanguage(L[i]);
case lang of
'de': po.Add('de - Deutsch');
'',
'en': po.Add('en - English');
'es': po.Add('es - Español');
'fi': po.Add('fi - Finnish');
'fr': po.Add('fr - Français');
'he': po.Add('he - Hebrew');
'hu': po.Add('hu - magyar');
'it': po.Add('it - Italian');
'it': po.Add('it - Italiano');
'nl': po.Add('nl - Dutch');
'pl': po.Add('pl - Polskie');
'ru': po.Add('ru - русский');
end;
end;