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

TvPlanIt: Revert fulldemo translation code to r8293. Add demomain.lrj file to repository.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8296 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-14 08:58:09 +00:00
parent d427be1d38
commit b806147dfa
2 changed files with 40 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
components/tvplanit/examples/fulldemo/demomain.lrj Normal file
View File

@ -0,0 +1,35 @@
{"version":1,"strings":[
{"hash":52569071,"name":"tmainform.caption","sourcebytes":[84,117,114,98,111,32,80,111,119,101,114,32,86,105,115,117,97,108,80,108,97,110,73,116,32,68,101,109,111],"value":"Turbo Power VisualPlanIt Demo"},
{"hash":11708220,"name":"tmainform.titlelbl.caption","sourcebytes":[84,105,116,108,101,76,98,108],"value":"TitleLbl"},
{"hash":128333971,"name":"tmainform.lblvisibledays.caption","sourcebytes":[86,105,115,105,98,108,101,32,100,97,121,115],"value":"Visible days"},
{"hash":56775678,"name":"tmainform.cbgranularity.text","sourcebytes":[51,48,32,77,105,110],"value":"30 Min"},
{"hash":208017641,"name":"tmainform.lblgranularity.caption","sourcebytes":[71,114,97,110,117,108,97,114,105,116,121],"value":"Granularity"},
{"hash":242926083,"name":"tmainform.rballtasks.caption","sourcebytes":[65,108,108,32,116,97,115,107,115],"value":"All tasks"},
{"hash":229584467,"name":"tmainform.rbhidecompletedtasks.caption","sourcebytes":[72,105,100,101,32,99,111,109,112,108,101,116,101,100,32,116,97,115,107,115],"value":"Hide completed tasks"},
{"hash":78392485,"name":"tmainform.btndeleteres.caption","sourcebytes":[68,101,108,101,116,101],"value":"Delete"},
{"hash":310020,"name":"tmainform.btneditres.caption","sourcebytes":[69,100,105,116],"value":"Edit"},
{"hash":21703,"name":"tmainform.btnnewres.caption","sourcebytes":[78,101,119],"value":"New"},
{"hash":19777637,"name":"tmainform.lblotherresources.caption","sourcebytes":[67,104,101,99,107,32,116,104,101,32,114,101,115,111,117,114,99,101,32,116,111,32,98,101,32,111,118,101,114,108,97,105,100,32,116,111,32,116,104,101,32,99,117,114,114,101,110,116,32,114,101,115,111,117,114,99,101],"value":"Check the resource to be overlaid to the current resource"},
{"hash":109297865,"name":"tmainform.lblresources.caption","sourcebytes":[82,101,115,111,117,114,99,101,115,32,40,116,104,101,32,115,101,108,101,99,116,101,100,32,114,101,115,111,117,114,99,101,32,119,105,108,108,32,98,101,32,100,105,115,112,108,97,121,101,100,41],"value":"Resources (the selected resource will be displayed)"},
{"hash":139375349,"name":"tmainform.lbllanguage.caption","sourcebytes":[76,97,110,103,117,97,103,101],"value":"Language"},
{"hash":254149290,"name":"tmainform.lbldrawingstyle.caption","sourcebytes":[68,114,97,119,105,110,103,32,115,116,121,108,101,58],"value":"Drawing style:"},
{"hash":197701065,"name":"tmainform.cbaddressbuilder.text","sourcebytes":[40,100,101,102,97,117,108,116,41],"value":"(default)"},
{"hash":37013506,"name":"tmainform.lbladdressbuilder.caption","sourcebytes":[65,100,100,114,101,115,115,32,98,117,105,108,100,101,114],"value":"Address builder"},
{"hash":234754375,"name":"tmainform.cballowinplaceediting.caption","sourcebytes":[65,108,108,111,119,32,105,110,112,108,97,99,101,32,101,100,105,116,105,110,103],"value":"Allow inplace editing"},
{"hash":60840299,"name":"tmainform.lblfirstdayofweek.caption","sourcebytes":[70,105,114,115,116,32,100,97,121,32,111,102,32,119,101,101,107],"value":"First day of week"},
{"hash":112038132,"name":"tmainform.lbltimeformat.caption","sourcebytes":[84,105,109,101,32,102,111,114,109,97,116],"value":"Time format"},
{"hash":248087155,"name":"tmainform.cballowdraganddrop.caption","sourcebytes":[65,108,108,111,119,32,100,114,97,103,32,97,110,100,32,100,114,111,112,32,111,102,32,101,118,101,110,116,115],"value":"Allow drag and drop of events"},
{"hash":216343376,"name":"tmainform.cbdragdroptransparent.caption","sourcebytes":[84,114,97,110,115,112,97,114,101,110,116,32,100,114,97,103,32,97,110,100,32,100,114,111,112],"value":"Transparent drag and drop"},
{"hash":17060163,"name":"tmainform.cbshoweventhints.caption","sourcebytes":[83,104,111,119,32,101,118,101,110,116,32,97,110,100,32,99,111,110,116,97,99,116,32,104,105,110,116,115],"value":"Show event and contact hints"},
{"hash":315429,"name":"tmainform.menuitem1.caption","sourcebytes":[70,105,108,101],"value":"File"},
{"hash":109668078,"name":"tmainform.mnueditprintformats.caption","sourcebytes":[69,100,105,116,32,112,114,105,110,116,32,102,111,114,109,97,116,115,46,46,46],"value":"Edit print formats..."},
{"hash":25869902,"name":"tmainform.mnuloadprintformats.caption","sourcebytes":[76,111,97,100,32,112,114,105,110,116,32,102,111,114,109,97,116,115,46,46,46],"value":"Load print formats..."},
{"hash":161391310,"name":"tmainform.mnuprintpreview.caption","sourcebytes":[80,114,105,110,116,32,112,114,101,118,105,101,119,46,46,46],"value":"Print preview..."},
{"hash":151352958,"name":"tmainform.mnuprint.caption","sourcebytes":[80,114,105,110,116,46,46,46],"value":"Print..."},
{"hash":363524,"name":"tmainform.mnuquit.caption","sourcebytes":[81,117,105,116],"value":"Quit"},
{"hash":184026309,"name":"tmainform.mnumaintenance.caption","sourcebytes":[77,97,105,110,116,101,110,97,110,99,101],"value":"Maintenance"},
{"hash":174903555,"name":"tmainform.mnuresources.caption","sourcebytes":[82,101,115,111,117,114,99,101,115],"value":"Resources"},
{"hash":213582195,"name":"tmainform.mnusettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"},
{"hash":322608,"name":"tmainform.menuitem2.caption","sourcebytes":[72,101,108,112],"value":"Help"},
{"hash":168695028,"name":"tmainform.mnuabout.caption","sourcebytes":[65,98,111,117,116,32,86,105,115,117,97,108,32,80,108,97,110,73,116],"value":"About Visual PlanIt"}
]}

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

@ -967,12 +967,11 @@ begin
langdir := AppendPathDelim(GetLanguageDir);
// Select new language
if ALang = '' then
FLang := 'en'
if ALang = 'en' then
FLang := ''
else
FLang := ALang;
(*
if FLang = '' then begin
// Translate VisualPlanIt strings.
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.po');
@ -997,10 +996,9 @@ begin
end
else
begin
*)
SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
//end;
end;
{
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
@ -1010,6 +1008,7 @@ 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