www.pudn.com > woool12.rar > ActionSpeedConfig.pas

unit ActionSpeedConfig; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Spin; 
 
type 
  TfrmActionSpeed = class(TForm) 
    GroupBox1: TGroupBox; 
    GroupBox3: TGroupBox; 
    Label15: TLabel; 
    EditRunLongHitIntervalTime: TSpinEdit; 
    GroupBox2: TGroupBox; 
    Label2: TLabel; 
    EditActionIntervalTime: TSpinEdit; 
    CheckBoxControlActionInterval: TCheckBox; 
    CheckBoxControlRunLongHit: TCheckBox; 
    GroupBox4: TGroupBox; 
    Label1: TLabel; 
    EditRunHitIntervalTime: TSpinEdit; 
    CheckBoxControlRunHit: TCheckBox; 
    GroupBox5: TGroupBox; 
    Label3: TLabel; 
    EditWalkHitIntervalTime: TSpinEdit; 
    CheckBoxControlWalkHit: TCheckBox; 
    ButtonSave: TButton; 
    ButtonDefault: TButton; 
    ButtonClose: TButton; 
    CheckBoxIncremeng: TCheckBox; 
    GroupBox6: TGroupBox; 
    Label4: TLabel; 
    EditRunMagicIntervalTime: TSpinEdit; 
    CheckBoxControlRunMagic: TCheckBox; 
    Label5: TLabel; 
    procedure ButtonCloseClick(Sender: TObject); 
    procedure ButtonDefaultClick(Sender: TObject); 
    procedure ButtonSaveClick(Sender: TObject); 
    procedure CheckBoxControlActionIntervalClick(Sender: TObject); 
    procedure EditActionIntervalTimeChange(Sender: TObject); 
    procedure CheckBoxControlRunLongHitClick(Sender: TObject); 
    procedure EditRunLongHitIntervalTimeChange(Sender: TObject); 
    procedure CheckBoxControlRunHitClick(Sender: TObject); 
    procedure EditRunHitIntervalTimeChange(Sender: TObject); 
    procedure CheckBoxControlWalkHitClick(Sender: TObject); 
    procedure EditWalkHitIntervalTimeChange(Sender: TObject); 
    procedure CheckBoxIncremengClick(Sender: TObject); 
    procedure CheckBoxControlRunMagicClick(Sender: TObject); 
    procedure EditRunMagicIntervalTimeChange(Sender: TObject); 
  private 
    { Private declarations } 
    boOpened: Boolean; 
    boModValued: Boolean; 
    procedure ModValue(); 
    procedure uModValue(); 
    procedure SaveConfig(); 
    procedure RefSpeedConfig(); 
  public 
    procedure Open(); 
    { Public declarations } 
  end; 
 
var 
  frmActionSpeed    : TfrmActionSpeed; 
 
implementation 
 
uses  M2Share; 
 
{$R *.dfm} 
 
{ TfrmActionSpeed } 
 
procedure TfrmActionSpeed.ModValue; 
begin 
  boModValued := True; 
  ButtonSave.Enabled := True; 
 
end; 
 
procedure TfrmActionSpeed.uModValue; 
begin 
  boModValued := False; 
  ButtonSave.Enabled := False; 
end; 
 
procedure TfrmActionSpeed.Open; 
begin 
  boOpened := False; 
  uModValue(); 
  RefSpeedConfig(); 
 
 
  boOpened := True; 
  ShowModal; 
end; 
 
procedure TfrmActionSpeed.ButtonCloseClick(Sender: TObject); 
resourcestring 
  sExitMsg          = '设置已被修改是否不保存设置退出？'; 
  sExitMsgTitle     = '确认信息'; 
begin 
  if not boModValued then 
  begin 
    Close; 
    exit; 
  end; 
  if (MessageBox(Handle, PChar(sExitMsg), PChar(sExitMsgTitle), MB_YESNO + 
    MB_ICONQUESTION) = IDYES) then 
  begin 
    Close; 
  end; 
