ユーザ名・パスワード入力欄のレイアウトや挙動を少し変更。

[winbottle/winbottle.git] / bottleclient / SettingForm.pas

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index 11706c0..f76a538 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -112,8 +112,8 @@ type
     cbxProxyNeedAuthentication: TCheckBox;
     edtProxyUser: TEdit;
     edtProxyPass: TEdit;
-    Label2: TLabel;
-    Label3: TLabel;
+    lblProxyUser: TLabel;
+    lblProxyPass: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
     procedure ctvBottleNodeChecked(Sender: TObject;
@@ -141,6 +141,7 @@ type
     procedure cbxAutoTabWidthClick(Sender: TObject);
     procedure btnBrowserLocateClick(Sender: TObject);
     procedure tstPresetReplaceShow(Sender: TObject);
+    procedure cbxProxyNeedAuthenticationClick(Sender: TObject);
   private
     { Private \90é\8c¾ }
     FOldLUID: String;
@@ -240,6 +241,7 @@ begin
   cbxUseHttpProxy.Checked := Pref.UseHttpProxy;
   cbxAskUseHttpProxy.Checked := Pref.AskUseHttpProxy;
   cbxProxyNeedAuthentication.Checked := Pref.ProxyNeedAuthentication;
+  cbxProxyNeedAuthenticationClick(Self);
   edtProxyAddress.Text := Pref.ProxyAddress;
   edtProxyPort.Text := IntToStr(Pref.ProxyPort);
   edtProxyUser.Text := Pref.ProxyUser;
@@ -780,4 +782,15 @@ begin
   ReplacePresetList.UpdateControls;
 end;
 
+procedure TfrmSetting.cbxProxyNeedAuthenticationClick(Sender: TObject);
+begin
+  with cbxProxyNeedAuthentication do
+  begin
+    edtProxyUser.Enabled := Checked;
+    edtProxyPass.Enabled := Checked;
+    lblProxyUser.Enabled := Checked;
+    lblProxyPass.Enabled := Checked;
+  end;
+end;
+
 end.