diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-25 08:41:03 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-25 08:41:03 +0000 |
| commit | 6d7be43cb7f06433dec345270880e440ab7829f6 (patch) | |
| tree | e11188e6c32351199f617c54c9f5b96803ebf3dc /src/corelib/gdi/gfx_utils_impl.inc | |
| parent | 504502abd0c8525a547deabcf890855513d43e4b (diff) | |
| download | fpGUI-6d7be43cb7f06433dec345270880e440ab7829f6.tar.xz | |
* Added Antonio Sanguigni new TfpgHyperLabel component to fpGUI. I converted his gui_browser class to a fpgOpenURL function.
Diffstat (limited to 'src/corelib/gdi/gfx_utils_impl.inc')
| -rw-r--r-- | src/corelib/gdi/gfx_utils_impl.inc | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/corelib/gdi/gfx_utils_impl.inc b/src/corelib/gdi/gfx_utils_impl.inc index c8b264e1..3862dc23 100644 --- a/src/corelib/gdi/gfx_utils_impl.inc +++ b/src/corelib/gdi/gfx_utils_impl.inc @@ -1,5 +1,8 @@ {%mainunit gfx_utils.pas} +uses + Registry, Shellapi; + // GDI specific implementations of encoding functions function fpgToOSEncoding(aString: TfpgString): string; @@ -12,3 +15,12 @@ begin Result := AnsiToUtf8(aString); end; +procedure fpgOpenURL(const aURL: TfpgString); +begin + try + ShellExecute(0, 'open', PChar(aURL), nil, nil, 0) ; + except + // do nothing + end; +end; + |