From edc69a9b2db94201ffd695a589f2996b915c79a5 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 28 Aug 2012 17:25:23 +0100
Subject: Replaces usage of standard RTL file functions with fpGUI versions.

The fpGUI versions are OS encoding enabled.
---
 src/reportengine/u_visu.pas | 5 ++---
 1 file 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
-- 
cgit v1.2.3-70-g09d2