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

tvplanit: Fix exception in fulldemo if demo.po is not found.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4972 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-14 23:04:23 +00:00
parent 6529e73b50
commit bc766e06e1
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -669,7 +669,6 @@ var
firstWeekDay: TVpDayType;
translator: TUpdateTranslator;
nf: TVpNavFolder;
w: Integer;
begin
langdir := ExpandFileName(AppendPathDelim(Application.Location) + LANGUAGE_DIR);
@ -686,13 +685,17 @@ begin
TranslateUnitResourceStrings('demoMain', langDir + 'demo.po');
TranslateUnitResourceStrings('lclstrconsts', langDir + 'lclstrconsts.po');
translator := TPOTranslator.Create(langdir + 'demo.po');
if Assigned(LRSTranslator) then
LRSTranslator.Free;
LRSTranslator := translator;
for i := 0 to Screen.CustomFormCount-1 do
translator.UpdateTranslation(Screen.CustomForms[i]);
end else
if FileExistsUTF8(langdir + 'demo.po') then begin
translator := TPOTranslator.Create(langdir + 'demo.po');
if Assigned(LRSTranslator) then
LRSTranslator.Free;
LRSTranslator := translator;
for i := 0 to Screen.CustomFormCount-1 do
translator.UpdateTranslation(Screen.CustomForms[i]);
end;
end
else
begin
SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');