From c6db96b19c0996c3c1afc89ac106dea7f8ff5f3b Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 13 Jun 2008 13:57:23 +0000
Subject: * Added a tiAppError() helper function to the tiOPF gui code.

---
 extras/tiopf/gui/tiDialogs.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'extras/tiopf/gui')

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.
 
-- 
cgit v1.2.3-70-g09d2