home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / DELPHIX.ZIP / Samples / d3drm / SelectDriver / Config.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-06  |  2.1 KB  |  96 lines
  1. unit Config;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, DXDraws;
  8.  
  9. const
  10.   DisModes: array[0..11, 0..2] of Integer = (
  11.     (640, 480, 8),
  12.     (640, 480, 16),
  13.     (640, 480, 24),
  14.     (640, 480, 32),
  15.     (800, 600, 8),
  16.     (800, 600, 16),
  17.     (800, 600, 24),
  18.     (800, 600, 32),
  19.     (1024, 768, 8),
  20.     (1024, 768, 16),
  21.     (1024, 768, 24),
  22.     (1024, 768, 32)
  23.   );
  24.  
  25. type
  26.   TConfigForm = class(TForm)
  27.     AutomaticButton: TRadioButton;
  28.     ManualButton: TRadioButton;
  29.     Bevel1: TBevel;
  30.     DriverBox: TComboBox;
  31.     Label1: TLabel;
  32.     Label2: TLabel;
  33.     DisplayModeBox: TComboBox;
  34.     HardwareCheckBox: TCheckBox;
  35.     RGBCheckBox: TCheckBox;
  36.     MonoCheckBox: TCheckBox;
  37.     Button1: TButton;
  38.     Button2: TButton;
  39.     FullScreenButton: TCheckBox;
  40.     Bevel2: TBevel;
  41.     procedure FormCreate(Sender: TObject);
  42.     procedure Button1Click(Sender: TObject);
  43.     procedure Button2Click(Sender: TObject);
  44.     procedure DriverBoxClick(Sender: TObject);
  45.     procedure DisplayModeBoxClick(Sender: TObject);
  46.   private
  47.     { Private ÉΘî╛ }
  48.   public
  49.     { Public ÉΘî╛ }
  50.   end;
  51.  
  52. var
  53.   ConfigForm: TConfigForm;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. procedure TConfigForm.FormCreate(Sender: TObject);
  60. var
  61.   i: Integer;
  62. begin
  63.   for i:=0 to TDXDraw.Drivers.Count-1 do
  64.     DriverBox.Items.AddObject(TDXDraw.Drivers[i].Description, TDXDraw.Drivers[i]);
  65.   DriverBox.ItemIndex := 0;
  66.  
  67.   for i:=Low(DisModes) to High(DisModes) do
  68.     DisplayModeBox.Items.AddObject(Format('%dx%d %dbit', [DisModes[i, 0], DisModes[i, 1], DisModes[i, 2]]), Pointer(i));
  69.  
  70.   DisplayModeBox.ItemIndex := DisplayModeBox.Items.IndexOf('640x480 16bit');
  71. end;
  72.  
  73. procedure TConfigForm.Button1Click(Sender: TObject);
  74. begin
  75.   Tag := 1;
  76.   Close;
  77. end;
  78.  
  79. procedure TConfigForm.Button2Click(Sender: TObject);
  80. begin
  81.   Close;
  82. end;
  83.  
  84. procedure TConfigForm.DriverBoxClick(Sender: TObject);
  85. begin
  86.   ManualButton.Checked := True;
  87. end;
  88.  
  89. procedure TConfigForm.DisplayModeBoxClick(Sender: TObject);
  90. begin
  91.   ManualButton.Checked := True;
  92.   FullScreenButton.Checked := True;
  93. end;
  94.  
  95. end.
  96.