ublockstyle.pas

很好的俄罗斯方块

{  更换方块式样窗体单元 }
unit UBlockStyle;

interface

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

type
  TBlockStyleForm = class(TForm)
    GroupBoxStyle: TGroupBox;
    UseDefault: TCheckBox;
    OkBtn: TButton;
    CancelBtn: TButton;
    Style1: TRadioButton;
    Style2: TRadioButton;
    Style3: TRadioButton;
    Style4: TRadioButton;
    Style5: TRadioButton;
    Style8: TRadioButton;
    Style7: TRadioButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Style6: TRadioButton;
    ImageOther: TImage;
    SelectOther: TCheckBox;
    SelectOtherBtn: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure UseDefaultClick(Sender: TObject);
    procedure OkBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure SelectOtherClick(Sender: TObject);
    procedure SelectOtherBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetStyleEnable(En: Boolean);
  end;

var
  BlockStyleForm: TBlockStyleForm;

implementation

uses UMain;

{$R *.DFM}

procedure TBlockStyleForm.SetStyleEnable(En: Boolean);
begin
   Style1.Enabled := En;
   Style2.Enabled := En;
   Style3.Enabled := En;
   Style4.Enabled := En;
   Style5.Enabled := En;
   Style6.Enabled := En;
   Style7.Enabled := En;
   Style8.Enabled := En;
end;

procedure TBlockStyleForm.FormCreate(Sender: TObject);
begin
   UseDefault.Checked := not UseImgBlock;
   GroupBoxStyle.Enabled := UseImgBlock;

   if not GroupBoxStyle.Enabled then
   begin
      SetStyleEnable(false);
      SelectOther.Enabled := false;
   end
   else
   begin
      SetStyleEnable(true);
      SelectOther.Enabled := true;
      if SelectOther.Checked then
      begin
         SetStyleEnable(false);
         SelectOtherBtn.Enabled := true;
      end
      else
      begin
         SetStyleEnable(true);
         SelectOtherBtn.Enabled := false;
      end;
   end;
end;

procedure TBlockStyleForm.UseDefaultClick(Sender: TObject);
begin
   GroupBoxStyle.Enabled := not UseDefault.Checked;
   if not GroupBoxStyle.Enabled then
   begin
      SetStyleEnable(false);
      SelectOther.Enabled := false;
   end
   else
   begin
      SetStyleEnable(true);
      SelectOther.Enabled := true;
      if SelectOther.Checked then
      begin
         SetStyleEnable(false);
         SelectOtherBtn.Enabled := true;
      end
      else
      begin
         SetStyleEnable(true);
         SelectOtherBtn.Enabled := false;
      end;
   end;

end;

procedure TBlockStyleForm.OkBtnClick(Sender: TObject);
begin
   UseImgBlock := not UseDefault.Checked;
   if Style1.Checked then frmGame.ImgBlock.Picture.Assign(Image1.Picture);//frmGame.ImgBlock := Image1;
   if Style2.Checked then frmGame.ImgBlock.Picture.Assign(Image2.Picture);//frmGame.ImgBlock := Image2;
   if Style3.Checked then frmGame.ImgBlock.Picture.Assign(Image3.Picture);//frmGame.ImgBlock := Image3;
   if Style4.Checked then frmGame.ImgBlock.Picture.Assign(Image4.Picture);//frmGame.ImgBlock := Image4;
   if Style5.Checked then frmGame.ImgBlock.Picture.Assign(Image5.Picture);//frmGame.ImgBlock := Image5;
   if Style6.Checked then frmGame.ImgBlock.Picture.Assign(Image6.Picture);//frmGame.ImgBlock := Image6;
   if Style7.Checked then frmGame.ImgBlock.Picture.Assign(Image7.Picture);//frmGame.ImgBlock := Image7;
   if Style8.Checked then frmGame.ImgBlock.Picture.Assign(Image8.Picture);//frmGame.ImgBlock := Image8;
   if SelectOther.Checked then
      frmGame.ImgBlock.Picture.Assign(ImageOther.Picture);
   Close;
end;

procedure TBlockStyleForm.CancelBtnClick(Sender: TObject);
begin
   Close;
end;

procedure TBlockStyleForm.SelectOtherClick(Sender: TObject);
begin
   if SelectOther.Checked then
   begin
      SetStyleEnable(false);
      SelectOtherBtn.Enabled := true;
   end
   else
   begin
      SetStyleEnable(true);
      SelectOtherBtn.Enabled := false;
   end;
end;

procedure TBlockStyleForm.SelectOtherBtnClick(Sender: TObject);
begin
   With frmGame do
      if OpenPicDlg.Execute then
         ImageOther.Picture.LoadFromFile(OpenPicDlg.FileName);
end;

end.