?? setting.pas
字號:
unit Setting;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles;
type
TFrmSetting = class(TForm)
GroupBox1: TGroupBox;
ButtonOK: TButton;
CheckBoxAttack: TCheckBox;
CheckBoxDenyChrName: TCheckBox;
CheckBoxMinimize: TCheckBox;
procedure CheckBoxAttackClick(Sender: TObject);
procedure CheckBoxDenyChrNameClick(Sender: TObject);
procedure ButtonOKClick(Sender: TObject);
procedure CheckBoxMinimizeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Open();
end;
var
FrmSetting: TFrmSetting;
implementation
uses DBShare;
{$R *.dfm}
procedure TFrmSetting.Open();
begin
CheckBoxAttack.Checked := boAttack;
CheckBoxDenyChrName.Checked := boDenyChrName;
CheckBoxMinimize.Checked := boMinimize;
ButtonOK.Enabled := False;
ShowModal;
end;
procedure TFrmSetting.CheckBoxAttackClick(Sender: TObject);
begin
boAttack := CheckBoxAttack.Checked;
ButtonOK.Enabled := True;
end;
procedure TFrmSetting.CheckBoxDenyChrNameClick(Sender: TObject);
begin
boDenyChrName := CheckBoxDenyChrName.Checked;
ButtonOK.Enabled := True;
end;
procedure TFrmSetting.ButtonOKClick(Sender: TObject);
var
Conf: TIniFile;
begin
Conf := TIniFile.Create(sConfFileName);
if Conf <> nil then begin
Conf.WriteBool('Setup', 'Attack', boAttack);
Conf.WriteBool('Setup', 'DenyChrName', boDenyChrName);
Conf.WriteBool('Setup', 'Minimize', boMinimize);
Conf.Free;
ButtonOK.Enabled := False;
end;
end;
procedure TFrmSetting.CheckBoxMinimizeClick(Sender: TObject);
begin
boMinimize := CheckBoxMinimize.Checked;
ButtonOK.Enabled := True;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -