Added accesskeys

diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm
index a04323f..6aecb43 100755 (executable)
--- a/bottleclient/SettingForm.dfm
+++ b/bottleclient/SettingForm.dfm
@@ -1,11 +1,11 @@
 object frmSetting: TfrmSetting
-  Left = 243
-  Top = 579
+  Left = 536
+  Top = 455
   Anchors = [akLeft, akTop, akRight, akBottom]
   BorderStyle = bsDialog
   Caption = #35373#23450
   ClientHeight = 348
-  ClientWidth = 371
+  ClientWidth = 383
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
   Font.Color = clWindowText
@@ -18,38 +18,40 @@ object frmSetting: TfrmSetting
   ShowHint = True
   OnClose = FormClose
   DesignSize = (
-    371
+    383
     348)
   PixelsPerInch = 96
   TextHeight = 12
   object PageControl: TPageControl
     Left = 8
     Top = 8
-    Width = 356
+    Width = 368
     Height = 306
-    ActivePage = tstRule
+    ActivePage = tstProxy
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     object tstGeneral: TTabSheet
-      Caption = #19968#33324
+      Caption = #19968#33324'(&G)'
       object lblDefaultScript: TLabel
         Left = 8
         Top = 16
-        Width = 265
+        Width = 276
         Height = 12
-        Caption = #12463#12522#12450#26178#12398#21021#26399#12473#12463#12522#12503#12488'('#32294#26834'"|"'#12398#20301#32622#12395#12459#12540#12477#12523')'
+        Caption = #12463#12522#12450#26178#12398#21021#26399#12473#12463#12522#12503#12488'('#32294#26834'"|"'#12398#20301#32622#12395#12459#12540#12477#12523')(&I)'
+        FocusControl = memDefaultScript
       end
       object lblGhostDropDownCount: TLabel
         Left = 16
         Top = 200
-        Width = 143
+        Width = 159
         Height = 12
-        Caption = 'IfGhost'#26368#22823#12489#12525#12483#12503#12480#12454#12531#25968
+        Caption = 'IfGhost'#26368#22823#12489#12525#12483#12503#12480#12454#12531#25968'(&N)'
+        FocusControl = spnGhostDropDownCount
       end
       object memDefaultScript: TMemo
         Left = 8
         Top = 32
-        Width = 329
+        Width = 345
         Height = 41
         Hint = #12463#12522#12450#12508#12479#12531#12434#25276#12375#12383#12392#12365#12398#21021#26399#12473#12463#12522#12503#12488#12434#35373#23450
         Font.Charset = SHIFTJIS_CHARSET
@@ -64,17 +66,17 @@ object frmSetting: TfrmSetting
       object grpLocalConfirm: TGroupBox
         Left = 8
         Top = 80
-        Width = 329
+        Width = 345
         Height = 49
         Caption = #12525#12540#12459#12523#30906#35469
         TabOrder = 1
         object cbxIgnoreTimeCritical: TCheckBox
           Left = 16
           Top = 20
-          Width = 161
+          Width = 297
           Height = 17
           Hint = #12525#12540#12459#12523#30906#35469#26178#12395'\t'#12434#36865#20449#12375#12394#12356#12371#12392#12391#20182#12398'SSTP'#12364#34920#31034#12373#12428#12420#12377#12367#12377#12427
-          Caption = #12525#12540#12459#12523#30906#35469#26178#12395'\t'#12434#28961#35222
+          Caption = #12525#12540#12459#12523#30906#35469#26178#12395'\t'#12434#28961#35222'(&T)'
           Checked = True
           State = cbChecked
           TabOrder = 0
@@ -86,20 +88,20 @@ object frmSetting: TfrmSetting
         Width = 313
         Height = 17
         Hint = 'Bottle Client'#36215#21205#26178#12395#12289#33258#21205#30340#12395#25351#23450#12398#12481#12515#12531#12493#12523#12395#21442#21152#12375#12414#12377
-        Caption = #36215#21205#26178#12395#33258#21205#30340#12395#12289#33258#21205#21442#21152#23550#35937#12481#12515#12531#12493#12523#12395#21152#20837
+        Caption = #36215#21205#26178#12395#33258#21205#30340#12395#12289#33258#21205#21442#21152#23550#35937#12481#12515#12531#12493#12523#12395#21152#20837'(&J)'
         TabOrder = 4
       end
       object rgpTabPosition: TRadioGroup
         Left = 8
         Top = 136
