home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / gvmsgbox.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  2.5 KB  |  70 lines
  1. Unit GVMsgBox;
  2.  
  3.  
  4. interface
  5.  
  6. uses Objects;
  7.  
  8. const
  9.  
  10. { Message box classes }
  11.  
  12.   mfWarning      = $0000;       { Zeigt eine Warnung }
  13.   mfError        = $0001;       { Zeigt eine Fehlermeldung }
  14.   mfInformation  = $0002;       { Zeigt eine Information an }
  15.   mfConfirmation = $0003;       { Fragt eine Bestätigung ab }
  16.  
  17. { Message box button flags }
  18.  
  19.   mfYesButton    = $0100;       { Nimmt einen Ja Schalter in den Dialog auf }
  20.   mfNoButton     = $0200;       { Nimmt einen Nein Schalter in den Dialog auf }
  21.   mfOKButton     = $0400;       { Nimmt einen OK Schalter in den Dialog auf }
  22.   mfCancelButton = $0800;       { Nimmt einen Abbruch Schalter in den Dialog auf }
  23.  
  24. { Message box flag for no icon }
  25.  
  26.   mfNoIcon = $0004;
  27.  
  28.   mfYesNoCancel  = mfYesButton + mfNoButton + mfCancelButton;
  29.                                 { Standard Ja, Nein, Abbruch Dialog }
  30.   mfOKCancel     = mfOKButton + mfCancelButton;
  31.                                 { Standard OK, Abbruch Dialog }
  32.  
  33. { MessageBox zeigt den angegebenen String in einem Dialogfenster  }
  34. { an. Bevor das Dialogfenster angezeigt wird, wird Msg und Params }
  35. { über FormatString verknüpft. Das Ergebnis wird als TStaticText  }
  36. { View in den Dialog aufgenommen.                                 }
  37.  
  38. function MessageBox (Msg: String; Params: Pointer; AOptions: Word): Word;
  39.  
  40. { MessageBoxRect erlaubt es, einen Anzeigebereich für die         }
  41. { MessageBox anzugeben.                                           }
  42.  
  43. function MessageBoxRect (var R: TRect; Msg: String; Params: Pointer;
  44.   AOptions: Word): Word;
  45.  
  46. { MessageBoxTitle erlaubt es, einen Titel für die MessageBox      }
  47. { anzugeben.                                                      }
  48.  
  49. function MessageBoxTitle (Title, Msg: String; Params: Pointer; AOptions: Word): Word;
  50.  
  51. { MessageBoxTitleRect ermöglicht es, einen Anzeigebereich und     }
  52. { einen Titel für die MessageBox anzugeben.                       }
  53.  
  54. function MessageBoxTitleRect (var R: TRect; Title, Msg: String; Params: Pointer;
  55.   AOptions: Word): Word;
  56.  
  57. { InputBox zeigt ein einfaches Dialogfenster, das es ermöglicht,  }
  58. { einen String einzugeben, an.                                    }
  59.  
  60. function InputBox (Title: String; ALabel: String; var S: String;
  61.   Limit: Byte): Word;
  62.  
  63. { InputBoxRect ist wie InputBox, erlaubt es jedoch einen Anzeige- }
  64. { bereich für das Dialogfenster anzugeben.                        }
  65.  
  66. function InputBoxRect (var Bounds: TRect; Title: String; ALabel: String;
  67.   var S: String;  Limit: Byte): Word;
  68.  
  69. implementation
  70.