home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tpw / reedll / reexs3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-03  |  1.7 KB  |  73 lines
  1. PROGRAM ReeAccess3;
  2.  
  3. USES WinTypes, WinProcs, WObjects, ReeFace;
  4.  
  5. {$R ReeXs3}
  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, 'ReeXs3');
  31. END;
  32.  
  33. PROCEDURE TMyWindow.SetupWindow;
  34. BEGIN
  35.   TWindow.SetupWindow;
  36.   ShowWindow (HWindow, sw_ShowMinNoActive);
  37.   SetTimer (HWindow, 3, 10000, NIL);
  38. END;
  39.  
  40. PROCEDURE TMyWindow.Destroy;
  41. BEGIN
  42.   KillTimer (HWindow, 3);
  43.   TWindow.Destroy;
  44. END;
  45.  
  46. PROCEDURE TMyWindow.WMTimer (VAR Msg: TMessage);
  47. BEGIN
  48.   IF (Msg.wParam = 3) THEN
  49.     ReeFace.SetValue (10);
  50. END;
  51.  
  52. PROCEDURE TMyApplication.InitMainWindow;
  53. BEGIn
  54.   MainWindow := New (PMyWindow, Init(NIL, 'Set Value to 10'));
  55. END;
  56.  
  57. PROCEDURE TMyApplication.InitInstance;
  58. BEGIN
  59.   InitMainWindow;
  60.   MainWindow := MakeWindow(MainWindow);
  61.   IF (MainWindow <> NIL)
  62.     THEN MainWindow^.Show (sw_ShowMinNoActive)
  63.     ELSE Status := em_InvalidMainWindow;
  64. END;
  65.  
  66. VAR
  67.   GenericApp: TMyApplication;
  68.  
  69. BEGIN
  70.   GenericApp.Init ('ReeAccess 3');
  71.   GenericApp.Run;
  72.   GenericApp.Done;
  73. END.