开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > PlugIns编程 > 查看源码
frmConfig.pas
资源名称：一个完整的在线更新程序.rar　[点击查看]
上传用户：youjie821
上传日期：2013-01-27
资源大小：459k
文件大小：4k
源码类别：

PlugIns编程

开发平台：

Delphi

frmConfig.pas：源码内容
  1. unit frmConfig;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ActnList, RzTabs, ExtCtrls, RzDlgBtn, StdCtrls, Mask, RzEdit,
  8.   RzRadChk, RzPanel, RzButton, RzCmboBx, RzLabel;
  10. type
  11.   TConfigForm = class(TForm)
  12.     RzDialogButtons1: TRzDialogButtons;
  13.     pcMain: TRzPageControl;
  14.     RzTabSheet1: TRzTabSheet;
  15.     RzTabSheet2: TRzTabSheet;
  16.     ActionList1: TActionList;
  17.     actOk: TAction;
  18.     actCancel: TAction;
  19.     actHelp: TAction;
  20.     Label1: TLabel;
  21.     RzGroupBox1: TRzGroupBox;
  22.     chkServerInspect: TRzCheckBox;
  23.     Label2: TLabel;
  24.     edtServerUser: TRzEdit;
  25.     Label3: TLabel;
  26.     edtServerPass: TRzEdit;
  27.     RzLabel1: TRzLabel;
  28.     cbxConnectType: TRzComboBox;
  29.     RzGroupBox2: TRzGroupBox;
  30.     chkUseProxy: TRzCheckBox;
  31.     edtProxyIP: TRzEdit;
  32.     Label4: TLabel;
  33.     edtProxyPort: TRzEdit;
  34.     Label5: TLabel;
  35.     edtProxyPass: TRzEdit;
  36.     Label6: TLabel;
  37.     Label7: TLabel;
  38.     edtProxyUser: TRzEdit;
  39.     edtServerIP: TRzEdit;
  40.     edtServerPort: TRzEdit;
  41.     Label8: TLabel;
  42.     actUserProxy: TAction;
  43.     procedure actOkExecute(Sender: TObject);
  44.     procedure actCancelExecute(Sender: TObject);
  45.     procedure actHelpExecute(Sender: TObject);
  46.     procedure chkServerInspectClick(Sender: TObject);
  47.     procedure cbxConnectTypeChange(Sender: TObject);
  48.     procedure FormCreate(Sender: TObject);
  49.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  50.     procedure actUserProxyUpdate(Sender: TObject);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  57.   procedure ShowConfigForm;
  59. implementation
  61. uses
  62.   hxClientApp;
  64. {$R *.dfm}
  66. procedure ShowConfigForm;
  67. begin
  68.   with TConfigForm.Create(nil) do
  69.   try
  70.     ShowModal;
  71.   finally
  72.     Free;
  73.   end;
  74. end;
  76. procedure TConfigForm.actOkExecute(Sender: TObject);
  77. begin
  78.   ModalResult:= mrOk;
  79. end;
  81. procedure TConfigForm.actCancelExecute(Sender: TObject);
  82. begin
  83.   ModalResult:= mrCancel;
  84. end;
  86. procedure TConfigForm.actHelpExecute(Sender: TObject);
  87. begin
  88.   MessageBox(0, '显示 LiveUpdate 的帮助信息', '提示', MB_ICONINFORMATION or MB_OK)
  89. end;
  91. procedure TConfigForm.chkServerInspectClick(Sender: TObject);
  92. begin
  93.   edtServerUser.Enabled:= chkServerInspect.Checked;
  94.   edtServerPass.Enabled:= chkServerInspect.Checked;
  95. end;
  97. procedure TConfigForm.cbxConnectTypeChange(Sender: TObject);
  98. begin
  99.   chkUseProxy.Enabled:= cbxConnectType.ItemIndex = 1;
  100. end;
  102. procedure TConfigForm.FormCreate(Sender: TObject);
  103. begin
  104.   with GetClientApp.Settings do
  105.   begin
  106.     if ConnectType = ctDirect then
  107.       cbxConnectType.ItemIndex:= 0
  108.     else
  109.       cbxConnectType.ItemIndex:= 1;
  110.     chkUseProxy.Checked:= UseProxy;
  111.     edtProxyIP.Text:= ProxyIP;
  112.     edtProxyPort.Text:= IntToStr(ProxyPort);
  113.     edtProxyUser.Text:= ProxyUser;
  114.     edtProxyPass.Text:= ProxyPass;
  115.     edtProxyPort.Text:= IntToStr(ProxyPort);
  116.     edtServerIP.Text:= ServerIP;
  117.     edtServerPort.Text:= IntToStr(ServerPort);
  118.     edtServerUser.Text:= ServerUser;
  119.     edtServerPass.Text:= ServerPass;
  120.   end;
  121.   pcMain.ActivePageIndex:= 0;
  122. end;
  124. procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
  125. begin
  126.   if ModalResult = mrOk then
  127.   begin
  128.     with GetClientApp.Settings do
  129.     begin
  130.       if cbxConnectType.ItemIndex = 0 then
  131.         ConnectType:= ctDirect
  132.       else
  133.         ConnectType:= ctProxy;
  134.       UseProxy:= chkUseProxy.Checked;
  135.       ProxyIP:= edtProxyIP.Text;
  136.       ProxyPort:= StrToInt(edtProxyPort.Text);
  137.       ProxyUser:= edtProxyUser.Text;
  138.       ProxyPass:= edtProxyPass.Text;
  139.       ProxyPort:= StrToInt(edtProxyPort.Text);
  140.       ServerIP:= edtServerIP.Text;
  141.       ServerPort:= StrToInt(edtServerPort.Text);
  142.       ServerUser:= edtServerUser.Text;
  143.       ServerPass:= edtServerPass.Text;
  144.     end;
  145.   end;
  146. end;
  148. procedure TConfigForm.actUserProxyUpdate(Sender: TObject);
  149. begin
  150.   chkUseProxy.Enabled:= cbxConnectType.ItemIndex = 1;
  151.   edtProxyIP.Enabled:= chkUseProxy.Enabled and chkUseProxy.Checked;
  152.   edtProxyPort.Enabled:= chkUseProxy.Enabled and chkUseProxy.Checked;
  153.   edtProxyUser.Enabled:= chkUseProxy.Enabled and chkUseProxy.Checked;
  154.   edtProxyPass.Enabled:= chkUseProxy.Enabled and chkUseProxy.Checked;
  155. end;
  157. end.