home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / PASCAL / HUBI / TEST3D.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-07  |  1.1 KB  |  49 lines
  1. (**************************************************)
  2. (*   Test3D                                       *)
  3. (*                                                *)
  4. (*   Copyright (c) 1993 by A. Furrer              *)
  5. (**************************************************)
  6.  
  7. program Test3D;
  8.  
  9. {$R test3d.res}
  10.  
  11. uses WinTypes, WinProcs, Objects, OWindows, ODialogs, Ctl3d;
  12.  
  13. type
  14.    Applikation =
  15.       object(TApplication)
  16.          procedure InitMainWindow; virtual;
  17.       end;
  18.  
  19.    PMainwindow = ^TMainwindow;
  20.    TMainwindow =
  21.       object(TWindow)
  22.          procedure WMLButtonDown(var Msg : TMessage); virtual 
  23.                     wm_first + wm_LButtonDown;
  24.       end;
  25.  
  26. procedure TMainwindow.WMLButtonDown;
  27. begin
  28.  
  29.   Application^.ExecDialog(NEW(PDialog,Init(@Self,'Test3D')));
  30. end;
  31.  
  32. procedure Applikation.InitMainWindow;
  33. begin
  34.   MainWindow := New(PMainwindow, Init(nil, 'Test3D'));
  35. end;
  36.  
  37. var Prg : Applikation;
  38.  
  39. begin
  40.    Ctl3dRegister(HInstance);
  41.    Ctl3dAutoSubclass(HInstance);
  42.  
  43.    Prg.Init('Test3D');
  44.    Prg.Run;
  45.    Prg.Done;
  46.  
  47.    Ctl3dUnregister(HInstance);
  48. end.
  49.