diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 09:35:21 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 09:35:21 +0200 |
| commit | fd7913901deefb8204c386e01ab6b18b2cac6874 (patch) | |
| tree | b1ba9652672362b83c1da9fbd9b72bc780754a3b /docview | |
| parent | 540e3d91366a97c817775f2b99ccb41b9f00497d (diff) | |
| download | fpGUI-fd7913901deefb8204c386e01ab6b18b2cac6874.tar.xz | |
Use fpGUI wrapper functions instead of RTL functions directly.
fpGUI's wrapper functions handle unicode conversions from OS automatically.
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. } |