From 2a4a31d1fb756c3f922e515ac00ebd57413b3499 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Tue, 17 Aug 2004 06:56:18 +0000
Subject: [PATCH] =?utf8?q?=E3=82=BF=E3=83=96=E3=81=AE=E8=87=AA=E5=8B=95?=
 =?utf8?q?=E4=BF=9D=E5=AD=98=E3=81=AE=E8=A8=AD=E5=AE=9A=E3=81=8C=E4=BF=9D?=
 =?utf8?q?=E5=AD=98=E3=81=95=E3=82=8C=E3=81=AA=E3=81=84=E4=B8=8D=E5=85=B7?=
 =?utf8?q?=E5=90=88=E3=81=AE=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Option.dfm  |  4 ++--
 Option.pas  | 17 +++++------------
 Setting.pas |  5 +----
 3 files changed, 8 insertions(+), 18 deletions(-)

diff --git a/Option.dfm b/Option.dfm
index 1d3c6dc..d49ce44 100644
--- a/Option.dfm
+++ b/Option.dfm
@@ -60,9 +60,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = ConnectSheet
+    ActivePage = TabSheet2
     MultiLine = True
-    TabIndex = 0
+    TabIndex = 6
     TabOrder = 3
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
diff --git a/Option.pas b/Option.pas
index fc5db97..9038605 100644
--- a/Option.pas
+++ b/Option.pas
@@ -121,7 +121,7 @@ type
     ResAnchorCheckBox: TCheckBox;
     TabSheet1: TTabSheet;
     PopupPositionRadioGroup: TRadioGroup;
-    TabAddRadioGroup: TRadioGroup;
+	TabAddRadioGroup: TRadioGroup;
     GroupBox8: TGroupBox;
     Label14: TLabel;
     Label15: TLabel;
@@ -244,7 +244,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;
@@ -252,10 +252,6 @@ type
 		procedure CSSPreview;
 	public
 		{ Public éŒ¾ }
-                TabAddRadio: Integer;                          
-                procedure SaveSetting;
-                property TabAddPro: TRadioGroup read TabAddRadioGroup write TabAddRadioGroup;
-                property TabAutoLoadSave: TCheckBox read TabLoadSave write TabLoadSave;
 	end;
 
 var
@@ -1539,14 +1535,11 @@ procedure TOptionDialog.CroutOptionClick(Sender: TObject);
 var
 	KuroutOption: TKuroutOption;
 begin
+	KuroutOption := TKuroutOption.Create(Self);
 	try
-		KuroutOption := TKuroutOption.Create(Self);
-		try
-			KuroutOption.ShowModal;
-		except
-		end;
+		KuroutOption.ShowModal;
 	finally
-    	KuroutOption.Release;
+		KuroutOption.Release;
 	end;
 end;
 
diff --git a/Setting.pas b/Setting.pas
index bc7a477..d9d47c8 100644
--- a/Setting.pas
+++ b/Setting.pas
@@ -1117,9 +1117,6 @@ begin
 		ini.WriteString('Window', 'HintFontColor', ColorToString(FHintFontColor));
 		ini.WriteString('Window', 'HintBackColor', ColorToString(FHintBackColor));
 
-                //Ž©“®•Û‘¶¥•œŒ³
-                ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
-
 		ini.UpdateFile;
 	finally
 		ini.Free;
@@ -1329,7 +1326,7 @@ begin
 		ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP );
 		ini.WriteBool( 'Editor', 'AmpToCharRef', FAmpToCharRef );
 
-                ini.WriteBool('TabAuto', 'TabAutoSaveLoad', FTabAutoLoadSave);
+                ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
 
 		ini.UpdateFile;
 	finally
-- 
2.11.0