From fd7913901deefb8204c386e01ab6b18b2cac6874 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 23 Aug 2010 09:35:21 +0200
Subject: Use fpGUI wrapper functions instead of RTL functions directly.

fpGUI's wrapper functions handle unicode conversions from OS automatically.
---
 docview/src/HelpFile.pas | 3 ++-
 docview/src/frm_main.pas | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'docview')

diff --git a/docview/src/HelpFile.pas b/docview/src/HelpFile.pas
index a3801aa5..4cd36edc 100644
--- a/docview/src/HelpFile.pas
+++ b/docview/src/HelpFile.pas
@@ -186,6 +186,7 @@ function GetHelpFileTitle( const Filename: string ): string;
 //  ACLFileIOUtility,
 //  ACLLanguageUnit;
   fpg_main
+  ,fpg_utils
   ,nvUtilities
   ,ACLStringUtility
   ;
@@ -1219,7 +1220,7 @@ function GetHelpFileTitle( const Filename: string ): string;
   fstream: TFileStream;
   Ext: string;
 begin
-  Ext := ExtractFileExt( Filename );
+  Ext := fpgExtractFileExt( Filename );
   Result := '';
 
   if    SameText( Ext, '.inf' )
diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index 4defc759..8a3aa84a 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -1034,7 +1034,7 @@ procedure TMainForm.FileOpen;
 
     if dlg.RunOpenFile then
     begin
-      Settings.LastOpenDirectory := ExtractFilePath(dlg.Filename);
+      Settings.LastOpenDirectory := fpgExtractFilePath(dlg.Filename);
       OpenFile(dlg.Filename, '', true);
     end;
     { TODO -oGraeme : Add support for multiple files. }
-- 
cgit v1.2.3-54-g00ecf