unit2_.pas

一个用delphi编写的过关游戏

unit Unit2_;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TSettingsForm = class(TForm)
    GroupBox1: TGroupBox;
    BPP32: TRadioButton;
    bpp24: TRadioButton;
    bpp16: TRadioButton;
    BPP8: TRadioButton;
    procedure FormShow(Sender: TObject);
    procedure BPP32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SettingsForm: TSettingsForm;

implementation

uses unit1;

{$R *.DFM}

procedure TSettingsForm.FormShow(Sender: TObject);
begin
case mainform.dxdraw1.display.BitCount of
 8 : bpp8.Checked:=true;
 16 : bpp16.Checked:=true;
 24 : bpp24.Checked:=true;
 32 : bpp32.Checked:=true;
 end;
end;

procedure TSettingsForm.BPP32Click(Sender: TObject);
begin
mainform.dxdraw1.Display.BitCount:=strtoint(tradiobutton(sender).caption);
mainform.DXDraw1.Initialize;
end;

end.