home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tpw / reedll / reexs1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-12  |  1.7 KB  |  74 lines
  1. PROGRAM ReeAccess1;
  2.  
  3. USES WinTypes, WinProcs, WObjects, ReeFace;
  4.  
  5. {$R ReeXs1}
  6.  
  7. TYPE
  8.   PMyWindow = ^TMyWindow;
  9.   TMyWindow = OBJECT (TWindow)
  10.     CONSTRUCTOR Init (AParent: PWindowsObject; ATitle: PChar);
  11.     PROCEDURE GetWindowClass (VAR AWndClass: TWndClass); VIRTUAL;
  12.     PROCEDURE SetupWindow; VIRTUAL;
  13.     PROCEDURE Destroy; VIRTUAL;
  14.     PROCEDURE WMTimer (VAR Msg: TMessage); VIRTUAL wm_First + wm_Timer;
  15.   END;
  16.  
  17.   TMyApplication = OBJECT (TApplication)
  18.     PROCEDURE InitMainWindow; VIRTUAL;
  19.     PROCEDURE InitInstance; VIRTUAL;
  20.   END;
  21.  
  22. CONSTRUCTOR TMyWindow.Init (AParent: PWindowsObject; ATitle: PChar);
  23. BEGIN
  24.   TWindow.Init (AParent, ATitle);
  25. END;
  26.  
  27. PROCEDURE TMyWindow.GetWindowClass (VAR AWndClass: TWndClass);
  28. BEGIN
  29.   TWindow.GetWindowClass (AWndClass);
  30.   AWndClass.hIcon := LoadIcon (hInstance, 'AddValue');
  31. END;
  32.  
  33. PROCEDURE TMyWindow.SetupWindow;
  34. BEGIN
  35.   TWindow.SetupWindow;
  36.   ShowWindow (HWindow, sw_ShowMinNoActive);
  37.   SetTimer (HWindow, 1, 400, NIL);
  38. END;
  39.  
  40. PROCEDURE TMyWindow.Destroy;
  41. BEGIN
  42.   KillTimer (HWindow, 1);
  43.   TWindow.Destroy;
  44. END;
  45.  
  46.  
  47. PROCEDURE TMyWindow.WMTimer (VAR Msg: TMessage);
  48. BEGIN
  49.   IF (Msg.wParam = 1) THEN
  50.     ReeFace.IncValue;
  51. END;
  52.  
  53. PROCEDURE TMyApplication.InitMainWindow;
  54. BEGIN
  55.   MainWindow := New (PMyWindow, Init(NIL, 'Incrementing Value'));
  56. END;
  57.  
  58. PROCEDURE TMyApplication.InitInstance;
  59. BEGIN
  60.   InitMainWindow;
  61.   MainWindow := MakeWindow(MainWindow);
  62.   IF (MainWindow <> NIL)
  63.     THEN MainWindow^.Show (sw_ShowMinNoActive)
  64.     ELSE Status := em_InvalidMainWindow;
  65. END;
  66.  
  67. VAR
  68.   GenericApp: TMyApplication;
  69.  
  70. BEGIN
  71.   GenericApp.Init ('ReeAccess 1');
  72.   GenericApp.Run;
  73.   GenericApp.Done;
  74. END.