paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, make editor sample to find it's data under Mac

Browse Source 
git-svn-id: trunk@40451 -
This commit is contained in:
jesus 2013-03-01 02:35:31 +00:00
parent 7fb6dd6a8f
commit 7267e70d32
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/lazreport/samples/editor/maincalleditor.pas
View File

@ -399,27 +399,34 @@ const
var
i: integer;
r: TfrReport;
dataPath: string;
begin
UpdateAppTranslation;
dataPath := ExtractFilePath(ParamStr(0));
{$ifdef Darwin}
dataPath := IncludeTrailingPathDelimiter(ExpandFileName(dataPath + '../../..'));
{$endif}
LookCountries.Close;
LookCountries.FilePath := 'db/';
LookCountries.FilePath := datapath + 'db/';
LookCountries.TableName := 'countries.dbf';
LookCountries.open;
LookCompanies.Close;
LookCompanies.FilePath := 'db/';
LookCompanies.FilePath := datapath + 'db/';
LookCompanies.TableName := 'companies.dbf';
LookCompanies.Open;
Detail.close;
Detail.FilePath := 'db/';
Detail.FilePath := datapath + 'db/';
Detail.TableName := 'disco.dbf';
Detail.open;
Master.Close;
Master.TableName := 'db/countries.dbf';
Master.FilePath := datapath + 'db/';
Master.TableName := 'countries.dbf';
comboIndex.Clear;
comboIndex.Items.Add(cerNone);
@ -428,8 +435,8 @@ begin
FCountryIndex := ComboIndex.Items.IndexOf('BYCOUNTRY');
SetIndex('');
if FileExistsUTF8(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf') then
OpenReport(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if FileExistsUTF8(datapath + 'salida.lrf') then
OpenReport(datapath + 'salida.lrf');
for i:=Low(rptArr) to High(rptArr) do begin
r := TfrReport.Create(self);
@ -438,7 +445,7 @@ begin
end;
Composite.DoublePass:=true;
frSelectHyphenDictionary('hyph_es_ANY.dic');
frSelectHyphenDictionary(dataPath + 'hyph_es_ANY.dic');
end;
procedure TfrmMain.TheReportBeginDoc;