frmsetting.pas

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

  //连接时静音
  chkConnInMute.Checked     := bConnInMute;
  //连接时进入菜单
  chkConnInMenu.Checked     := bConnInMenu;
  //程序
  edtAppName0.Text          := Programs[0].AppName;
  cbbAppKey0.ItemIndex      := Programs[0].AppKGNum;
  edtAppPath0.Text          := Programs[0].AppPath;
  edtAppName1.Text          := Programs[1].AppName;
  cbbAppKey1.ItemIndex      := Programs[1].AppKGNum;
  edtAppPath1.Text          := Programs[1].AppPath;
  edtAppName2.Text          := Programs[2].AppName;
  cbbAppKey2.ItemIndex      := Programs[2].AppKGNum;
  edtAppPath2.Text          := Programs[2].AppPath;
  edtAppName3.Text          := Programs[3].AppName;
  cbbAppKey3.ItemIndex      := Programs[3].AppKGNum;
  edtAppPath3.Text          := Programs[3].AppPath;
  edtAppName4.Text          := Programs[4].AppName;
  cbbAppKey4.ItemIndex      := Programs[4].AppKGNum;
  edtAppPath4.Text          := Programs[4].AppPath;
  edtAppName5.Text          := Programs[5].AppName;
  cbbAppKey5.ItemIndex      := Programs[5].AppKGNum;
  edtAppPath5.Text          := Programs[5].AppPath;
  edtAppName6.Text          := Programs[6].AppName;
  cbbAppKey6.ItemIndex      := Programs[6].AppKGNum;
  edtAppPath6.Text          := Programs[6].AppPath;
  edtAppName7.Text          := Programs[7].AppName;
  cbbAppKey7.ItemIndex      := Programs[7].AppKGNum;
  edtAppPath7.Text          := Programs[7].AppPath;
  edtAppName8.Text          := Programs[8].AppName;
  cbbAppKey8.ItemIndex      := Programs[8].AppKGNum;
  edtAppPath8.Text          := Programs[8].AppPath;
  edtAppName9.Text          := Programs[9].AppName;
  cbbAppKey9.ItemIndex      := Programs[9].AppKGNum;
  edtAppPath9.Text          := Programs[9].AppPath;
  //Winamp路径
  edtWinampPath.Text        := strWinampPath;
  //自动播放
  chkWinampAutoPlay.Checked := bWinampAutoPlay;
  //自动退出
  chkWinampAutoExit.Checked := bWinampAutoExit;
  //播放列表控制
  chkWinampPlayList.Checked := bWinampPlayList;
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.WriteSettingPanel
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.13
  参数:      无
  返回值:    无
  说明:      写入配置
-------------------------------------------------------------------------------}
procedure TFSetting.WriteSettingPanel;
begin
  //COM口
  strComPort      := cbbComPort.Items.Strings[cbbComPort.ItemIndex];
  //语言
  strLanguage     := cbbLanguage.Items.Strings[cbbLanguage.ItemIndex];
  //鼠标移动速度
  iMouseMoveSpeed := tbMouseMoveSpeed.Position;
  //自动连接
  bAutoConnect    := chkAutoConnect.Checked;
  //退出时保存
  bSaveInExit     := chkSaveInExit.Checked;
  //连接时静音
  bConnInMute     := chkConnInMute.Checked;
  //连接时进入菜单
  bConnInMenu     := chkConnInMenu.Checked;
  //程序
  Programs[0].AppName   := edtAppName0.Text;
  Programs[0].AppKGNum  := cbbAppKey0.ItemIndex;
  Programs[0].AppPath   := edtAppPath0.Text;
  Programs[1].AppName   := edtAppName1.Text;
  Programs[1].AppKGNum  := cbbAppKey1.ItemIndex;
  Programs[1].AppPath   := edtAppPath1.Text;
  Programs[2].AppName   := edtAppName2.Text;
  Programs[2].AppKGNum  := cbbAppKey2.ItemIndex;
  Programs[2].AppPath   := edtAppPath2.Text;
  Programs[3].AppName   := edtAppName3.Text;
  Programs[3].AppKGNum  := cbbAppKey3.ItemIndex;
  Programs[3].AppPath   := edtAppPath3.Text;
  Programs[4].AppName   := edtAppName4.Text;
  Programs[4].AppKGNum  := cbbAppKey4.ItemIndex;
  Programs[4].AppPath   := edtAppPath4.Text;
  Programs[5].AppName   := edtAppName5.Text;
  Programs[5].AppKGNum  := cbbAppKey5.ItemIndex;
  Programs[5].AppPath   := edtAppPath5.Text;
  Programs[6].AppName   := edtAppName6.Text;
  Programs[6].AppKGNum  := cbbAppKey6.ItemIndex;
  Programs[6].AppPath   := edtAppPath6.Text;
  Programs[7].AppName   := edtAppName7.Text;
  Programs[7].AppKGNum  := cbbAppKey7.ItemIndex;
  Programs[7].AppPath   := edtAppPath7.Text;
  Programs[8].AppName   := edtAppName8.Text;
  Programs[8].AppKGNum  := cbbAppKey8.ItemIndex;
  Programs[8].AppPath   := edtAppPath8.Text;
  Programs[9].AppName   := edtAppName9.Text;
  Programs[9].AppKGNum  := cbbAppKey9.ItemIndex;
  Programs[9].AppPath   := edtAppPath9.Text;
  //Winamp路径
  strWinampPath   := edtWinampPath.Text;
  //自动播放
  bWinampAutoPlay := chkWinampAutoPlay.Checked;
  //自动退出
  bWinampAutoExit := chkWinampAutoExit.Checked;
  //播放列表控制
  bWinampPlayList := chkWinampPlayList.Checked;

  //写入配置文件
  WriteSetting;
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.LoadComPort
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.11
  参数:      无
  返回值:    无
  说明:      加载COM口列表
