paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 06:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, make sure template dir is created if it doesn't exists

Browse Source 
git-svn-id: trunk@46692 -
This commit is contained in:
jesus 2014-10-28 06:22:37 +00:00
parent a10b091c83
commit e169235dee
14 changed files with 59 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/languages/lr_const.cs.po
View File

@ -1139,6 +1139,10 @@ msgstr "Zarovnání nahoru"
msgid "Top frame line"
msgstr "Horní linka řádku"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Podtrhnout"

4
components/lazreport/source/languages/lr_const.es.po
View File

@ -1111,6 +1111,10 @@ msgstr "Alineación superior"
msgid "Top frame line"
msgstr "Línea de marco superior"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Subrayado"

4
components/lazreport/source/languages/lr_const.fr.po
View File

@ -1125,6 +1125,10 @@ msgstr "Aligner en haut"
msgid "Top frame line"
msgstr "Ligne suppérieure du cadre"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Souligner"

4
components/lazreport/source/languages/lr_const.hu.po
View File

@ -1107,6 +1107,10 @@ msgstr "Felülre igazítás"
msgid "Top frame line"
msgstr "Felső keretvonal"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Aláhúzás"

4
components/lazreport/source/languages/lr_const.id.po
View File

@ -1114,6 +1114,10 @@ msgstr "Jajar atas"
msgid "Top frame line"
msgstr "Garis bingkai atas"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Garis bawah"

4
components/lazreport/source/languages/lr_const.it.po
View File

@ -1105,6 +1105,10 @@ msgstr "Allinea in cima"
msgid "Top frame line"
msgstr "Linea superiore del frame"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Sottolinea"

4
components/lazreport/source/languages/lr_const.lt.po
View File

@ -1116,6 +1116,10 @@ msgstr "Viršutinė lygiuotė"
msgid "Top frame line"
msgstr "Viršutinė rėmelio linija"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Pabraukimas"

4
components/lazreport/source/languages/lr_const.pl.po
View File

@ -1117,6 +1117,10 @@ msgstr "Do góry"
msgid "Top frame line"
msgstr "Górna linia obramowania"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Podkreślenie"

4
components/lazreport/source/languages/lr_const.po
View File

@ -1097,6 +1097,10 @@ msgstr ""
msgid "Top frame line"
msgstr ""
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr ""

4
components/lazreport/source/languages/lr_const.pt_BR.po
View File

@ -1115,6 +1115,10 @@ msgstr "Alinhar acima"
msgid "Top frame line"
msgstr "Borda superior"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Sublinhado"

4
components/lazreport/source/languages/lr_const.ru.po
View File

@ -1113,6 +1113,10 @@ msgstr "Выравнивание по верхнему краю"
msgid "Top frame line"
msgstr "Верхняя линия фрейма"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Подчёркнутый"

4
components/lazreport/source/languages/lr_const.uk.po
View File

@ -1117,6 +1117,10 @@ msgstr "Вирівнювання по верхньому краю"
msgid "Top frame line"
msgstr "Верхня лінія фрейму"
#: lr_const.sfrdesignerformunabletocreatetemplatedir
msgid "Unable to create template directory"
msgstr ""
#: lr_const.sfrdesignerformunderline
msgid "Underline"
msgstr "Підкреслений"

1
components/lazreport/source/lr_const.pas
View File

@ -574,6 +574,7 @@ resourcestring
sFRDesignerForm_Modified = 'Modified';
sFRDesignerExists = 'You already have one TfrDesigner component';
sFRDesignerDataInsp = 'Data inspector';
sFrDesignerFormUnableToCreateTemplateDir = 'Unable to create template directory';
//--- InspForm resources ------------------------------------------------------
sObjectInspector ='Object inspector';

11
components/lazreport/source/lr_desgn.pas
View File

@ -3372,10 +3372,19 @@ begin
else
s := ExtractFileName(ChangeFileExt(FileName, '.frt'));
if frTemplateDir <> '' then
s := frTemplateDir + PathDelim + s;
s := AppendPathDelim(frTemplateDir) + s;
frTemplNewForm := TfrTemplNewForm.Create(nil);
if frTemplNewForm.ShowModal = mrOk then
begin
if frTemplateDir<>'' then
begin
if not DirectoryExistsUTF8(frTemplateDir) then begin
if not ForceDirectoriesUTF8(frTemplateDir) then begin
ShowMessage(sFrDesignerFormUnableToCreateTemplateDir);
exit;
end;
end;
end;
if FCurDocFileType = dtLazReportTemplate then
CurReport.SaveTemplateXML(s, frTemplNewForm.Memo1.Lines, frTemplNewForm.Image1.Picture.Bitmap)
else