diff --git a/components/lazreport/samples/editor/alignments.lrf b/components/lazreport/samples/editor/alignments.lrf
index 97bf2ea910..8eb9b29987 100644
--- a/components/lazreport/samples/editor/alignments.lrf
+++ b/components/lazreport/samples/editor/alignments.lrf
@@ -1,22 +1,23 @@
-
+
-
+
+
-
+
@@ -35,7 +36,7 @@
-
+
@@ -62,9 +63,11 @@
-
+
+
+
@@ -106,9 +109,11 @@
-
+
+
+
@@ -150,9 +155,11 @@
-
+
+
+
@@ -194,9 +201,11 @@
-
+
+
+
@@ -238,9 +247,11 @@
-
+
+
+
@@ -282,9 +293,11 @@
-
+
+
+
@@ -326,9 +339,11 @@
-
+
+
+
@@ -370,9 +385,11 @@
-
+
+
+
@@ -414,9 +431,11 @@
-
+
+
+
@@ -458,9 +477,11 @@
-
+
+
+
@@ -502,9 +523,11 @@
-
+
+
+
@@ -546,9 +569,11 @@
-
+
+
+
@@ -590,9 +615,11 @@
-
+
+
+
@@ -634,9 +661,11 @@
-
+
+
+
@@ -678,9 +707,11 @@
-
+
+
+
@@ -722,9 +753,11 @@
-
+
+
+
@@ -766,9 +799,11 @@
-
+
+
+
@@ -810,9 +845,11 @@
-
+
+
+
@@ -854,9 +891,11 @@
-
+
+
+
@@ -898,9 +937,11 @@
-
+
+
+
@@ -942,9 +983,11 @@
-
+
+
+
@@ -981,7 +1024,7 @@
-
+
diff --git a/components/lazreport/samples/editor/calleditorwithpkg.lpi b/components/lazreport/samples/editor/calleditorwithpkg.lpi
index 17eeeaf5f1..4f715d47fa 100644
--- a/components/lazreport/samples/editor/calleditorwithpkg.lpi
+++ b/components/lazreport/samples/editor/calleditorwithpkg.lpi
@@ -54,32 +54,35 @@
-
+
-
+
-
-
+
-
-
+
+
-
+
+
-
+
-
-
+
+
+
+
+
-
+
diff --git a/components/lazreport/samples/editor/calleditorwithpkg.lpr b/components/lazreport/samples/editor/calleditorwithpkg.lpr
index 86606ed20a..fa473598b3 100644
--- a/components/lazreport/samples/editor/calleditorwithpkg.lpr
+++ b/components/lazreport/samples/editor/calleditorwithpkg.lpr
@@ -7,7 +7,7 @@ uses
Forms,
maincalleditor,
lazreportpdfexport,
- lazreport;
+ lazreport, lrcairoexport;
{$R calleditorwithpkg.res}
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.ar.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.ar.po
index 004456228d..6a4f44638e 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.ar.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.ar.po
@@ -1,7 +1,3 @@
- Arabic translation of Free Pascal Lazarus Project.
- Copyright (C) 2012 Lazarus Project
- This file is distributed under the same license as the Lazarus package.
- Khaled Shagrouni , 2012.
msgid ""
msgstr ""
"Project-Id-Version: Free Pascal Lazarus Project.\n"
@@ -21,7 +17,6 @@ msgstr ""
msgid "Active report: %s"
msgstr "التقرير النشط %s"
- مركّب/ تركيب
#: maincalleditor.cerappcaption
msgctxt "maincalleditor.cerappcaption"
msgid "LazReport Test Suite"
@@ -191,6 +186,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "مصغرات"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "اختبار رئيسي-تفصيل"
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.de.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.de.po
index e9c9ab7396..813c9cb48f 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.de.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.de.po
@@ -185,6 +185,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Vorschaubilder"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr ""
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.es.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.es.po
index e446051cf1..83db2c2906 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.es.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.es.po
@@ -182,6 +182,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Imágenes"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr ""
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.fr.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.fr.po
index e8af5cb04c..9d1ea82547 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.fr.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.fr.po
@@ -186,6 +186,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Vignettes"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr ""
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.it.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.it.po
index f516c927ac..cdc665aade 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.it.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.it.po
@@ -183,6 +183,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Miniature"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "Test master-detail"
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po
index e612de53d8..9f05921847 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po
@@ -1,4 +1,3 @@
- Valdas Jankūnas , 2009, 2010, 2012.
msgid ""
msgstr ""
"Project-Id-Version: calleditorwithpkg\n"
@@ -186,6 +185,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Miniatiūros"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "Testas pagrindinis-detalės"
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.po
index 4c90686317..3c2be7c283 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.po
@@ -177,6 +177,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr ""
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr ""
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.pt_BR.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.pt_BR.po
index e11872604d..5691d12cd1 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.pt_BR.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.pt_BR.po
@@ -182,6 +182,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Miniaturas"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "Teste Mestre-Detalhe"
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po
index 8573fbe5b4..bbda63174b 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po
@@ -182,6 +182,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Эскизы"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "Режим 'главный-подчинённый'"
diff --git a/components/lazreport/samples/editor/languages/calleditorwithpkg.uk.po b/components/lazreport/samples/editor/languages/calleditorwithpkg.uk.po
index 011c5ccf62..8e53f9d7d6 100644
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.uk.po
+++ b/components/lazreport/samples/editor/languages/calleditorwithpkg.uk.po
@@ -182,6 +182,10 @@ msgctxt "TFRMMAIN.ACCTHUMBNAILS.CAPTION"
msgid "Thumbnails"
msgstr "Ескізи"
+#: tfrmmain.btnexportlast.caption
+msgid "Repeat Export"
+msgstr ""
+
#: tfrmmain.btnmasterdetail.caption
msgid "Master-Detail Test"
msgstr "Тест 'Основний-Детальний'"
diff --git a/components/lazreport/samples/editor/maincalleditor.lfm b/components/lazreport/samples/editor/maincalleditor.lfm
index 2a52ead083..f1bb5109c5 100644
--- a/components/lazreport/samples/editor/maincalleditor.lfm
+++ b/components/lazreport/samples/editor/maincalleditor.lfm
@@ -5,10 +5,11 @@ object frmMain: TfrmMain
Width = 828
ActiveControl = Panel1
Caption = 'LazReport Test Suite'
- ClientHeight = 520
+ ClientHeight = 525
ClientWidth = 828
Font.Name = 'Sans'
Menu = MainMenu1
+ OnCloseQuery = FormCloseQuery
OnCreate = frmMainCreate
ShowHint = True
LCLVersion = '1.1'
@@ -16,8 +17,8 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = grid
Left = 6
- Height = 17
- Top = 100
+ Height = 18
+ Top = 98
Width = 36
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
@@ -28,10 +29,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = grid
- Left = 751
- Height = 17
- Top = 100
- Width = 71
+ Left = 744
+ Height = 18
+ Top = 98
+ Width = 78
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Expression'
@@ -39,8 +40,8 @@ object frmMain: TfrmMain
end
object sbar: TStatusBar
Left = 0
- Height = 19
- Top = 501
+ Height = 23
+ Top = 502
Width = 828
Panels = <
item
@@ -56,12 +57,12 @@ object frmMain: TfrmMain
AnchorSideRight.Control = lblExpr
AnchorSideBottom.Control = grid
Left = 48
- Height = 27
+ Height = 26
Top = 90
- Width = 697
+ Width = 690
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
- ItemHeight = 0
+ ItemHeight = 18
OnSelect = comboIndexSelect
TabOrder = 2
end
@@ -72,8 +73,8 @@ object frmMain: TfrmMain
AnchorSideRight.Control = grid
AnchorSideBottom.Control = sbar
Left = 0
- Height = 378
- Top = 123
+ Height = 380
+ Top = 122
Width = 204
Anchors = [akTop, akLeft, akBottom]
Color = clMoneyGreen
@@ -91,8 +92,8 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = sbar
Left = 0
- Height = 378
- Top = 123
+ Height = 380
+ Top = 122
Width = 828
Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWhite
@@ -115,7 +116,7 @@ object frmMain: TfrmMain
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
- ChildSizing.ControlsPerLine = 5
+ ChildSizing.ControlsPerLine = 6
ClientHeight = 84
ClientWidth = 828
TabOrder = 4
@@ -123,57 +124,57 @@ object frmMain: TfrmMain
Left = 6
Height = 33
Top = 6
- Width = 173
+ Width = 116
Action = accNewReport
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 0
end
object btnOpenReport: TButton
- Left = 185
+ Left = 128
Height = 33
Top = 6
- Width = 147
+ Width = 123
Action = accOpenReport
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 2
end
object btnEditReport: TButton
- Left = 338
+ Left = 257
Height = 33
Top = 6
- Width = 138
+ Width = 113
Action = accEditReport
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 3
end
object btnPreviewReport: TButton
- Left = 482
+ Left = 376
Height = 33
Top = 6
- Width = 165
+ Width = 154
Action = accPreviewReport
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 4
end
object btnPrintReport: TButton
- Left = 653
+ Left = 536
Height = 33
Top = 6
- Width = 169
+ Width = 134
Action = accPrintReport
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 5
end
object btnCustomPreview: TButton
- Left = 6
+ Left = 676
Height = 33
- Top = 45
- Width = 173
+ Top = 6
+ Width = 146
Action = accCustomPreview
AutoSize = True
BorderSpacing.Around = 6
@@ -181,10 +182,10 @@ object frmMain: TfrmMain
end
object btnPrintGrid: TButton
AnchorSideRight.Side = asrBottom
- Left = 185
+ Left = 6
Height = 33
Top = 45
- Width = 147
+ Width = 116
Action = accPrintGrid
AutoSize = True
BorderSpacing.Around = 6
@@ -192,10 +193,10 @@ object frmMain: TfrmMain
end
object btnComposite: TButton
AnchorSideTop.Side = asrBottom
- Left = 338
+ Left = 128
Height = 33
Top = 45
- Width = 138
+ Width = 123
Action = accComposite
AutoSize = True
BorderSpacing.Around = 6
@@ -204,29 +205,39 @@ object frmMain: TfrmMain
object btnImageList: TButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
- Left = 482
+ Left = 257
Height = 33
Top = 45
- Width = 165
+ Width = 113
Action = accThumbnails
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 7
end
object btnMasterDetail: TToggleBox
- Left = 653
+ Left = 376
Height = 33
Top = 45
- Width = 169
+ Width = 154
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Master-Detail Test'
OnClick = btnMasterDetailClick
TabOrder = 9
end
+ object btnExportLast: TButton
+ Left = 536
+ Height = 33
+ Top = 45
+ Width = 134
+ Caption = 'Repeat Export'
+ OnClick = btnExportLastClick
+ TabOrder = 10
+ end
end
object TheReport: TfrReport
Dataset = frDbDetail
+ DefaultCopies = 0
InitialZoom = pzDefault
Options = [roIgnoreFieldNotFound]
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
@@ -238,9 +249,6 @@ object frmMain: TfrmMain
OnExportFilterSetup = TheReportExportFilterSetup
left = 40
top = 192
- ReportForm = {
- 19000000
- }
end
object Detail: TDbf
IndexDefs = <>
@@ -583,15 +591,13 @@ object frmMain: TfrmMain
top = 360
end
object Composite: TfrCompositeReport
+ DefaultCopies = 0
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
left = 40
top = 248
- ReportForm = {
- 19000000
- }
end
object LookCountries: TDbf
IndexDefs = <>
@@ -634,4 +640,8 @@ object frmMain: TfrmMain
left = 420
top = 312
end
+ object lrCairoExport1: TlrCairoExport
+ left = 352
+ top = 128
+ end
end
diff --git a/components/lazreport/samples/editor/maincalleditor.pas b/components/lazreport/samples/editor/maincalleditor.pas
index 5b606a9d5a..d15567264d 100644
--- a/components/lazreport/samples/editor/maincalleditor.pas
+++ b/components/lazreport/samples/editor/maincalleditor.pas
@@ -27,10 +27,11 @@ interface
uses
Classes, SysUtils, Variants, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
- Buttons, StdCtrls, LR_Const, LR_Class, LR_Desgn, Dbf, DB, DBGrids, LR_DBSet,
+ Buttons, StdCtrls, LR_Const, LR_Class, LR_Desgn, Dbf, DB, DBGrids, LR_DBSet, IniFiles,
LR_PGrid, Menus, ComCtrls, ActnList, Lr_e_txt, Lr_e_htm, LR_E_CSV, LR_DSet,
LR_BarC, LR_RRect, LR_Shape, LR_ChBox, lr_e_pdf, lconvencoding, lr_e_gen,
- lr_utils, LCLProc, ExtCtrls, custompreview, LR_Pars, LR_e_htmldiv;
+ lr_utils, LCLProc, ExtCtrls, custompreview, LR_Pars, LR_e_htmldiv, lr_e_cairo,
+ LazLogger;
type
@@ -63,10 +64,12 @@ type
btnOpenReport: TButton;
btnImageList: TButton;
btnComposite: TButton;
+ btnExportLast: TButton;
comboIndex: TComboBox;
frDbMaster: TfrDBDataSet;
frHtmlDivExport1: TfrHtmlDivExport;
frTNPDFExport1: TfrTNPDFExport;
+ lrCairoExport1: TlrCairoExport;
mastergrid: TDBGrid;
Panel1: TPanel;
srcMaster: TDatasource;
@@ -134,8 +137,10 @@ type
procedure accPreviewReportExecute(Sender: TObject);
procedure accPrintGridExecute(Sender: TObject);
procedure accPrintReportExecute(Sender: TObject);
+ procedure btnExportLastClick(Sender: TObject);
procedure btnMasterDetailClick(Sender: TObject);
procedure comboIndexSelect(Sender: TObject);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure gridTitleClick(Column: TColumn);
procedure frmMainCreate(Sender: TObject);
procedure TheReportBeginDoc;
@@ -150,11 +155,15 @@ type
FImageListIndex: Integer;
FObjCount: Integer;
FCountryIndex: Integer;
+ FCurReport: string;
procedure UpdateAppTranslation;
procedure SetIndex(const aIndexName: string);
procedure OpenReport(const aFileName:string);
procedure UpdateActiveReport;
+ function GetDataPath: string;
procedure MasterDetail;
+ procedure LoadConfig;
+ procedure SaveConfig;
public
{ public declarations }
end;
@@ -364,6 +373,14 @@ begin
ShowMessage(cerPrepareFailed);
end;
+procedure TfrmMain.btnExportLastClick(Sender: TObject);
+begin
+ if TheReport.PrepareReport then
+ TheReport.ExportTo(nil, '')
+ else
+ ShowMessage(cerPrepareFailed);
+end;
+
procedure TfrmMain.btnMasterDetailClick(Sender: TObject);
begin
MasterDetail;
@@ -381,6 +398,11 @@ begin
end;
end;
+procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+ SaveConfig;
+end;
+
procedure TfrmMain.gridTitleClick(Column: TColumn);
begin
if CompareText(Column.FieldName,'year')=0 then
@@ -404,12 +426,11 @@ var
dataPath: string;
begin
+ DebugLogger.MaxNestPrefixLen:=100;
+
UpdateAppTranslation;
- dataPath := ExtractFilePath(ParamStr(0));
- {$ifdef Darwin}
- dataPath := IncludeTrailingPathDelimiter(ExpandFileName(dataPath + '../../..'));
- {$endif}
+ DataPath := GetDataPath;
LookCountries.Close;
LookCountries.FilePath := datapath + 'db/';
@@ -429,16 +450,18 @@ begin
Master.Close;
Master.FilePath := datapath + 'db/';
Master.TableName := 'countries.dbf';
-
+
+ LoadConfig;
+
comboIndex.Clear;
comboIndex.Items.Add(cerNone);
for i:=0 to Detail.Indexes.Count-1 do
comboIndex.Items.Add(Detail.Indexes[i].Name);
FCountryIndex := ComboIndex.Items.IndexOf('BYCOUNTRY');
SetIndex('');
-
- if FileExistsUTF8(datapath + 'salida.lrf') then
- OpenReport(datapath + 'salida.lrf');
+
+ if FileExistsUTF8(fCurReport) then
+ OpenReport(fCurReport);
for i:=Low(rptArr) to High(rptArr) do begin
r := TfrReport.Create(self);
@@ -521,6 +544,7 @@ end;
procedure TfrmMain.OpenReport(const aFileName: string);
begin
TheReport.LoadFromFile(aFileName);
+ fCurReport := TheReport.FileName;
UpdateActiveReport;
end;
@@ -529,6 +553,14 @@ begin
SBar.Panels[0].Text:= format(cerActiveReport, [TheReport.FileName]);
end;
+function TfrmMain.GetDataPath: string;
+begin
+ result := ExtractFilePath(ParamStr(0));
+ {$ifdef Darwin}
+ result := IncludeTrailingPathDelimiter(ExpandFileName(dataPath + '../../..'));
+ {$endif}
+end;
+
procedure TfrmMain.MasterDetail;
begin
if mastergrid.Visible then begin
@@ -553,6 +585,34 @@ begin
end;
end;
+procedure TfrmMain.LoadConfig;
+var
+ ini: TIniFile;
+ s: string;
+begin
+ ini := TIniFile.Create(GetDataPath+'config.ini');
+ s := ini.ReadString('General', 'LastReport', '');
+ if s<>'' then
+ fCurreport := s
+ else
+ fCurReport := GetDataPath + 'salida.lrf';
+ TheReport.DefExportFileName := ini.ReadString('General','LastExportFilename','');
+ TheReport.DefExportFilterClass := ini.ReadString('General','LastExportFilterClass', '');
+ ini.Free;
+end;
+
+procedure TfrmMain.SaveConfig;
+var
+ ini: TIniFile;
+ s: string;
+begin
+ ini := TIniFile.Create(GetDataPath+'config.ini');
+ ini.WriteString('General', 'LastReport', fCurReport);
+ ini.WriteString('General', 'LastExportFilename', theReport.DefExportFileName);
+ ini.WriteString('General', 'LastExportFilterClass', theReport.DefExportFilterClass);
+ ini.free;
+end;
+
procedure TranslateResStrings;
var
Lang, FallbackLang: String;