unit_option.pas

DELPHI7程序编写的游戏截图器 生成.EXE文件可以进行游戏截图

unit Unit_option;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox2: TCheckBox;
    GroupBox1: TGroupBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Timer1: TTimer;
    CheckBox5: TCheckBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    CheckBox6: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}


procedure TForm3.CheckBox1Click(Sender: TObject);
begin
  AutoSave :=CheckBox1.Checked;
end;

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
  FileTypeJpg :=True;
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
  FileTypeJpg :=false;
end;

procedure TForm3.CheckBox2Click(Sender: TObject);
begin
  HotKeyUse :=CheckBox2.checked;
end;

procedure TForm3.CheckBox3Click(Sender: TObject);
begin
  HotKey1 :=CheckBox3.checked;
end;

procedure TForm3.CheckBox4Click(Sender: TObject);
begin
  HotKey2 :=CheckBox4.checked;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
 CheckBox1.checked :=AutoSave;
 RadioButton1.Checked :=FileTypeJpg;
 RadioButton2.Checked :=not( FileTypeJpg);
 CheckBox2.checked :=HotKeyUse;
 CheckBox3.checked :=HotKey1;
 CheckBox4.checked :=HotKey2;
 CheckBox5.Checked :=AutoCapture;
 Edit1.text :=IntToStr( AutoCaptureTime div 1000);
 CheckBox6.Checked :=ShowSound; 
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
 try
  strtoint(Edit1.Text);
  AutoCaptureTime := strtoint(Edit1.Text)*1000;
  form1.timer3.interval :=AutoCaptureTime;
 except
  showmessage('Input Error!You must input the integer!');
 end;
end;

procedure TForm3.CheckBox5Click(Sender: TObject);
begin
  AutoCapture :=checkbox5.Checked;
  form1.timer3.enabled :=checkbox5.Checked;
end;

procedure TForm3.CheckBox6Click(Sender: TObject);
begin
  ShowSound :=CheckBox6.Checked;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Form1.Enabled :=true;
end;

end.