home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tvision / workapp / testapp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-03  |  698 b   |  23 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    TESTAPP.PAS                         *)
  3. (*      Include-Datei zum Einbinden in WORKAPP.PAS        *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. TYPE
  7.   pTestApp = ^tTestApp;
  8.   tTestApp = OBJECT (tDialog)
  9.     CONSTRUCTOR Init;
  10.   END;
  11.  
  12.   CONSTRUCTOR tTestApp.Init;
  13.   VAR
  14.     R : tRect;
  15.   BEGIN
  16.     R.Assign(2, 1, 77, 22);    (* jetzt maximale Größe --
  17.                                   wird später angepaßt *)
  18.     inherited Init(R, 'Test Dialog');
  19.   END;
  20.  
  21. (* ------------------------------------------------------ *)
  22. (*                Ende von TESTAPP.PAS                    *)
  23.