-------------------------------------------------------------------------------}
procedure TFSetting.LoadComPort;
var
  Registry: TRegistry;
  names:    TStrings;
  i:        Integer;
begin
  Registry := TRegistry.Create;
  names := TStringList.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  if Registry.OpenKey('Hardware\DeviceMap\SerialComm', False) then
  begin
    Registry.GetValueNames(names);
    for i:=0 to names.Count-1 do
    begin
      cbbComPort.Items.Add(Registry.ReadString(names.Strings[i]));
    end;
    cbbComPort.ItemIndex := cbbComPort.Items.IndexOf(strComPort);
  end;
  names.Free;
  Registry.Free;
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.LoadLanguages
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.11
  参数:      无
  返回值:    无
  说明:      加载语言列表
-------------------------------------------------------------------------------}
procedure TFSetting.LoadLanguages;
var
  LanguageIndex,
  i: Integer;
begin
  LanguageIndex := 0;
  if objLanguageFile.Languages.Count <= 0 then Exit;
  for i:=0 to objLanguageFile.Languages.Count-1 do
  begin
    cbbLanguage.Items.Add(objLanguageFile.Languages.Items[i].LanguageName);
    if objLanguageFile.Languages.Items[i].LanguageName = strLanguage then
      LanguageIndex := i;
  end;
  cbbLanguage.ItemIndex := LanguageIndex;
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.cbbKeyGropNumChange
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.14
  参数:      Sender: TObject
  返回值:    无
  说明:      改变组别
-------------------------------------------------------------------------------}
procedure TFSetting.cbbKeyGropNumChange(Sender: TObject);
begin
  cbbKeyGropKey.ItemIndex     := -1;
  edtKeyGropSet.Text          := '';
  edtKeyGropDescription.Text  := '';
end;

{-------------------------------------------------------------------------------
  过程名:    TFSetting.cbbKeyGropKeyChange
  作者:      小冬[kendling]
  邮件:      [e-mail]
  主页:      http://www.MyvNet.com
  日期:      2005.02.14
  参数:      Sender: TObject
  返回值:    无
  说明:      改变按键
-------------------------------------------------------------------------------}
procedure TFSetting.cbbKeyGropKeyChange(Sender: TObject);
var
  iGroupNum,
  iKeyNum: Integer;
begin
  iGroupNum := cbbKeyGropNum.ItemIndex;
  iKeyNum   := cbbKeyGropKey.ItemIndex;
//  edtKeyGropSet.Text := KeyGroups[iGroupNum].Key[iKeyNum];
  edtKeyGropDescription.Text := KeyGroups[iGroupNum].Description[iKeyNum];
end;

procedure TFSetting.cbbKeyGroupKeyCodeChange(Sender: TObject);
begin
//  case cbbKeyGroupKeyCode.ItemIndex of
//    //Esc键
//    0:  hkKeyGropSet.HotKey := VK_ESCAPE;
//    //Tab键
//    1:  hkKeyGropSet.HotKey := VK_TAB;
//    //Pause键
//    2:  hkKeyGropSet.HotKey := VK_PAUSE;
//    //Del键
//    3:  hkKeyGropSet.HotKey := VK_DELETE;
//    //←键
//    4:  hkKeyGropSet.HotKey := VK_BACK;
//    //空格键
//    5:  hkKeyGropSet.HotKey := VK_SPACE;
//    //回车键
//    6:  hkKeyGropSet.HotKey := VK_RETURN;
//    //WIN键
//    7:  hkKeyGropSet.HotKey := VK_LWIN;
//    //鼠标左键
//    8:  hkKeyGropSet.HotKey := VK_LBUTTON;
//    //鼠标中键
//    9:  hkKeyGropSet.HotKey := VK_MBUTTON;
//    //鼠标右键
//    10: hkKeyGropSet.HotKey := VK_RBUTTON;
//  end;
//  hkKeyGropSetChange(Sender);
end;

procedure TFSetting.edtKeyGropDescriptionChange(Sender: TObject);
begin
  if (cbbKeyGropKey.ItemIndex > -1) and
    (edtKeyGropSet.Text <> '') then
  begin
    KeyGroups[cbbKeyGropNum.ItemIndex].Description[cbbKeyGropKey.ItemIndex]
      := edtKeyGropDescription.Text;
  end;
end;

procedure TFSetting.edtKeyGropSetChange(Sender: TObject);
begin
  cbbKeyGroupKeyCode.ItemIndex := -1;
  if (cbbKeyGropKey.ItemIndex > -1) and
    (edtKeyGropSet.Text <> '') then
  begin
//    KeyGroups[cbbKeyGropNum.ItemIndex].Key[cbbKeyGropKey.ItemIndex]
//      := hkKeyGropSet.HotKey;
  end;
end;

end.