diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-13 13:57:23 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-13 13:57:23 +0000 |
| commit | c6db96b19c0996c3c1afc89ac106dea7f8ff5f3b (patch) | |
| tree | 6699b94f1fe0e5344ba577301d80886d76e8df15 /extras | |
| parent | af854e41c0f98acec4be31efe1d6690cefa60554 (diff) | |
| download | fpGUI-c6db96b19c0996c3c1afc89ac106dea7f8ff5f3b.tar.xz | |
* Added a tiAppError() helper function to the tiOPF gui code.
Diffstat (limited to 'extras')
| -rw-r--r-- | extras/tiopf/gui/tiDialogs.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/extras/tiopf/gui/tiDialogs.pas b/extras/tiopf/gui/tiDialogs.pas index 3743bbb3..547ecf87 100644 --- a/extras/tiopf/gui/tiDialogs.pas +++ b/extras/tiopf/gui/tiDialogs.pas @@ -38,6 +38,8 @@ uses procedure tiAppMessage(const AMessage: string); // Show a warning procedure tiAppWarning(const AMessage: string); + // Show a error message + procedure tiAppError(const AMessage: string); implementation @@ -170,5 +172,10 @@ begin TfpgMessageDialog.Warning('', AMessage); end; +procedure tiAppError(const AMessage: string); +begin + TfpgMessageDialog.Critical('', AMessage); +end; + end. |