* Implemented a ModalResult type and related constants.

* Updated fpGUI framework to use the new TfpgModalResult type and mrXXX constants.

2 files changed, 21 insertions, 7 deletions

diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index ddbee4d5..e915db0a 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -36,12 +36,12 @@ type
     txtAutoSize);
 
   TMouseButton = (mbLeft, mbRight, mbMiddle);
-
+  
 
 const
   AllAnchors = [anLeft, anRight, anTop, anBottom];
   TextFlagsDflt = [txtLeft, txtTop, txtEnabled];
-
+  
   // Used for the internal message queue
   cMessageQueueSize = 1024;
 
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 67548997..e1e5400a 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -27,11 +27,12 @@ uses
   gfx_impl;
 
 type
-  TfpgCoord   = integer;     // we might use floating point coordinates in the future...
-  TfpgColor   = type longword;    // Always in RRGGBB (Alpha, Red, Green, Blue) format!!
-  TfpgString  = type string;
-  TfpgChar    = type string[4];
-
+  TfpgCoord       = integer;     // we might use floating point coordinates in the future...
+  TfpgColor       = type longword;    // Always in RRGGBB (Alpha, Red, Green, Blue) format!!
+  TfpgString      = type string;
+  TfpgChar        = type string[4];
+  TfpgModalResult = Low(integer)..High(integer);
+  
   TRGBTriple = record
     Red: word;
     Green: word;
@@ -81,6 +82,19 @@ const
   // The special keys, based on the well-known keyboard scan codes
   {$I keys.inc}
 
+  { TfpgModalResult values }
+  mrNone     = 0;
+  mrOk       = mrNone + 1;
+  mrCancel   = mrOk + 1;
+  mrYes      = mrCancel + 1;
+  mrNo       = mrYes + 1;
+  mrAbort    = mrNo + 1;
+  mrRetry    = mrAbort + 1;
+  mrIgnore   = mrRetry + 1;
+  mrAll      = mrIgnore + 1;
+  mrNoToAll  = mrAll + 1;
+  mrYesToAll = mrNoToAll + 1;
+
 var
   FPG_DEFAULT_FONT_DESC: string = 'Arial-10:antialias=true';