かちゅ〜しゃ用のスキンの使用をオプションに変更

diff --git a/Option.dfm b/Option.dfm
index 4ff96a0..4745a17 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -61,9 +61,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = NGwordSheet
+    ActivePage = CSSTabSheet
     MultiLine = True
-    TabIndex = 10
+    TabIndex = 2
     TabOrder = 3
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -253,7 +253,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end
@@ -655,6 +655,14 @@ object OptionDialog: TOptionDialog
           TabOrder = 6
           OnClick = CSSBackColorButtonClick
         end
+        object UseKatjuTypeSkinCheckBox: TCheckBox
+          Left = 16
+          Top = 272
+          Width = 209
+          Height = 17
+          Caption = #12363#12385#12421#65374#12375#12419#12398#12473#12461#12531#12434#20351#29992#12377#12427
+          TabOrder = 7
+        end
       end
     end
     object TabSheet3: TTabSheet

diff --git a/Option.pas b/Option.pas
index f5ff29c..e7a9018 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -201,6 +201,7 @@ type
     Label18: TLabel;
     UnFocusedBoldCheckBox: TCheckBox;
     IgnoreKanaCheckBox: TCheckBox;
+    UseKatjuTypeSkinCheckBox: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -615,6 +616,9 @@ begin
        EditorMemo.Color := GikoSys.Setting.EditorBackColor;
        //CSS\95\\8e¦
        CSSCheckBox.Checked := GikoSys.Setting.UseCSS;
+       //\82©\82¿\82ã\83X\83L\83\93\8eg\97p
+       UseKatjuTypeSkinCheckBox.Checked := GikoSys.Setting.UseKatjushaType;
+       
        if FCSSFont <> nil then
                FCSSFont.Free;
        FCSSFont := TFont.Create;
@@ -912,6 +916,7 @@ begin
        //CSS\95\\8e¦
        if GikoSys.Setting.UseCSS <> CSSCheckBox.Checked then FRepaintThread := true;
        GikoSys.Setting.UseCSS := CSSCheckBox.Checked;
+       GikoSys.Setting.UseKatjushaType := UseKatjuTypeSkinCheckBox.Checked;
        //CSS\83t\83@\83C\83\8b\96¼
        tmp := GikoSys.Setting.CSSFileName;
        GikoSys.Setting.CSSFileName := 'default.css';