frmsetting.pas

phonectrl是一款利用手机遥控电脑的软件

unit frmSetting;

interface

uses
  Registry,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, CnEdit, ExtCtrls;

type
  TFSetting = class(TForm)
    pgc1: TPageControl;
    tsProgram: TTabSheet;
    btnOK: TButton;
    btnApply: TButton;
    btnCancel: TButton;
    tsWinamp: TTabSheet;
    lblWinampPath: TLabel;
    edtWinampPath: TCnEdit;
    chkWinampAutoPlay: TCheckBox;
    bvl5: TBevel;
    chkWinampAutoExit: TCheckBox;
    lblAppPath: TLabel;
    lblAppName: TLabel;
    lblAppKey: TLabel;
    lblApp9: TLabel;
    lblApp8: TLabel;
    lblApp7: TLabel;
    lblApp6: TLabel;
    lblApp5: TLabel;
    lblApp4: TLabel;
    lblApp3: TLabel;
    lblApp2: TLabel;
    lblApp1: TLabel;
    lblApp0: TLabel;
    edtAppPath9: TCnEdit;
    edtAppPath8: TCnEdit;
    edtAppPath7: TCnEdit;
    edtAppPath6: TCnEdit;
    edtAppPath5: TCnEdit;
    edtAppPath4: TCnEdit;
    edtAppPath3: TCnEdit;
    edtAppPath2: TCnEdit;
    edtAppPath1: TCnEdit;
    edtAppPath0: TCnEdit;
    edtAppName9: TCnEdit;
    edtAppName8: TCnEdit;
    edtAppName7: TCnEdit;
    edtAppName6: TCnEdit;
    edtAppName5: TCnEdit;
    edtAppName4: TCnEdit;
    edtAppName3: TCnEdit;
    edtAppName2: TCnEdit;
    edtAppName1: TCnEdit;
    edtAppName0: TCnEdit;
    cbbAppKey9: TComboBox;
    cbbAppKey8: TComboBox;
    cbbAppKey7: TComboBox;
    cbbAppKey6: TComboBox;
    cbbAppKey5: TComboBox;
    cbbAppKey4: TComboBox;
    cbbAppKey3: TComboBox;
    cbbAppKey2: TComboBox;
    cbbAppKey1: TComboBox;
    cbbAppKey0: TComboBox;
    tsGeneral: TTabSheet;
    lblComPort: TLabel;
    cbbComPort: TComboBox;
    tbMouseMoveSpeed: TTrackBar;
    lblMouseMoveSpeed: TLabel;
    chkConnInMute: TCheckBox;
    chkConnInMenu: TCheckBox;
    bvl1: TBevel;
    lblStart: TLabel;
    lblGeneral: TLabel;
    bvl0: TBevel;
    lblWinamp: TLabel;
    bvl4: TBevel;
    lblWinampOption: TLabel;
    chkWinampPlayList: TCheckBox;
    lblKeyGrop: TLabel;
    bvl2: TBevel;
    lblKeyGropNum: TLabel;
    cbbKeyGropNum: TComboBox;
    cbbKeyGropKey: TComboBox;
    lblKeyGropKey: TLabel;
    lblKeyGropSet: TLabel;
    lblKeyGropDescription: TLabel;
    edtKeyGropDescription: TCnEdit;
    chkAutoConnect: TCheckBox;
    cbbLanguage: TComboBox;
    lblLanguage: TLabel;
    lblWinampKey: TLabel;
    bvl6: TBevel;
    chkSaveInExit: TCheckBox;
    cbbKeyGroupKeyCode: TComboBox;
    edtKeyGropSet: TCnEdit;
    btnSet: TButton;
    cbb1: TComboBox;
    procedure edtAppPath0ButtonClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnApplyClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure edtAppPath1ButtonClick(Sender: TObject);
    procedure edtAppPath2ButtonClick(Sender: TObject);
    procedure edtAppPath3ButtonClick(Sender: TObject);
    procedure edtAppPath4ButtonClick(Sender: TObject);
    procedure edtAppPath5ButtonClick(Sender: TObject);
    procedure edtAppPath6ButtonClick(Sender: TObject);
    procedure edtAppPath7ButtonClick(Sender: TObject);
    procedure edtAppPath8ButtonClick(Sender: TObject);
    procedure edtAppPath9ButtonClick(Sender: TObject);
    procedure edtWinampPathButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cbbKeyGropNumChange(Sender: TObject);
    procedure cbbKeyGropKeyChange(Sender: TObject);
    procedure cbbKeyGroupKeyCodeChange(Sender: TObject);
    procedure edtKeyGropDescriptionChange(Sender: TObject);
    procedure edtKeyGropSetChange(Sender: TObject);
  private
    //打开应用程序
    function OpenApplication(strOldPath: string): string;
    //加载配置
    procedure LoadSettingPanel;
    //写入配置
    procedure WriteSettingPanel;
    //加载COM口加载COM口
    procedure LoadComPort;
    //加载语言列表
    procedure LoadLanguages;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSetting: TFSetting;