-        Width = 329
+        Width = 345
         Height = 49
         Hint = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622#12434#22793#26356
         Caption = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622
         Columns = 2
         Items.Strings = (
-          #19978
-          #19979)
+          #19978'(&U)'
+          #19979'(&D)')
         TabOrder = 2
       end
       object cbxNoSendGhostList: TCheckBox
@@ -108,7 +110,7 @@ object frmSetting: TfrmSetting
         Width = 281
         Height = 17
         Hint = 'SSTP Bottle'#22269#21218#35519#26619#12398#12383#12417#12398#12468#12540#12473#12488#12522#12473#12488#12434#36865#20449#12375#12414#12379#12435
-        Caption = #22269#21218#35519#26619#12395#21332#21147#12375#12394#12356
+        Caption = #22269#21218#35519#26619#12395#21332#21147#12375#12394#12356'(&K)'
         TabOrder = 5
       end
       object cbxConfirmOnExit: TCheckBox
@@ -117,11 +119,11 @@ object frmSetting: TfrmSetting
         Width = 281
         Height = 17
         Hint = 'Client'#12398#32066#20102#26178#12395#30906#35469#12513#12483#12475#12540#12472#12434#20986#12375#12414#12377
-        Caption = #12450#12503#12522#12465#12540#12471#12519#12531#12398#32066#20102#26178#12395#30906#35469#12377#12427
+        Caption = #12450#12503#12522#12465#12540#12471#12519#12531#12398#32066#20102#26178#12395#30906#35469#12377#12427'(&O)'
         TabOrder = 6
       end
       object spnGhostDropDownCount: TSpinEdit
-        Left = 168
+        Left = 184
         Top = 195
         Width = 65
         Height = 21
@@ -132,21 +134,23 @@ object frmSetting: TfrmSetting
       end
     end
     object tstColor: TTabSheet
-      Caption = #33394#20998#12369
+      Caption = #33394#20998#12369'(&R)'
       ImageIndex = 1
       object lblColorTimeLag: TLabel
         Left = 8
         Top = 184
-        Width = 225
+        Width = 239
         Height = 12
-        Caption = #33394#20998#12369#36933#24310'('#21491#12395#12356#12367#12411#12393#36933#12428#12390#33394#20998#12369#38283#22987')'
+        Caption = #33394#20998#12369#36933#24310'('#21491#12395#12356#12367#12411#12393#36933#12428#12390#33394#20998#12369#38283#22987')(&L)'
+        FocusControl = trkColorTimeLag
       end
       object lblColorSpeed: TLabel
         Left = 8
         Top = 226
-        Width = 285
+        Width = 301
         Height = 12
-        Caption = #33394#20998#12369#12473#12500#12540#12489'('#36895#12377#12366#12427#12392#12461#12540#12508#12540#12489#12398#21453#24540#12364#37389#12426#12414#12377')'
+        Caption = #33394#20998#12369#12473#12500#12540#12489'('#36895#12377#12366#12427#12392#12461#12540#12508#12540#12489#12398#21453#24540#12364#37389#12426#12414#12377')(&D)'
+        FocusControl = trkColorSpeed
       end
       object cbxColorScript: TCheckBox
         Left = 8
@@ -154,7 +158,7 @@ object frmSetting: TfrmSetting
         Width = 201
         Height = 17
         Hint = #12481#12455#12483#12463#12434#35299#38500#12377#12427#12392#36895#24230#12399#36895#24230#12399#36895#12367#12394#12427#12364#35211#12389#12425#12356
-        Caption = #12473#12463#12522#12503#12488#33394#20998#12369#12434#34892#12358
+        Caption = #12473#12463#12522#12503#12488#33394#20998#12369#12434#34892#12358'(&E)'
         TabOrder = 0
       end
       object trkColorTimeLag: TTrackBar
@@ -187,7 +191,7 @@ object frmSetting: TfrmSetting
         Top = 24
         Width = 337
         Height = 153
-        Caption = #33394
+        Caption = #33394'(&O)'
         TabOrder = 3
         inline frmColorSetting: TfrmColorSetting
           Left = 16
@@ -211,14 +215,14 @@ object frmSetting: TfrmSetting
       end
     end
     object tstKeys: TTabSheet
-      Caption = #12461#12540
+      Caption = #12461#12540'(&K)'
       ImageIndex = 3
       object rgpWhenReturn: TRadioGroup
         Left = 8
         Top = 16
-        Width = 329
+        Width = 345
         Height = 65
-        Caption = 'Enter'#12461#12540#12391#12398#21205#20316
+        Caption = 'Enter'#12461#12540#12391#12398#21205#20316'(&E)'
         Columns = 2
         ItemIndex = 2
         Items.Strings = (
@@ -231,9 +235,9 @@ object frmSetting: TfrmSetting
       object rgpWhenShiftReturn: TRadioGroup
         Left = 8
         Top = 88
-        Width = 329
+        Width = 345
         Height = 65
-        Caption = 'Shift+Enter'#12461#12540#12391#12398#21205#20316
+        Caption = 'Shift+Enter'#12461#12540#12391#12398#21205#20316'(&F)'
         Columns = 2
         ItemIndex = 3
         Items.Strings = (
@@ -246,9 +250,9 @@ object frmSetting: TfrmSetting
       object rgpWhenCtrlReturn: TRadioGroup
         Left = 8
         Top = 160
-        Width = 329
+        Width = 345
         Height = 65
-        Caption = 'Ctrl+Enter'#12461#12540#12391#12398#21205#20316
+        Caption = 'Ctrl+Enter'#12461#12540#12391#12398#21205#20316'(&T)'
         Columns = 2
         ItemIndex = 1
         Items.Strings = (
@@ -260,17 +264,18 @@ object frmSetting: TfrmSetting
       end
     end
     object tstReceive: TTabSheet
-      Caption = #21463#20449'/'#36865#20449
+      Caption = #21463#20449'/'#36865#20449'(&S)'
       ImageIndex = 4
       object lblWaitScriptEnd: TLabel
         Left = 16
         Top = 208
-        Width = 158
+        Width = 175
         Height = 12
-        Caption = #12473#12463#12522#12503#12488#12398#26368#24460#12395#12454#12455#12452#12488#25407#20837
+        Caption = #12473#12463#12522#12503#12488#12398#26368#24460#12395#12454#12455#12452#12488#25407#20837'(&W)'
+        FocusControl = spnWaitScriptEnd
       end
       object spnWaitScriptEnd: TSpinEdit
-        Left = 184
+        Left = 208
         Top = 202
         Width = 65
         Height = 21
@@ -323,7 +328,7 @@ object frmSetting: TfrmSetting
       end
     end
     object tstChannel: TTabSheet
-      Caption = #12481#12515#12531#12493#12523
+      Caption = #12481#12515#12531#12493#12523'(&H)'
       ImageIndex = 4
       object tvwChannels: TTreeView
         Left = 8
@@ -407,7 +412,7 @@ object frmSetting: TfrmSetting
             Width = 161
             Height = 20
             Hint = #36865#20449#20808#12398#12468#12540#12473#12488#12434#25351#23450
-            ItemHeight = 0
+            ItemHeight = 12
             TabOrder = 0
             OnChange = cbxTargetGhostChange
           end
@@ -434,7 +439,7 @@ object frmSetting: TfrmSetting
       end
     end
     object tstProxy: TTabSheet
-      Caption = 'Proxy'
+      Caption = '&Proxy'
       ImageIndex = 5
       object Label6: TLabel
         Left = 8
@@ -459,19 +464,21 @@ object frmSetting: TfrmSetting
         object lblProxyAddress: TLabel
           Left = 16
           Top = 28
-          Width = 40
+          Width = 56
           Height = 12
-          Caption = #12450#12489#12524#12473
+          Caption = #12450#12489#12524#12473'(&A)'
+          FocusControl = edtProxyAddress
         end
         object lblProxyPort: TLabel
           Left = 16
           Top = 60
-          Width = 31
+          Width = 47
           Height = 12
-          Caption = #12509#12540#12488
+          Caption = #12509#12540#12488'(&O)'
+          FocusControl = edtProxyPort
         end
         object edtProxyAddress: TEdit
-          Left = 64
+          Left = 80
           Top = 24
           Width = 225
           Height = 20
@@ -479,7 +486,7 @@ object frmSetting: TfrmSetting
           TabOrder = 0
         end
         object edtProxyPort: TEdit
-          Left = 64
+          Left = 80
           Top = 56
           Width = 81
           Height = 20
@@ -494,12 +501,12 @@ object frmSetting: TfrmSetting
         Width = 153
         Height = 17
         Hint = 'HTTP Proxy'#12434#36890#12376#12390#12508#12488#12523#12469#12540#12496#12395#25509#32154#12375#12414#12377
-        Caption = 'HTTP Proxy'#12434#20351#29992#12377#12427
+        Caption = 'HTTP Proxy'#12434#20351#29992#12377#12427'(&E)'
         TabOrder = 0
       end
     end
     object tstRule: TTabSheet
-      Caption = #12450#12463#12471#12519#12531
+      Caption = #12450#12463#12471#12519#12531'(&A)'
       ImageIndex = 6
       OnShow = tstRuleShow
       inline frmRuleList: TfrmBottleChainList
@@ -512,12 +519,12 @@ object frmSetting: TfrmSetting
     end
   end
   object btnClose: TButton
-    Left = 291
+    Left = 303
     Top = 319
     Width = 75
     Height = 25
     Anchors = [akRight, akBottom]
-    Caption = #38281#12376#12427
+    Caption = #38281#12376#12427'(&C)'
     Default = True
     ModalResult = 1
     TabOrder = 1