end; 
 
procedure TfrmActionSpeed.RefSpeedConfig; 
begin 
  EditActionIntervalTime.Value := g_Config.dwActionIntervalTime; 
  EditRunLongHitIntervalTime.Value := g_Config.dwRunLongHitIntervalTime; 
  EditRunHitIntervalTime.Value := g_Config.dwRunHitIntervalTime; 
  EditWalkHitIntervalTime.Value := g_Config.dwWalkHitIntervalTime; 
  EditRunMagicIntervalTime.Value := g_Config.dwRunMagicIntervalTime; 
  CheckBoxControlActionInterval.Checked := g_Config.boControlActionInterval; 
  CheckBoxControlRunLongHit.Checked := g_Config.boControlRunLongHit; 
  CheckBoxControlRunHit.Checked := g_Config.boControlRunHit; 
  CheckBoxControlWalkHit.Checked := g_Config.boControlWalkHit; 
  CheckBoxControlRunMagic.Checked := g_Config.boControlRunMagic; 
end; 
 
procedure TfrmActionSpeed.ButtonDefaultClick(Sender: TObject); 
resourcestring 
  sExitMsg          = '是否确认恢复默认设置？'; 
  sExitMsgTitle     = '确认信息'; 
begin 
  if Application.MessageBox(PChar(sExitMsg), PChar(sExitMsgTitle), MB_YESNO + 
    MB_ICONQUESTION) <> IDYES then 
  begin 
    exit; 
  end; 
  boOpened := False; 
  ModValue(); 
  g_Config.dwActionIntervalTime := 400; 
  g_Config.dwRunLongHitIntervalTime := 800; 
  g_Config.dwRunHitIntervalTime := 800; 
  g_Config.dwWalkHitIntervalTime := 800; 
  g_Config.dwRunMagicIntervalTime := 900; 
  g_Config.boControlActionInterval := True; 
  g_Config.boControlRunLongHit := True; 
  g_Config.boControlRunHit := True; 
  g_Config.boControlWalkHit := True; 
  g_Config.boControlRunMagic := True; 
 
  RefSpeedConfig(); 
  boOpened := True; 
end; 
 
procedure TfrmActionSpeed.SaveConfig; 
begin 
  Config.WriteBool('Setup', 'ControlActionInterval', 
    g_Config.boControlActionInterval); 
  Config.WriteBool('Setup', 'ControlWalkHit', g_Config.boControlWalkHit); 
  Config.WriteBool('Setup', 'ControlRunLongHit', g_Config.boControlRunLongHit); 
  Config.WriteBool('Setup', 'ControlRunHit', g_Config.boControlRunHit); 
  Config.WriteBool('Setup', 'ControlRunMagic', g_Config.boControlRunMagic); 
 
  Config.WriteInteger('Setup', 'ActionIntervalTime', 
    g_Config.dwActionIntervalTime); 
  Config.WriteInteger('Setup', 'RunLongHitIntervalTime', 
    g_Config.dwRunLongHitIntervalTime); 
  Config.WriteInteger('Setup', 'RunHitIntervalTime', 
    g_Config.dwRunHitIntervalTime); 
  Config.WriteInteger('Setup', 'WalkHitIntervalTime', 
    g_Config.dwWalkHitIntervalTime); 
  Config.WriteInteger('Setup', 'RunMagicIntervalTime', 
    g_Config.dwRunMagicIntervalTime); 
end; 
 
procedure TfrmActionSpeed.ButtonSaveClick(Sender: TObject); 
begin 
  SaveConfig(); 
  uModValue(); 
end; 
 
procedure TfrmActionSpeed.CheckBoxIncremengClick(Sender: TObject); 
var 
  nIncrement        : Integer; 
begin 
  if CheckBoxIncremeng.Checked then 
    nIncrement := 1 
  else 
    nIncrement := 10; 
 
  EditActionIntervalTime.Increment := nIncrement; 
  EditRunLongHitIntervalTime.Increment := nIncrement; 
  EditRunHitIntervalTime.Increment := nIncrement; 
  EditWalkHitIntervalTime.Increment := nIncrement; 
