diff options
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. |