Added surface preview tab layout (no codes yet)

diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm
index 953a68b..2688986 100755 (executable)
--- a/bottleclient/SettingForm.dfm
+++ b/bottleclient/SettingForm.dfm
@@ -5,7 +5,7 @@ object frmSetting: TfrmSetting
   BorderStyle = bsDialog
   Caption = #35373#23450
   ClientHeight = 348
-  ClientWidth = 394
+  ClientWidth = 454
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
   Font.Color = clWindowText
@@ -18,16 +18,16 @@ object frmSetting: TfrmSetting
   ShowHint = True
   OnClose = FormClose
   DesignSize = (
-    394
+    454
     348)
   PixelsPerInch = 96
   TextHeight = 12
   object PageControl: TPageControl
     Left = 8
     Top = 8
-    Width = 379
+    Width = 439
     Height = 306
-    ActivePage = tstDetailed
+    ActivePage = tstColor
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     object tstGeneral: TTabSheet
@@ -51,7 +51,7 @@ object frmSetting: TfrmSetting
       object memDefaultScript: TMemo
         Left = 8
         Top = 32
-        Width = 353
+        Width = 409
         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
@@ -66,7 +66,7 @@ object frmSetting: TfrmSetting
       object grpLocalConfirm: TGroupBox
         Left = 8
         Top = 112
-        Width = 353
+        Width = 409
         Height = 41
         Caption = #12525#12540#12459#12523#30906#35469
         TabOrder = 2
@@ -85,7 +85,7 @@ object frmSetting: TfrmSetting
       object rgpTabPosition: TRadioGroup
         Left = 8
         Top = 160
-        Width = 353
+        Width = 409
         Height = 41
         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
@@ -139,14 +139,14 @@ object frmSetting: TfrmSetting
       object gbxColor: TGroupBox
         Left = 8
         Top = 8
-        Width = 353
+        Width = 377
         Height = 153
         Caption = #33394'(&O)'
         TabOrder = 0
         inline frmColorSetting: TfrmColorSetting
           Left = 16
           Top = 18
-          Width = 316
+          Width = 349
           Height = 130
           HorzScrollBar.Visible = False
           VertScrollBar.Visible = False
@@ -177,7 +177,7 @@ object frmSetting: TfrmSetting
       object rgpWhenReturn: TRadioGroup
         Left = 8
         Top = 16
-        Width = 353
+        Width = 409
         Height = 65
         Caption = 'Enter'#12461#12540#12391#12398#21205#20316'(&E)'
         Columns = 2
@@ -192,7 +192,7 @@ object frmSetting: TfrmSetting
       object rgpWhenShiftReturn: TRadioGroup
         Left = 8
         Top = 88
-        Width = 353
+        Width = 409
         Height = 65
         Caption = 'Shift+Enter'#12461#12540#12391#12398#21205#20316'(&F)'
         Columns = 2
@@ -207,7 +207,7 @@ object frmSetting: TfrmSetting
       object rgpWhenCtrlReturn: TRadioGroup
         Left = 8
         Top = 160
-        Width = 353
+        Width = 409
         Height = 65
         Caption = 'Ctrl+Enter'#12461#12540#12391#12398#21205#20316'(&T)'
         Columns = 2
@@ -245,7 +245,7 @@ object frmSetting: TfrmSetting
       object ctvBottle: TCPCConfigTreeView
         Left = 8
         Top = 8
-        Width = 353
+        Width = 409
         Height = 217
         Images = ImageList
         Indent = 19
@@ -312,7 +312,7 @@ object frmSetting: TfrmSetting
       object memAutoJoinChannels: TMemo
         Left = 8
         Top = 72
-        Width = 353
+        Width = 209
         Height = 113
         Hint = #33258#21205#21442#21152#12377#12427#12481#12515#12531#12493#12523#12434'1'#34892#12395'1'#12388#12378#12388#35352#20837#12377#12427
         ScrollBars = ssVertical
@@ -328,8 +328,8 @@ object frmSetting: TfrmSetting
         TabOrder = 1
       end
       object btnUseCurrentJoinChannels: TButton
