home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / demoapp / res3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-03  |  1.1 KB  |  45 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      RES3.PAS                          *)
  3. (*       Demonstration der Verwendung von Ressourcen      *)
  4. (*             (c) 1993 te-wi Verlag, München             *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM App3;
  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. USES Objects, Drivers, Views, Menus, App;
  12.  
  13. TYPE
  14.   tAnApp = OBJECT (tApplication)
  15.     PROCEDURE InitStatusLine; VIRTUAL;
  16.   END;
  17.  
  18.   PROCEDURE tAnApp.InitStatusLine;
  19.   VAR
  20.     R : tRect;
  21.   BEGIN
  22.     GetExtent(R);
  23.     R.A.Y := R.B.Y - 1;
  24.     StatusLine := New(pStatusLine, Init(R,
  25.       NewStatusDef(0, $FFFF,
  26.         NewStatusKey('~F3~ Öffnen', kbF3, cmOpen,
  27.         NewStatusKey('~F2~ Speichern', kbF3, cmSave,
  28.         NewStatusKey('~Alt+X~ Beenden', kbAltX, cmQuit,
  29.       NIL))),
  30.     NIL)));
  31.   END;
  32.  
  33. VAR
  34.   AnApp : tAnApp;
  35.  
  36. BEGIN
  37.   AnApp.Init;
  38.   AnApp.Run;
  39.   AnApp.Done;
  40. END.
  41. (* ------------------------------------------------------ *)
  42. (*                 Ende von RES3.PAS                      *)
  43.  
  44.  
  45.