home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / workapp / testbed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-03  |  1.4 KB  |  55 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTBED.PAS                        *)
  3. (*       Demonstration der Verwendung von Ressourcen      *)
  4. (*             (c) 1993 te-wi Verlag, München             *)
  5. (* ------------------------------------------------------ *)
  6. UNIT TestBed;
  7.  
  8. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+}
  9. {$M 16384,0,655360}
  10.  
  11. INTERFACE
  12.  
  13. USES Objects, Drivers, Menus, Views, MsgBox, App;
  14.  
  15. CONST
  16.   cmEins  = 101;
  17.   cmZwei  = 102;
  18.   cmDrei  = 103;
  19.  
  20. TYPE
  21.   tBedApp = OBJECT (tApplication)
  22.     PROCEDURE InitMenuBar; VIRTUAL;
  23.     PROCEDURE DebugBox(e : WORD); VIRTUAL;
  24.   END;
  25.  
  26. IMPLEMENTATION
  27.  
  28.   PROCEDURE tBedApp.InitMenuBar;
  29.   VAR
  30.     R : tRect;
  31.   BEGIN
  32.     GetExtent(R);
  33.     R.B.Y := R.A.Y + 1;
  34.     MenuBar := New(pMenuBar, Init(R, NewMenu(
  35.       NewSubMenu('~S~ubs', hcNoContext, NewMenu(
  36.         NewItem('~E~ins', '', kbNoKey, cmEins, hcNoContext,
  37.         NewItem('~Z~wei', '', kbNoKey, cmZwei, hcNoContext,
  38.         NewItem('~D~rei', '', kbNoKey, cmDrei, hcNoContext,
  39.         NIL)))),
  40.       NIL))));
  41.   END;
  42.  
  43.   PROCEDURE tBedApp.DebugBox(e : WORD);
  44.   VAR
  45.     w : STRING;
  46.   BEGIN
  47.     Str(e, w);
  48.     MessageBox('Event #'+ w, NIL, mfInformation OR mfOkButton);
  49.   END;
  50.  
  51. END.
  52. (* ------------------------------------------------------ *)
  53. (*                Ende von TESTBED.PAS                    *)
  54.  
  55.