-        Left = 168
-        Top = 192
+        Left = 224
+        Top = 160
         Width = 193
         Height = 25
         Hint = #29694#22312#21442#21152#12375#12390#12356#12427#12481#12515#12531#12493#12523#12434#33258#21205#21442#21152#12481#12515#12531#12493#12523#12392#12375#12390#25351#23450
@@ -345,24 +345,32 @@ object frmSetting: TfrmSetting
       inline frmRuleList: TfrmBottleChainList
         Left = 4
         Top = 7
-        Width = 364
+        Width = 421
         Height = 260
         TabOrder = 0
+        inherited lstRules: TCheckListBox
+          Width = 348
+        end
         inherited btnDelete: TButton
+          Left = 353
           Hint = #12523#12540#12523#12434#21066#38500
         end
         inherited btnAdd: TButton
+          Left = 353
           Hint = #26032#12375#12356#12523#12540#12523#12434#36861#21152
           Caption = #36861#21152'(&I)'
         end
         inherited btnDown: TButton
+          Left = 353
           Hint = #19979#12395#31227#21205
           Caption = #19979#12408'(&O)'
         end
         inherited btnUp: TButton
+          Left = 353
           Hint = #19978#12395#31227#21205
         end
         inherited btnEdit: TButton
+          Left = 353
           Hint = #29694#22312#12398#12523#12540#12523#12434#32232#38598
         end
       end
@@ -381,7 +389,7 @@ object frmSetting: TfrmSetting
       object memFMOName: TMemo
         Left = 8
         Top = 32
-        Width = 353
+        Width = 417
         Height = 73
         Hint = 'FMO'#21517#12434'1'#34892#12395'1'#12388#35352#20837#12290#35352#20837#20869#23481#12395#12388#12356#12390#12399'SSTP'#12469#12540#12496#20596#12398#12489#12461#12517#12513#12531#12488#12434#21442#29031
         ScrollBars = ssVertical
@@ -391,7 +399,7 @@ object frmSetting: TfrmSetting
       object grpProxy: TGroupBox
         Left = 8
         Top = 160
-        Width = 353
+        Width = 417
         Height = 113
         Caption = 'HTTP Proxy'#35373#23450
         TabOrder = 1
@@ -461,18 +469,37 @@ object frmSetting: TfrmSetting
         TabOrder = 2
       end
       object btnVisibleGhosts: TButton
-        Left = 264
+        Left = 304
         Top = 124
-        Width = 99
+        Width = 123
         Height = 25
         Caption = #12468#12540#12473#12488#25351#23450'(&G)...'
         TabOrder = 3
         OnClick = btnVisibleGhostsClick
       end
     end
+    object tstSurfacePreview: TTabSheet
+      Caption = #12503#12524#12499#12517#12540
+      ImageIndex = 7
+      object lblSurfacePreview: TLabel
+        Left = 16
+        Top = 24
+        Width = 199
+        Height = 12
+        Caption = #8251#12503#12524#12499#12517#12540#12395#12399#12503#12521#12464#12452#12531#12364#24517#35201#12391#12377
+      end
+      object cbxDoSurfacePreview: TCheckBox
+        Left = 16
+        Top = 56
+        Width = 289
+        Height = 17
+        Caption = #23450#22411#21477#25407#20837#26178#12395#12503#12524#12499#12517#12540#12434#34892#12358'(&E)'
+        TabOrder = 0
+      end
+    end
   end
   object btnClose: TButton
-    Left = 314
+    Left = 374
     Top = 319
     Width = 75
     Height = 25

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index 8028315..865dc00 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -55,6 +55,9 @@ type
     cbxShowRuler: TCheckBox;
     cbxHideGhosts: TCheckBox;
     btnVisibleGhosts: TButton;
+    tstSurfacePreview: TTabSheet;
+    cbxDoSurfacePreview: TCheckBox;
+    lblSurfacePreview: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
     procedure ctvBottleNodeChecked(Sender: TObject;