savercfg.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit savercfg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Registry, Spin, Buttons, ExtCtrls, drawthrd;

type
  TConfigForm = class(TForm)
    pgcConfig: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    gbxMoveSpeed: TGroupBox;
    trbSpeed: TTrackBar;
    gbxDelayTime: TGroupBox;
    lblSpeed: TLabel;
    Label1: TLabel;
    sedDelayTime: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    sedChangeDelayTime: TSpinEdit;
    Label4: TLabel;
    Label5: TLabel;
    sedClearDelayTime: TSpinEdit;
    Label6: TLabel;
    mmoEssay: TMemo;
    dlgOpen: TOpenDialog;
    GroupBox4: TGroupBox;
    lbxFiles: TListBox;
    btnAdd: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    btnOK: TButton;
    btnCancel: TButton;
    dlgFont: TFontDialog;
    GroupBox3: TGroupBox;
    btnChatFont: TButton;
    pnlFont: TPanel;
    pbxFont: TPaintBox;
    txtFont: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure trbSpeedChange(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lbxFilesClick(Sender: TObject);
    procedure btnChatFontClick(Sender: TObject);
    procedure pbxFontPaint(Sender: TObject);
  private
    FDrawThread: TDrawThread;

    procedure LoadIni;
    procedure SaveIni;
  public
  end;

var
  ConfigForm: TConfigForm;

implementation

{$R *.DFM}

uses util, xfonts;

procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult = mrOk then SaveIni;
end;

procedure TConfigForm.trbSpeedChange(Sender: TObject);
begin
  lblSpeed.Caption := Format('%d ˙',[trbSpeed.Position]);
end;

procedure TConfigForm.LoadIni;
begin
  with TRegIniFile.Create(REGISTRY_KEY) do
    try
      // 砞﹚