home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tpw / reedll / reexs2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-12  |  1.7 KB  |  75 lines
  1. PROGRAM ReeAccess2;
  2.  
  3. USES WinTypes, WinProcs, WObjects, ReeFace;
  4.  
  5. {$R ReeXs2}
  6.  
  7. TYPE
  8.   PMyWindow = ^TMyWindow;
  9.   TMyWindow = OBJECT (TWindow)
  10.     CONSTRUCTOR Init (AParent: PWindowsObject; ATitle: PChar);
  11.     PROCEDURE SetupWindow; VIRTUAL;
  12.     PROCEDURE Destroy; VIRTUAL;
  13.     PROCEDURE GetWindowClass (VAR AWndClass: TWndClass); VIRTUAL;
  14.     PROCEDURE WMTimer (VAR Msg: TMessage); VIRTUAL wm_First + wm_Timer;
  15.   END;
  16.  
  17.   TMyApplication = OBJECT (TApplication)
  18.     PROCEDURE InitMainWindow; VIRTUAL;
  19.   END;
  20.  
  21. CONSTRUCTOR TMyWindow.Init (AParent: PWindowsObject; ATitle: PChar);
  22. BEGIN
  23.   TWindow.Init (AParent, ATitle);
  24.   Attr.w := 200;
  25.   Attr.h := 70;
  26. END;
  27.  
  28. PROCEDURE TMyWindow.SetupWindow;
  29. BEGIN
  30.   TWindow.SetupWindow;
  31.   SetTimer (HWindow, 2, 300, NIL);
  32. END;
  33.  
  34. PROCEDURE TMyWindow.Destroy;
  35. BEGIN
  36.   KillTimer (HWindow, 2);
  37.   TWindow.Destroy;
  38. END;
  39.  
  40. PROCEDURE TMyWindow.GetWindowClass (VAR AWndClass: TWndClass);
  41. BEGIN
  42.   TWindow.GetWindowClass (AWndClass);
  43.   AWndClass.hIcon := LoadIcon (hInstance, idi_Asterisk);
  44. END;
  45.  
  46. PROCEDURE TMyWindow.WMTimer (VAR Msg: TMessage);
  47. VAR
  48.   EinDC: HDC;
  49.   Temporary: WORD;
  50.   APChar: ARRAY [0..22] OF CHAR;
  51. BEGIN
  52.   IF (Msg.wParam = 2)
  53.   THEN BEGIN
  54.     InvalidateRect (HWindow, NIL, False);
  55.     EinDC := GetDC (HWindow);
  56.     Temporary := ReeFace.GetValue;
  57.     WVSPrintF (APChar, '%3u', Temporary);
  58.     TextOut (EinDC, 5, 10, APChar, 3);
  59.     ReleaseDC (HWindow, EinDC);
  60.   END;
  61. END;
  62.  
  63. PROCEDURE TMyApplication.InitMainWindow;
  64. BEGIn
  65.   MainWindow := New (PMyWindow, Init(NIL, 'Current Value'));
  66. END;
  67.  
  68. VAR
  69.   GenericApp: TMyApplication;
  70.  
  71. BEGIN
  72.   GenericApp.Init ('ReeAccess 2');
  73.   GenericApp.Run;
  74.   GenericApp.Done;
  75. END.