少々宣言の位置を変更

diff --git a/Option.pas b/Option.pas
index c95f620..21ff699 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -95,7 +95,7 @@ type
                OpenMailerCheckBox: TCheckBox;
                TabSheet1: TTabSheet;
                PopupPositionRadioGroup: TRadioGroup;
-               TabAddRadioGroup: TRadioGroup;
+//             TabAddRadioGroup: TRadioGroup;
                TabSheet2: TTabSheet;
                GroupBox7: TGroupBox;
                URLDisplayCheckBox: TCheckBox;
@@ -249,7 +249,7 @@ type
                function GetMemoText(font: TFont; text: string): string;
 //             function GetFontText(Font: TFont; Text: string): string;
                procedure SetValue;
-               procedure SaveSetting;
+//                procedure SaveSetting;
                procedure SettingApply;
                function CheckFolder: Boolean;
                procedure SetAbonpropertys;
@@ -257,6 +257,9 @@ type
                procedure CSSPreview;
        public
                { Public \90é\8c¾ }
+                TabAddRadioGroup: TRadioGroup;
+                TabAddRadio: Integer;
+                procedure SaveSetting;
        end;
 
 var