home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / for-dos / tvtoys.arj / IMPRTANT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-07  |  2.5 KB  |  68 lines
  1. (***************************************************************************
  2.   Important include
  3.   VideoTest warning text
  4.   PJB August 29, 1993, Internet mail to d91-pbr@nada.kth.se
  5.   Copyright 1993, All Rights Reserved
  6.   Free source, use at your own risk.
  7.   If modified, please state so if you pass this around.
  8. ***************************************************************************)
  9.  
  10. (*******************************************************************
  11.   This code generated by Dialog Design 4.0 available by anonymous
  12.   ftp to garbo.uwasa.fi  /pc/turbovis. Thanks to David Baldwin
  13. *******************************************************************)
  14. function MakeImportantDialog : PDialog;
  15.   var
  16.     Dlg : PDialog;
  17.     R : TRect;
  18.     Control : PView;
  19. begin
  20.   R.Assign(3, 0, 77, 22);
  21.   New(Dlg, Init(R, 'Important'));
  22.   Dlg^.Options := Dlg^.Options or ofCentered;
  23.  
  24.   R.Assign(4, 2, 13, 3);
  25.   Control := New(PStaticText, Init(R, 'IMPORTANT'));
  26.   Dlg^.Insert(Control);
  27.  
  28.   R.Assign(4, 4, 70, 6);
  29.   Control := New(PStaticText, Init(R, 'This program will first try to determ'+
  30.        'ine what video modes are available and then present a list for you to '+
  31.        'choose from. '));
  32.   Dlg^.Insert(Control);
  33.  
  34.   R.Assign(4, 7, 71, 10);
  35.   Control := New(PStaticText, Init(R, '■ If your video card is VERY old (pre'+
  36.        ' 1988) it might not handle '^M+
  37.        '  this test very well and cause the computer to stop responding'+
  38.        '. '^M+
  39.        '  If that happens, restart the computer and forget about this.'));
  40.   Dlg^.Insert(Control);
  41.  
  42.   R.Assign(4, 11, 72, 14);
  43.   Control := New(PStaticText, Init(R, '■ If you have a fixed sync VGA monito'+
  44.        'r, trying to use Super VGA '^M+
  45.        '  video modes will result in screen jitter. Even worse, the scr'+
  46.        'een '^M+
  47.        '  fuse might melt if the monitor cannot cope with such signals.'));
  48.   Dlg^.Insert(Control);
  49.  
  50.   R.Assign(4, 15, 71, 18);
  51.   Control := New(PStaticText, Init(R, '■ If you select a video mode other th'+
  52.        'an the normal 80x25 one, rest '^M+
  53.        '  assured that your non-Logitech mouse driver will puke at you.'+
  54.        ''^M+
  55.        '  Try using the NewMouse unit included in this package.'));
  56.   Dlg^.Insert(Control);
  57.  
  58.   R.Assign(20, 19, 34, 21);
  59.   Control := New(PButton, Init(R, '~R~un test', cmOK, bfNormal));
  60.   Dlg^.Insert(Control);
  61.  
  62.   R.Assign(40, 19, 52, 21);
  63.   Control := New(PButton, Init(R, 'Cancel', cmCancel, bfDefault));
  64.   Dlg^.Insert(Control);
  65.  
  66.   MakeImportantDialog := Dlg;
  67. end;
  68.