Setting form design changed

diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm
index ae59afd..00d2e8b 100755 (executable)
--- a/bottleclient/SettingForm.dfm
+++ b/bottleclient/SettingForm.dfm
@@ -1,11 +1,11 @@
 object frmSetting: TfrmSetting
-  Left = 405
+  Left = 404
   Top = 326
   Anchors = [akLeft, akTop, akRight, akBottom]
   BorderStyle = bsDialog
   Caption = #35373#23450
   ClientHeight = 348
-  ClientWidth = 454
+  ClientWidth = 575
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
   Font.Color = clWindowText
@@ -17,21 +17,31 @@ object frmSetting: TfrmSetting
   Scaled = False
   ShowHint = True
   OnClose = FormClose
+  OnCreate = FormCreate
   DesignSize = (
-    454
+    575
     348)
   PixelsPerInch = 96
   TextHeight = 12
-  object PageControl: TPageControl
+  object Label1: TLabel
     Left = 8
     Top = 8
-    Width = 439
-    Height = 306
-    ActivePage = tstGeneral
+    Width = 66
+    Height = 12
+    Caption = #35373#23450#38917#30446'(&G):'
+    FocusControl = tvwCategory
+  end
+  object PageControl: TPageControl
+    Left = 128
+    Top = 32
+    Width = 440
+    Height = 282
     Anchors = [akLeft, akTop, akRight, akBottom]
+    MultiLine = True
     TabOrder = 0
     object tstGeneral: TTabSheet
       Caption = #19968#33324
+      TabVisible = False
       object lblDefaultScript: TLabel
         Left = 8
         Top = 8
@@ -97,6 +107,7 @@ object frmSetting: TfrmSetting
     object tstDisplay: TTabSheet
       Caption = #34920#31034
       ImageIndex = 1
+      TabVisible = False
       object lblGhostDropDownCount: TLabel
         Left = 8
         Top = 256
@@ -175,6 +186,7 @@ object frmSetting: TfrmSetting
     object tstKeys: TTabSheet
       Caption = #12461#12540
       ImageIndex = 3
+      TabVisible = False
       object rgpWhenReturn: TRadioGroup
         Left = 8
         Top = 16
@@ -224,6 +236,7 @@ object frmSetting: TfrmSetting
     object tstReceive: TTabSheet
       Caption = #21463#20449'/'#36865#20449
       ImageIndex = 4
+      TabVisible = False
       object lblWaitScriptEnd: TLabel
         Left = 16
         Top = 216
@@ -320,6 +333,7 @@ object frmSetting: TfrmSetting
     object tstChannel: TTabSheet
       Caption = #33258#21205#21442#21152
       ImageIndex = 6
+      TabVisible = False
       object lblAutoJoinChannels: TLabel
         Left = 8
         Top = 56
@@ -360,6 +374,7 @@ object frmSetting: TfrmSetting
     object tstRule: TTabSheet
       Caption = #12450#12463#12471#12519#12531
       ImageIndex = 6
+      TabVisible = False
       OnShow = tstRuleShow
       inline frmRuleList: TfrmBottleChainList
         Left = 4
@@ -397,6 +412,7 @@ object frmSetting: TfrmSetting
     object tstDetailed: TTabSheet
       Caption = #35443#32048
       ImageIndex = 6
+      TabVisible = False
       object lblFMOName: TLabel
         Left = 8
         Top = 16
@@ -516,6 +532,7 @@ object frmSetting: TfrmSetting
     object tstSurfacePreview: TTabSheet
       Caption = #12503#12524#12499#12517#12540
       ImageIndex = 7
+      TabVisible = False
       object lblSurfacePreview: TLabel
         Left = 16
         Top = 8
@@ -583,7 +600,7 @@ object frmSetting: TfrmSetting
     end
   end
   object btnClose: TButton
-    Left = 374
+    Left = 495
     Top = 319
     Width = 75
     Height = 25
@@ -593,6 +610,36 @@ object frmSetting: TfrmSetting
     ModalResult = 1
     TabOrder = 1
   end
+  object tvwCategory: TTreeView
+    Left = 8
+    Top = 24
+    Width = 113
+    Height = 289
+    Images = ImageList
+    Indent = 19
+    RowSelect = True
+    ShowLines = False
+    ShowRoot = False
+    TabOrder = 2
+    OnChange = tvwCategoryChange
+  end
+  object pnlHeading: TPanel
+    Left = 128
+    Top = 8
+    Width = 441
+    Height = 22
+    Alignment = taLeftJustify
+    BevelOuter = bvLowered
+    BorderWidth = 3
+    Font.Charset = SHIFTJIS_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
+    Font.Style = [fsBold]
+    ParentColor = True
+    ParentFont = False
+    TabOrder = 3
+  end
   object OpenDialog: TOpenDialog
     Filter = 'Sound File (*.wav)|*.wav|All Files (*.*)|*.*'
     Left = 8

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index 0a4df6d..a9725fe 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -69,6 +69,9 @@ type
     cbxIgnoreTimeCritical: TCheckBox;
     cbxAutoClip: TCheckBox;
     btnCopyLUID: TButton;
+    tvwCategory: TTreeView;
+    Label1: TLabel;
+    pnlHeading: TPanel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
     procedure ctvBottleNodeChecked(Sender: TObject;
@@ -82,6 +85,8 @@ type
     procedure edtLUIDEnter(Sender: TObject);
     procedure edtLUIDExit(Sender: TObject);
     procedure btnCopyLUIDClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure tvwCategoryChange(Sender: TObject; Node: TTreeNode);
   private
     { Private \90é\8c¾ }
     FOldLUID: String;
@@ -351,4 +356,25 @@ begin
   Clipboard.SetTextBuf(PChar(edtLUID.Text));
 end;
 
+procedure TfrmSetting.FormCreate(Sender: TObject);
+var
+  i: integer;
+  Cap: String;
+  Node: TTreeNode;
+begin
+  for i := 0 to PageControl.PageCount-1 do
+  begin
+    Cap := PageControl.Pages[i].Caption;
+    Node := tvwCategory.Items.Add(nil, Cap);
+    Node.ImageIndex := 0;
+  end;
+  tvwCategoryChange(Self, tvwCategory.Items[0]);
+end;
+
+procedure TfrmSetting.tvwCategoryChange(Sender: TObject; Node: TTreeNode);
+begin
+  PageControl.ActivePageIndex := Node.Index;
+  pnlHeading.Caption := Node.Text;
+end;
+
 end.