end; 
 
procedure TfrmActionSpeed.CheckBoxControlActionIntervalClick( 
  Sender: TObject); 
var 
  boStatus          : Boolean; 
begin 
  boStatus := CheckBoxControlActionInterval.Checked; 
  EditActionIntervalTime.Enabled := boStatus; 
  CheckBoxControlRunLongHit.Enabled := boStatus; 
  CheckBoxControlRunHit.Enabled := boStatus; 
  CheckBoxControlWalkHit.Enabled := boStatus; 
  CheckBoxControlRunMagic.Enabled := boStatus; 
 
  CheckBoxControlRunLongHitClick(Sender); 
  CheckBoxControlRunHitClick(Sender); 
  CheckBoxControlWalkHitClick(Sender); 
  CheckBoxControlRunMagicClick(Sender); 
 
  if not boOpened then 
    exit; 
  g_Config.boControlActionInterval := boStatus; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.EditActionIntervalTimeChange(Sender: TObject); 
begin 
  if not boOpened then 
    exit; 
  g_Config.dwActionIntervalTime := EditActionIntervalTime.Value; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.CheckBoxControlRunLongHitClick(Sender: TObject); 
var 
  boStatus          : Boolean; 
begin 
  boStatus := CheckBoxControlRunLongHit.Checked and 
    CheckBoxControlRunLongHit.Enabled; 
 
  EditRunLongHitIntervalTime.Enabled := boStatus; 
 
  if not boOpened then 
    exit; 
  g_Config.boControlRunLongHit := boStatus; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.EditRunLongHitIntervalTimeChange( 
  Sender: TObject); 
begin 
  if not boOpened then 
    exit; 
  g_Config.dwRunLongHitIntervalTime := EditRunLongHitIntervalTime.Value; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.CheckBoxControlRunHitClick(Sender: TObject); 
var 
  boStatus          : Boolean; 
begin 
  boStatus := CheckBoxControlRunHit.Checked and CheckBoxControlRunHit.Enabled; 
  EditRunHitIntervalTime.Enabled := boStatus; 
 
  if not boOpened then 
    exit; 
  g_Config.boControlRunHit := boStatus; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.EditRunHitIntervalTimeChange(Sender: TObject); 
begin 
  if not boOpened then 
    exit; 
  g_Config.dwRunHitIntervalTime := EditRunHitIntervalTime.Value; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.CheckBoxControlWalkHitClick(Sender: TObject); 
var 
  boStatus          : Boolean; 
begin 
  boStatus := CheckBoxControlWalkHit.Checked and CheckBoxControlWalkHit.Enabled; 
  EditWalkHitIntervalTime.Enabled := boStatus; 
 
  if not boOpened then 
    exit; 
  g_Config.boControlWalkHit := boStatus; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.EditWalkHitIntervalTimeChange(Sender: TObject); 
begin 
  if not boOpened then 
    exit; 
  g_Config.dwWalkHitIntervalTime := EditWalkHitIntervalTime.Value; 
  ModValue(); 
end; 
 
 
 
procedure TfrmActionSpeed.CheckBoxControlRunMagicClick(Sender: TObject); 
var 
  boStatus          : Boolean; 
begin 
  boStatus := CheckBoxControlRunMagic.Checked and 
    CheckBoxControlRunMagic.Enabled; 
  EditRunMagicIntervalTime.Enabled := boStatus; 
 
  if not boOpened then 
    exit; 
  g_Config.boControlRunMagic := boStatus; 
  ModValue(); 
end; 
 
procedure TfrmActionSpeed.EditRunMagicIntervalTimeChange(Sender: TObject); 
begin 
  if not boOpened then 
    exit; 
  g_Config.dwRunMagicIntervalTime := EditRunMagicIntervalTime.Value; 
  ModValue(); 
end; 
 
end.