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

TvPlanIt: Add Polish translation of fulldemo project. Fix switching languages in this project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8293 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-13 09:51:35 +00:00
parent 960ac21677
commit c36f73b838
3 changed files with 301 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,6 +46,7 @@ object MainForm: TMainForm
Top = 8
Width = 84
Caption = 'TitleLbl'
Color = clDefault
Font.Color = clWhite
Font.Height = -24
Font.Style = [fsBold]
@ -224,6 +225,7 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Visible days'
Color = clDefault
ParentColor = False
end
object DaysTrackBar: TTrackBar
@ -286,6 +288,7 @@ object MainForm: TMainForm
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Granularity'
Color = clDefault
ParentColor = False
end
end
@ -519,6 +522,7 @@ object MainForm: TMainForm
Width = 299
BorderSpacing.Top = 24
Caption = 'Check the resource to be overlaid to the current resource'
Color = clDefault
ParentColor = False
end
object lblResources: TLabel
@ -531,6 +535,7 @@ object MainForm: TMainForm
BorderSpacing.Left = 16
BorderSpacing.Top = 24
Caption = 'Resources (the selected resource will be displayed)'
Color = clDefault
ParentColor = False
end
end
@ -546,6 +551,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Language'
Color = clDefault
ParentColor = False
end
object CbLanguages: TComboBox
@ -586,6 +592,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Drawing style:'
Color = clDefault
ParentColor = False
end
object CbAddressBuilder: TComboBox
@ -621,6 +628,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Address builder'
Color = clDefault
ParentColor = False
end
object CbAllowInplaceEditing: TCheckBox
@ -664,6 +672,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'First day of week'
Color = clDefault
ParentColor = False
end
object CbTimeFormat: TComboBox
@ -691,6 +700,7 @@ object MainForm: TMainForm
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time format'
Color = clDefault
ParentColor = False
end
object CbAllowDragAndDrop: TCheckBox

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

@ -967,10 +967,12 @@ begin
langdir := AppendPathDelim(GetLanguageDir);
// Select new language
if ALang = 'en' then
FLang := '' else
if ALang = '' then
FLang := 'en'
else
FLang := ALang;
(*
if FLang = '' then begin
// Translate VisualPlanIt strings.
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.po');
@ -995,9 +997,10 @@ begin
end
else
begin
*)
SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
end;
//TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
//end;
{
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
@ -1007,7 +1010,6 @@ begin
//VpCalendar1.LoadLanguage;
}
// Select language in language combobox.
if ALang = '' then ALang := 'en';
found := false;
for i:=0 to CbLanguages.Items.Count-1 do
if pos(ALang + ' ', CbLanguages.Items[i]) = 1 then begin