diff options
Diffstat (limited to 'src/corelib/gfx_utils.pas')
| -rw-r--r-- | src/corelib/gfx_utils.pas | 43 |
1 files changed, 19 insertions, 24 deletions
diff --git a/src/corelib/gfx_utils.pas b/src/corelib/gfx_utils.pas index 6dfa2d2d..04d2aa31 100644 --- a/src/corelib/gfx_utils.pas +++ b/src/corelib/gfx_utils.pas @@ -7,43 +7,40 @@ interface uses Classes, SysUtils, gfxbase; -// Platform specific encoding handling functions -function fpgToOSEncoding(aString: TfpgString): string; -function fpgFromOSEncoding(aString: string): TfpgString; +// *** Platform specific functions *** + +function fpgToOSEncoding(aString: TfpgString): string; +function fpgFromOSEncoding(aString: string): TfpgString; +procedure fpgOpenURL(const aURL: TfpgString); + + +// *** Common functions for all platforms *** + +function fpgAddTrailingValue(const ALine, AValue: TfpgString; ADuplicates: boolean = true): TfpgString; -// Common functions for all platforms -function fpgAddTrailingValue(const ALine, AValue: TfpgString; ADuplicates: boolean = true): TfpgString; // RTL wrapper filesystem functions with platform independant encoding // These functions are common for all platforms and rely on fpgXXXPlatformEncoding -function fpgFindFirst(const Path: TfpgString; Attr: Longint; out Rslt: TSearchRec): Longint; -function fpgFindNext(var Rslt: TSearchRec): Longint; -function fpgGetCurrentDir: TfpgString; -function fpgSetCurrentDir(const NewDir: TfpgString): Boolean; -function fpgExpandFileName(const FileName: TfpgString): TfpgString; -function fpgFileExists(const FileName: TfpgString): Boolean; - -{ *** Examples of others we could do *** } +function fpgFindFirst(const Path: TfpgString; Attr: Longint; out Rslt: TSearchRec): Longint; +function fpgFindNext(var Rslt: TSearchRec): Longint; +function fpgGetCurrentDir: TfpgString; +function fpgSetCurrentDir(const NewDir: TfpgString): Boolean; +function fpgExpandFileName(const FileName: TfpgString): TfpgString; +function fpgFileExists(const FileName: TfpgString): Boolean; -// function fpgCreateDir(const NewDir: TfpgString): Boolean; -// function fpgRemoveDir(const Dir: TfpgString): Boolean; -// function fpgForceDirectories(const Dir: TfpgString): Boolean; -// function fpgDeleteFile(const FileName: TfpgString): Boolean; -// function fpgRenameFile(const OldName, NewName: TfpgString): Boolean; -// function fpgFileSearch(const Name, DirList: TfpgString): TfpgString; -// function fpgFileIsReadOnly(const FileName: TfpgString): Boolean; -// .... implementation +{ No USES clause is allowed here! Add it to the include file shown below. } + // Platform specific encoding handling functions {$I gfx_utils_impl.inc} -// the common code for all platforms + function fpgAddTrailingValue(const ALine, AValue: TfpgString; ADuplicates: boolean = true): TfpgString; begin if ALine = '' then @@ -64,8 +61,6 @@ begin result := ALine; end; -// RTL wrapper filesystem functions - function fpgFindFirst(const Path: TfpgString; Attr: Longint; out Rslt: TSearchRec): Longint; begin |