diff options
Diffstat (limited to 'docview')
-rw-r--r-- | docview/src/HelpFile.pas | 3 | ||||
-rw-r--r-- | docview/src/frm_main.pas | 2 |
2 files changed, 3 insertions, 2 deletions
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 @@ uses // ACLFileIOUtility, // ACLLanguageUnit; fpg_main + ,fpg_utils ,nvUtilities ,ACLStringUtility ; @@ -1219,7 +1220,7 @@ var 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 @@ begin 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. } |