diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 17:25:23 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 17:25:23 +0100 |
| commit | edc69a9b2db94201ffd695a589f2996b915c79a5 (patch) | |
| tree | 822ac29bf29d99288a9bb5d071bef9ab76b5de48 /src | |
| parent | a467034e82c261d8ad5ea18c0394995ca0f85d96 (diff) | |
| download | fpGUI-edc69a9b2db94201ffd695a589f2996b915c79a5.tar.xz | |
Replaces usage of standard RTL file functions with fpGUI versions.
The fpGUI versions are OS encoding enabled.
Diffstat (limited to 'src')
| -rw-r--r-- | src/reportengine/u_visu.pas | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/reportengine/u_visu.pas b/src/reportengine/u_visu.pas index eede74ae..99acca0a 100644 --- a/src/reportengine/u_visu.pas +++ b/src/reportengine/u_visu.pas @@ -187,15 +187,14 @@ var PdfFileStream: TFileStream; begin Fd_SavePdf := TfpgFileDialog.Create(nil); - Fd_SavePdf.InitialDir := ExtractFilePath(ParamStr(0)); - Fd_SavePdf.FontDesc := 'bitstream vera sans-9'; + Fd_SavePdf.InitialDir := fpgExtractFilePath(ParamStr(0)); Fd_SavePdf.Filter := 'PDF Documents |*.pdf'; Fd_SavePdf.FileName := FReport.DefaultFile; try if Fd_SavePdf.RunSaveFile then begin PdfFile := Fd_SavePdf.FileName; - if Lowercase(Copy(PdfFile, Length(PdfFile) - 3, 4)) <> '.pdf' then + if Lowercase(fpgExtractFileExt(PdfFile)) <> '.pdf' then PdfFile := PdfFile + '.pdf'; Document := TPdfDocument.CreateDocument; with Document do |