home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 May / pcw-0595.bin / demos / databeck / wsounds / setup.dir / wswsrc.exe / SCRNSDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1992-11-02  |  890b  |  43 lines
  1. Unit ScrnsDlg;
  2.  
  3. INTERFACE
  4. uses WinTypes, WinProcs, WinDos, WObjects, Strings, MMSystem,
  5.      DataObj, WaveUtil, WAVEIO;
  6.  
  7. const
  8.   dn_ScreenDlg = 'ScreenSavDlg';
  9.  
  10. type
  11.   PScreenDlg = ^TScreenDlg;
  12.   TScreenDlg = object(TDialog)
  13.     constructor Init(AParent: PWindowsObject;AName: PChar);
  14.     PROCEDURE   OK(VAR Msg : TMessage);Virtual id_First + id_Ok;
  15.     procedure   Cancel(var Msg: TMessage); virtual id_First + id_Cancel;
  16.     procedure SetupWindow; virtual;
  17.   end;
  18.  
  19. implementation
  20.  
  21. constructor TScreenDlg.Init(AParent: PWindowsObject;AName: PChar);
  22. begin
  23.   TDialog.Init(AParent, AName);
  24. end;
  25.  
  26. procedure TScreenDlg.SetupWindow;
  27. begin
  28.   TDialog.SetupWindow;
  29. end;
  30.  
  31. procedure   TScreenDlg.Cancel(var Msg: TMessage);
  32. BEGIN
  33.    TDialog.Cancel(Msg);
  34.    END;
  35.  
  36. PROCEDURE   TScreenDlg.OK(VAR Msg : TMessage);
  37. BEGIN
  38.    TDialog.OK(Msg);
  39.    END;
  40.  
  41. BEGIN
  42.    END.
  43.