implementation

uses UntComm, frmMain;

{$R *.dfm}

{-------------------------------------------------------------------------------
  过程名:    TFSetting.OpenApplication
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.09
  参数:      strOldPath: string   - 原来的程序路径
  返回值:    string               - 应用程序的路径
  说明:      打开应用程序
-------------------------------------------------------------------------------}
function TFSetting.OpenApplication(strOldPath: string): string;
var
  OpenDialog: TOpenDialog;
begin
  Result := strOldPath;
  OpenDialog := TOpenDialog.Create(FMain);
  OpenDialog.Title  := strOpenDlgTitle;
  OpenDialog.Filter := strOpenDlgFilter;
  if OpenDialog.Execute then
    Result := OpenDialog.FileName;
end;

procedure TFSetting.edtAppPath0ButtonClick(Sender: TObject);
begin
  edtAppPath0.Text := OpenApplication(edtAppPath0.Text);
end;

procedure TFSetting.btnOKClick(Sender: TObject);
begin
  WriteSettingPanel;
  Close;
end;

procedure TFSetting.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFSetting.btnApplyClick(Sender: TObject);
begin
  WriteSettingPanel;
end;

procedure TFSetting.edtAppPath1ButtonClick(Sender: TObject);
begin
  edtAppPath1.Text := OpenApplication(edtAppPath1.Text);
end;

procedure TFSetting.edtAppPath2ButtonClick(Sender: TObject);
begin
  edtAppPath2.Text := OpenApplication(edtAppPath2.Text);
end;

procedure TFSetting.edtAppPath3ButtonClick(Sender: TObject);
begin
  edtAppPath3.Text := OpenApplication(edtAppPath3.Text);
end;

procedure TFSetting.edtAppPath4ButtonClick(Sender: TObject);
begin
  edtAppPath4.Text := OpenApplication(edtAppPath4.Text);
end;

procedure TFSetting.edtAppPath5ButtonClick(Sender: TObject);
begin
  edtAppPath5.Text := OpenApplication(edtAppPath5.Text);
end;

procedure TFSetting.edtAppPath6ButtonClick(Sender: TObject);
begin
  edtAppPath6.Text := OpenApplication(edtAppPath6.Text);
end;

procedure TFSetting.edtAppPath7ButtonClick(Sender: TObject);
begin
  edtAppPath7.Text := OpenApplication(edtAppPath7.Text);
end;

procedure TFSetting.edtAppPath8ButtonClick(Sender: TObject);
begin
  edtAppPath8.Text := OpenApplication(edtAppPath8.Text);
end;

procedure TFSetting.edtAppPath9ButtonClick(Sender: TObject);
begin
  edtAppPath9.Text := OpenApplication(edtAppPath9.Text);
end;

procedure TFSetting.edtWinampPathButtonClick(Sender: TObject);
begin
  edtWinampPath.Text := OpenApplication(edtWinampPath.Text);
end;

procedure TFSetting.FormCreate(Sender: TObject);
begin
  LoadSettingPanel;
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.LoadSettingPanel
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.13
  参数:      无
  返回值:    无
  说明:      加载配置
-------------------------------------------------------------------------------}
procedure TFSetting.LoadSettingPanel;
begin
  LoadComPort;
  LoadLanguages;

  //鼠标移动速度
  tbMouseMoveSpeed.Position := iMouseMoveSpeed;
  //自动连接
  chkAutoConnect.Checked    := bAutoConnect;
  //退出时保存
  chkSaveInExit.Checked     := bSaveInExit;