home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / tvision / hello.pas < prev    next >
Pascal/Delphi Source File  |  1992-03-22  |  2KB  |  78 lines
  1. (* ---------------------------------------------------------------- *)
  2. (*                               HELLO.PAS                          *)
  3. (*                                                                  *)
  4. (* Eine leicht modifizierte Fassung von HELLO aus \tvdemos, die     *)
  5. (* eine von TOOL erstellte Datei als Include-Datei einbindet und    *)
  6. (* annimmt, dass diese eine Prozedur namens DemoDialog enthält.     *)
  7. (* Dieser Dialog wird ausgeführt, wenn im "Menü" Hello der Punkt    *)
  8. (* Demo gewählt wird.                                               *)
  9. (*                                                                  *)
  10. (*                  (c) 1992 by R.Reichert & DMV-Verlag             *)
  11. (* ---------------------------------------------------------------- *)
  12. PROGRAM Hello;
  13.  
  14. USES Objects, Drivers, Views, Menus,
  15.      Dialogs, App, Editors;
  16.  
  17. CONST
  18.   cmDemo = 100;
  19.  
  20. TYPE
  21.   pHelloApp = ^tHelloApp;
  22.   tHelloApp = OBJECT (tApplication)
  23.     PROCEDURE HandleEvent (VAR Event: tEvent);                VIRTUAL;
  24.     PROCEDURE InitMenuBar;                                    VIRTUAL;
  25.     PROCEDURE InitStatusLine;                                 VIRTUAL;
  26.   END;
  27.  
  28. VAR
  29.   ToolDemo: tHelloApp;
  30.  
  31. PROCEDURE tHelloApp.HandleEvent(var Event: TEvent);
  32.   {$I DEMODLG.PAS }
  33. BEGIN
  34.   tApplication.HandleEvent (Event);
  35.   IF (Event.What = evCommand) AND
  36.      (Event.Command = cmDemo) THEN BEGIN
  37.     DemoDialogDialog;
  38.     ClearEvent (Event);
  39.   END;
  40. END;
  41.  
  42. PROCEDURE tHelloApp.InitMenuBar;
  43.   VAR R: tRect;
  44. BEGIN
  45.   GetExtent(R);
  46.   R.B.Y := R.A.Y + 1;
  47.   MenuBar := New (pMenuBar, Init (R, NewMenu (
  48.     NewSubMenu ('~H~ello', hcNoContext, NewMenu (
  49.       NewItem ('~D~emo...','', 0, cmDemo, hcNoContext,
  50.       NewLine (
  51.       NewItem ('E~x~it', 'Alt-X', kbAltX, cmQuit, hcNoContext,
  52.     NIL)))),
  53.   NIL))));
  54. END;
  55.  
  56. PROCEDURE tHelloApp.InitStatusLine;
  57.   VAR R: TRect;
  58. BEGIN
  59.   GetExtent (R);
  60.   R.A.Y := R.B.Y-1;
  61.   StatusLine := New (pStatusLine, Init (R,
  62.     NewStatusDef (0, $FFFF,
  63.       NewStatusKey ('', kbF10, cmMenu,
  64.       NewStatusKey ('~Alt-X~ Exit', kbAltX, cmQuit,
  65.     NIL)),
  66.   NIL)));
  67. END;
  68.  
  69. BEGIN
  70.   ToolDemo.Init;
  71.   ToolDemo.Run;
  72.   ToolDemo.Done;
  73. END.
  74.  
  75. (* ---------------------------------------------------------------- *)
  76. (*                           Ende von HELLO.PAS                     *)
  77. (* ---------------------------------------------------------------- *)
  78.