Commit: f7ef0d2d4d662abada8ba7f44b58087af2ada3ad - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revisión: f7ef0d2d4d662abada8ba7f44b58087af2ada3ad (tree)
• Tiempo: 2004-10-03 03:37:49
• Autor: cvs2git <cvs2git>
• Commiter: cvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_49_0_540'.

Cambiar Resumen

• modified: AbonUnit.pas
• modified: BoardGroup.pas
• modified: Editor.dfm
• modified: Editor.pas
• modified: ExternalBoardPlugInMain.pas
• modified: Favorite.pas
• modified: Giko.dfm
• modified: Giko.pas
• modified: GikoSystem.pas
• modified: GikoXMLDoc.pas
• modified: ItemDownload.pas
• modified: KuroutSetting.dfm
• modified: KuroutSetting.pas
• modified: Option.dfm
• modified: Option.pas
• modified: Setting.pas
• modified: Sort.pas
• modified: YofUtils.pas
• modified: gikoNavi.res
• modified: readme/readme.txt
• modified: res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
• modified: res/skin/skin30-2G/Header.html
• modified: res/skin/skin30-2G/chie_event.js
• modified: res/skin/skin30-2G/chie_image.js
• modified: res/skin/skin30-2G/chie_popup.js
• modified: res/skin/skin30-2G/chie_search.js
• modified: res/skin/skin30-3G/Header.html
• modified: res/skin/skin30-3G/chie_event.js
• modified: res/skin/skin30-3G/chie_popup.js
• modified: res/skin/skin30-3G/chie_search.js

Diferencia incremental

--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -824,62 +824,58 @@ begin
             end;
         end;
     end;
-	Result := false;
+    Result := false;
 
 end;
 //ƒVƒŠƒAŒêƒuƒ‰ƒNƒ‰‘΍ô
 function TAbon.TreatSyria(AString: string): string;
 var
 	//count: Integer; //(&#1792~&#1871)
-	pos: Integer;
-	tmp: string;
+    pos: Integer;
+    tmp: string;
 begin
-	pos := AnsiPos('&#18', AString);
+    pos := AnsiPos('&#18', AString);
 	while pos <> 0  do begin
-		if StrToIntDef(Copy(AString, pos+4, 2), -1) > 0 then begin
-			if (AString[pos+6] = ';' )  or (AString[pos+6] = ' ') then begin
-				tmp := tmp + Copy(AString, 1, pos - 1);
-				Delete(AString, 1, pos+6);
-			end else if StrToIntDef(AString[pos+6], -1) = -1 then begin
-				tmp := tmp + Copy(AString, 1, pos - 1);
-				Delete(AString, 1, pos+5);
-			end else begin
-				tmp := tmp + Copy(AString, 1, pos + 5);
-				Delete(AString, 1, pos+5);
-			end;
-		end else begin
-			tmp := tmp + Copy(AString, 1, pos + 5);
-			Delete(AString, 1, pos+5);
-		end;
-		pos := AnsiPos('&#18', AString);
-	end;
-	if Length(AString) > 0 then
-		tmp := tmp + AString;
-	AString := tmp;
-	tmp := '';
+    	if AString[pos+6] = ';' then begin
+            if StrToIntDef(Copy(AString, pos+4, 2), 0) <= 71 then begin
+	            tmp := tmp + Copy(AString, 1, pos - 1);
+    	    	Delete(AString, 1, pos+6);
+            end else begin
+	            tmp := tmp + Copy(AString, 1, pos + 6);
+    	    	Delete(AString, 1, pos+6);
+            end;
+        end else begin
+            tmp := tmp + Copy(AString, 1, pos + 3);
+        	Delete(AString, 1, pos+3);
+        end;
+        pos := AnsiPos('&#18', AString);
+    end;
+    if Length(AString) > 0 then
+    	tmp := tmp + AString;
+    AString := tmp;
+    tmp := '';
 
-	pos := AnsiPos('&#179', AString);
+    pos := AnsiPos('&#179', AString);
 	while pos <> 0 do begin
-		if StrToIntDef(Copy(AString, pos+5, 1), 0) > 2 then begin
-			if (AString[pos+6] = ';') or (AString[pos+6] = ' ') then begin
-				tmp := tmp + Copy(AString, 1, pos - 1);
-				Delete(AString, 1, pos+6);
-			end else if StrToIntDef(AString[pos+6], -1) = -1 then begin
-				tmp := tmp + Copy(AString, 1, pos - 1);
-				Delete(AString, 1, pos+5);
-			end else begin
-				tmp := tmp + Copy(AString, 1, pos + 5);
-				Delete(AString, 1, pos+5);
-			end;
-		end else begin
-			tmp := tmp + Copy(AString, 1, pos + 5);
-			Delete(AString, 1, pos+5);
-		end;
-		pos := AnsiPos('&#179', AString);
-	end;
-	if Length(AString) > 0 then
-		tmp := tmp + AString;
-	Result := tmp;
+    	if AString[pos+6] = ';' then begin
+            if StrToIntDef(Copy(AString, pos+5, 1), 0) > 2 then begin
+	            tmp := tmp + Copy(AString, 1, pos - 1);
+    	    	Delete(AString, 1, pos+6);
+            end else begin
+	            tmp := tmp + Copy(AString, 1, pos + 6);
+    	    	Delete(AString, 1, pos+6);
+            end;
+            tmp := tmp + Copy(AString, 1, pos - 1);
+        	Delete(AString, 1, pos+6);
+        end else begin
+            tmp := tmp + Copy(AString, 1, pos + 4);
+        	Delete(AString, 1, pos+4);
+        end;
+        pos := AnsiPos('&#179', AString);
+    end;
+    if Length(AString) > 0 then
+    	tmp := tmp + AString;
+    Result := tmp;
 end;
 end.
 

--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -394,7 +394,7 @@ const
 	SUBJECT_FILENAME:			string	= 'subject.txt';
 	PATH_DELIM:						string	= '\';
 	SETTINGTXT_FILENAME:		string = 'SETTING.TXT';
-    HEADTXT_FILENAME:		string = 'head.html';
+    HEADTXT_FILENAME:		string = 'head.txt';
 	//DEFAULT_LIST_COUNT:		Integer = 100;
 
 //	COLUMN_CATEGORY:	 array[0..0] of string = ('ƒJƒeƒSƒŠ–¼');
@@ -1668,11 +1668,9 @@ procedure TThreadItem.DeleteLogFile;
 begin
 	ParentBoard.BeginUpdate;
 
-	if FUnRead then
-		ParentBoard.UnRead := ParentBoard.UnRead - 1;
 	DeleteFile(GetThreadFileName);
-	if FileExists(ChangeFileExt(GetThreadFileName,'.NG')) = true then
-		DeleteFile(ChangeFileExt(GetThreadFileName,'.NG'));
+		if FileExists(ChangeFileExt(GetThreadFileName,'.NG')) = true then
+			DeleteFile(ChangeFileExt(GetThreadFileName,'.NG'));
 	FRoundDate := ZERO_DATE;
 	FLastModified := ZERO_DATE;
 	FSize := 0;

--- a/Editor.dfm
+++ b/Editor.dfm
@@ -383,9 +383,6 @@ object EditorForm: TEditorForm
       object SETTINGTXT2: TMenuItem
         Action = GetSETTINGTXTAction
       end
-      object HeadTXT1: TMenuItem
-        Action = GetHeadTXTAction
-      end
       object OP1: TMenuItem
         Action = GetTitlePictureAction
       end
@@ -1112,12 +1109,6 @@ object EditorForm: TEditorForm
       OnExecute = GetTitlePictureActionExecute
       OnUpdate = GetTitlePictureActionUpdate
     end
-    object GetHeadTXTAction: TAction
-      Category = #26495#24773#22577
-      Caption = 'HeadTXT'#12398#21462#24471
-      HelpKeyword = 'HeadTXT'#12398#21462#24471
-      OnExecute = GetHeadTXTActionExecute
-    end
   end
   object IdLogDebug: TIdLogDebug
     OnReceive = IdLogDebugReceive

--- a/Editor.pas
+++ b/Editor.pas
@@ -107,8 +107,6 @@ type
 	SETTINGTXT2: TMenuItem;
 	GetTitlePictureAction: TAction;
 	OP1: TMenuItem;
-    GetHeadTXTAction: TAction;
-    HeadTXT1: TMenuItem;
 
 		procedure EditorPageChange(Sender: TObject);
 		procedure FormCreate(Sender: TObject);
@@ -153,7 +151,6 @@ type
 	procedure GetSETTINGTXTActionExecute(Sender: TObject);
 	procedure GetTitlePictureActionUpdate(Sender: TObject);
 	procedure GetTitlePictureActionExecute(Sender: TObject);
-    procedure GetHeadTXTActionExecute(Sender: TObject);
 	private
 		FThreadItem: TThreadItem;
 		FBoard: TBoard;
@@ -390,7 +387,7 @@ begin
 	MailComboBox.Text := FBoard.KotehanMail;
 	SageCheckBox.Checked := AnsiPos('sage', MailComboBox.Text) <> 0;
 	TitlePanel.Visible := True;
-	SetSamba24(FBoard.URL);
+	SetSamba24('');
 	ShowBoardInformation(FBoard, BoardInformationMemo);
 	ShowTitlePicture();
 end;
@@ -410,11 +407,8 @@ end;
 
 function TEditorForm.GetBody : string;
 var
-	body, tmp		: string;
-	p, tail			: PChar;
-	len					: Integer;
-const
-	TAB_LENGTH	= 4;
+	body		: string;
+	regexp	: TAWKStr;
 begin
 
 	body := BodyEdit.Text;
@@ -422,65 +416,16 @@ begin
 		// & ‚Ì’uŠ·‚͈ê”ԍŏ‰‚É‚â‚邱‚Æ
 		body := CustomStringReplace( body, '&', '&amp;' );
 	if SpaceToNBSPAction.Checked then begin
-		p			:= PChar( body );
-		tail	:= p + Length( body );
-		len		:= 0;
-		while p < tail do begin
-			case p^ of
-			#09:
-				begin
-					Inc( p );
-					repeat
-						Inc( len );
-						tmp := tmp + '&nbsp;';
-					until (len mod TAB_LENGTH) = 0;
-				end;
-
-			#10, #13:
-				begin
-					tmp := tmp + p^;	Inc( p );
-					len	:= 0;
-				end;
-
-			' ':
-				begin
-					tmp	:= tmp + '&nbsp;';
-					Inc( p );
-					Inc( len );
-				end;
-				
-			'&':
-				// ŽÀ‘ÌŽQÆ‚Í 1 •¶Žš•ª
-				begin
-					tmp := tmp + '&';
-					Inc( p );
-					Inc( len );
-					while p < tail do begin
-						if p^ in ['a'..'z', 'A'..'Z', '0'..'9', '#'] then begin
-							tmp := tmp + p^;
-						end else if p^ = ';' then begin
-							tmp := tmp + p^;
-							Inc( p );
-							Break;
-						end else begin
-							Break;
-						end;
-						Inc( p );
-					end;
-				end;
-
-			else
-				if p^ in kYofKanji then begin
-					tmp := tmp + p^;	Inc( p );
-					tmp	:= tmp + p^;	Inc( p );
-					len	:= len + 2;
-				end else begin
-					tmp := tmp + p^;	Inc( p );
-					Inc( len );
-				end;
-			end;
+		body := CustomStringReplace( body, #09, '&nbsp;&nbsp;&nbsp;&nbsp;' );
+		body := CustomStringReplace( body, '  ', '&nbsp;&nbsp;' );
+		body := CustomStringReplace( body, '&nbsp; ', '&nbsp;&nbsp;' );
+		regexp := TAWKStr.Create( nil );
+		try
+			regexp.RegExp := '^ ';
+			regexp.GSub( '\&nbsp;', body );
+		finally
+			regexp.Free;
 		end;
-		body := tmp;
 	end;
 
 	Result	:= body;
@@ -1674,7 +1619,7 @@ begin
 			tmpBoard := FBoard
 		else
 			tmpBoard := FThreadItem.ParentBoard;
-
+			
 		Indy.Request.Referer := tmpBoard.URL;
 		if	tmpBoard.TitlePictureURL <> '' then begin
 			StatusBar.Panels[0].Text := '”ƒgƒbƒv‰æ‘œƒ_ƒEƒ“ƒ[ƒh’†';
@@ -1729,65 +1674,4 @@ begin
 	end;
 end;
 
-procedure TEditorForm.GetHeadTXTActionExecute(Sender: TObject);
-var
-	URL, RefURL: string;
-	settingBody: TStringList;
-	tmpBoard: TBoard;
-
-begin
-	InitIdHTTP(Indy);
-	if FThreadItem = nil then
-		tmpBoard := FBoard
-	else
-		tmpBoard := FThreadItem.ParentBoard;
-
-	if tmpBoard = nil then Exit;
-
-	RefURL	:= tmpBoard.URL;
-	if RefURL[Length(RefURL)] <> '/' then
-		URL	:= RefURL + '/' + 'head.txt'
-	else
-		URL	:= RefURL + 'head.txt';
-
-	if FileExists(tmpBoard.GETHEADTXTFileName) then
-		Indy.Request.LastModified := tmpBoard.HEADTXTTime
-	else
-		Indy.Request.LastModified := ZERO_DATE;
-
-	Indy.Request.Referer := RefURL;
-	Screen.Cursor := crHourGlass;
-	settingBody := TStringList.Create;
-	try
-		StatusBar.Panels[0].Text := 'head.txtƒ_ƒEƒ“ƒ[ƒh’†';
-		try
-			settingBody.Text := Indy.Get(URL);
-			if( Indy.ResponseCode = 200 ) then begin
-				settingBody.Insert(0, '<HTML lang="ja"><HEAD>');
-				settingBody.Insert(1, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
-				settingBody.Insert(2, '<TITLE>' + tmpBoard.Title + '</TITLE>');
-				settingBody.Insert(3, '<base href="' + RefURL + '"></HEAD><BODY>');
-				settingBody.Add('</BODY></HTML>');
-				settingBody.SaveToFile(tmpBoard.GETHEADTXTFileName);
-				tmpBoard.HEADTXTTime := Indy.Response.LastModified;
-				tmpBoard.IsHEADTXT := true;
-				tmpBoard.Modified := true;
-				StatusBar.Panels[0].Text := 'head.txtŽæ“¾Š®—¹(' + IntToStr(Indy.ResponseCode) + ')';
-			end;
-		except
-			on E: EIdException do begin
-				if( AnsiPos('304', E.Message) > 0 ) then
-					StatusBar.Panels[0].Text := 'head.txtXV–³‚µ(' + IntToStr(Indy.ResponseCode) + ')'
-				else
-					StatusBar.Panels[0].Text := 'head.txtŽæ“¾ƒGƒ‰[(' + IntToStr(Indy.ResponseCode) + ')';
-			end;
-		end;
-	finally
-		settingBody.Free;
-		Screen.Cursor := crDefault;
-	end;
-	if tmpBoard.IsHEADTXT then
-		GikoSys.OpenBrowser(tmpBoard.GETHEADTXTFileName, gbtUserApp);
-end;
-
 end.

--- a/ExternalBoardPlugInMain.pas
+++ b/ExternalBoardPlugInMain.pas
@@ -229,8 +229,7 @@ var
 //	httpSocket				: TIdHTTP;
 	resStream					: TMemoryStream;
 	content						: string;
-const
-	LIVEDOOR_URL = 'http://jbbs.livedoor.jp/';
+
 begin
 
 	{$IFDEF DEBUG}
@@ -271,8 +270,7 @@ begin
 				Result := socket.ResponseCode;
 				if (Length( content ) = 0) and (Result = 206) then
 					Result := 304;
-                //‚µ‚½‚ç‚ÎJBBS‚̓wƒbƒ_‚ɃGƒ‰[î•ñ‚ªÚ‚é‚炵‚¢‚̂ŁA‚±‚±‚Ń`ƒFƒbƒN
-				if ( AnsiPos(LIVEDOOR_URL, inURL) > 0 ) and (Result = 200) then begin
+				if ( AnsiPos('http://jbbs.livedoor.com/', inURL) > 0 ) and (Result = 200) then begin
 					if( AnsiPos('STORAGE IN', socket.Response.RawHeaders.Text) > 0 ) then begin
 						Result := 302;
 					end;

--- a/Favorite.pas
+++ b/Favorite.pas
@@ -117,50 +117,13 @@ function	TFavoriteBoardItem.GetItem : TBoard;
 var
 	protocol, host, path, document, port, bookmark : string;
 	BBSID{, BBSKey}	: string;
-	tmpURL, boardURL		: string;
+	tmpURL				: string;
 //	category : TCategory;
-	i, bi: Integer;
-	tmpThread: TThreadItem;
-	tmpBoard: TBoard;
 begin
 
 	if FItem = nil then begin
 		FItem := BBSsFindBoardFromURL( URL );
 		if FItem = nil then begin
-			//===== ƒvƒ‰ƒOƒCƒ“
-			try
-				//ì‹Æ’†//
-				bi := High( BoardPlugIns );
-				for i := Low( BoardPlugIns ) to bi do begin
-					if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin
-						case BoardPlugIns[ i ].AcceptURL( URL ) of
-						atThread:
-							begin
-								tmpThread		:= TThreadItem.Create( BoardPlugIns[ i ], URL );
-								boardURL		:= tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );
-								FItem				:= BBSsFindBoardFromURL( boardURL );
-								URL := FItem.URL;
-								tmpThread.Free;
-								break;
-							end;
-						atBoard:
-							begin
-								tmpBoard := TBoard.Create(BoardPlugIns[ i ], URL);
-								FItem := BBSsFindBoardFromURL( tmpBoard.URL );
-								tmpBoard.Free;
-								if FItem <> nil then begin
-									URL := FItem.URL;
-								end;
-								break;
-							end;
-						end;
-					end;
-				end;
-			except
-				// exception ‚ª”­¶‚µ‚½ê‡‚Í“à•”ˆ—‚É”C‚¹‚½‚¢‚Ì‚Å‚±‚±‚ł͉½‚à‚µ‚È‚¢
-			end;
-		end;
-		if FItem = nil then begin
 			tmpURL := URL;
 			GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
 			if GikoSys.Is2chHost( host ) then begin
@@ -315,7 +278,7 @@ begin
 	FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 
 	FavFolder := TFavoriteFolder.Create;
-	Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder);
+	Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 	Node.ImageIndex := 14;
 	Node.SelectedIndex := 14;
 
@@ -331,7 +294,7 @@ begin
 				FStack.Push(Node);
 				LinkExists := False;
 				if XMLNode.NodeName = 'favorite' then begin
-					for i := XMLNode.ChildNodes.Count - 1 downto 0 do begin
+					for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
 						ReadNode(XMLNode.ChildNodes[i]);
 						if (XMLNode.ChildNodes[i].NodeName = 'folder') and
 							 (XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin
@@ -341,7 +304,7 @@ begin
 				end;
 				if not LinkExists then begin
 					FavFolder := TFavoriteFolder.Create;
-					Node := FTreeView.Items.AddChildObjectFirst(Node, FAVORITE_LINK_NAME, FavFolder);
+					Node := FTreeView.Items.AddChildObject(Node, FAVORITE_LINK_NAME, FavFolder);
 					Node.ImageIndex := 14;
 					Node.SelectedIndex := 14;
 				end;
@@ -355,7 +318,7 @@ begin
 
 {
 	FavFolder := TFavoriteFolder.Create;
-	Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder);
+	Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 	Node.ImageIndex := 12;
 	Node.SelectedIndex := 13;
 
@@ -391,16 +354,15 @@ begin
 		ParentNode := FStack.Peek;
 		if TObject(ParentNode.Data) is TFavoriteFolder then begin
 			FavFolder := TFavoriteFolder.Create;
-			CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder);
+			CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder);
 			CurrentNode.ImageIndex := 14;
 			CurrentNode.SelectedIndex := 14;
+			CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
 			FStack.Push(CurrentNode);
 		end;
-		for i := Node.ChildNodes.Count - 1 downto 0 do begin
+		for i := 0 to Node.ChildNodes.Count - 1 do begin
 			ReadNode(Node.ChildNodes[i]);
 		end;
-		if TObject(ParentNode.Data) is TFavoriteFolder then
-			CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
 		if FStack.Count <> 0 then
 			FStack.Pop;
 	end else if Node.NodeName = 'favitem' then begin
@@ -419,7 +381,7 @@ begin
 						FavBoard := TFavoriteBoardItem.Create(
 							Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 					end;
-					CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavBoard);
+					CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavBoard);
 					CurrentNode.ImageIndex := 15;
 					CurrentNode.SelectedIndex := 15;
 				end else if Node.Attributes['favtype'] = 'thread' then begin
@@ -446,7 +408,7 @@ begin
 						FavThread := TFavoriteThreadItem.Create(
 							Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 					end;
-					CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavThread);
+					CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavThread);
 					CurrentNode.ImageIndex := 16;
 					CurrentNode.SelectedIndex := 16;
 				end;

--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,11 +1,11 @@
 object GikoForm: TGikoForm
-  Left = 246
-  Top = 188
+  Left = 238
+  Top = 291
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
   Caption = '-'
-  ClientHeight = 404
+  ClientHeight = 545
   ClientWidth = 854
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
@@ -16,9 +16,11 @@ object GikoForm: TGikoForm
   KeyPreview = True
   OldCreateOrder = False
   Visible = True
+  OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnKeyUp = FormKeyUp
   OnMouseWheel = FormMouseWheel
   OnResize = FormResize
   OnShortCut = FormShortCut
@@ -27,7 +29,7 @@ object GikoForm: TGikoForm
   TextHeight = 12
   object StatusBar: TStatusBar
     Left = 0
-    Top = 384
+    Top = 525
     Width = 854
     Height = 20
     Panels = <
@@ -38,7 +40,11 @@ object GikoForm: TGikoForm
         Width = 500
       end
       item
+        Style = psOwnerDraw
         Width = 50
+      end
+      item
+        Width = 100
       end>
     SimplePanel = False
     OnResize = StatusBarResize
@@ -47,13 +53,13 @@ object GikoForm: TGikoForm
     Left = 0
     Top = 77
     Width = 854
-    Height = 307
+    Height = 448
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 1
     object MessageSplitter: TSplitter
       Left = 0
-      Top = 268
+      Top = 409
       Width = 854
       Height = 5
       Cursor = crVSplit
@@ -66,7 +72,7 @@ object GikoForm: TGikoForm
       Left = 0
       Top = 0
       Width = 854
-      Height = 268
+      Height = 409
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 0
@@ -74,7 +80,7 @@ object GikoForm: TGikoForm
         Left = 145
         Top = 0
         Width = 5
-        Height = 268
+        Height = 409
         Cursor = crHSplit
         AutoSnap = False
         ResizeStyle = rsUpdate
@@ -83,7 +89,7 @@ object GikoForm: TGikoForm
         Left = 0
         Top = 0
         Width = 145
-        Height = 268
+        Height = 409
         Align = alLeft
         BevelOuter = bvNone
         TabOrder = 0
@@ -270,7 +276,7 @@ object GikoForm: TGikoForm
         Left = 150
         Top = 0
         Width = 704
-        Height = 268
+        Height = 409
         Align = alClient
         BevelOuter = bvNone
         TabOrder = 1
@@ -309,13 +315,13 @@ object GikoForm: TGikoForm
             OwnerData = True
             ReadOnly = True
             RowSelect = True
+            PopupMenu = ListPopupMenu
             SmallImages = ItemIcon16
             StateImages = StateIconImageList
             TabOrder = 0
             ViewStyle = vsReport
             OnAdvancedCustomDrawItem = ListViewAdvancedCustomDrawItem
             OnColumnClick = ListViewColumnClick
-            OnColumnRightClick = ListViewColumnRightClick
             OnCustomDraw = ListViewCustomDraw
             OnData = ListViewData
             OnDataFind = ListViewDataFind
@@ -548,7 +554,7 @@ object GikoForm: TGikoForm
           Left = 0
           Top = 194
           Width = 704
-          Height = 74
+          Height = 215
           Align = alClient
           BevelOuter = bvNone
           TabOrder = 1
@@ -556,7 +562,7 @@ object GikoForm: TGikoForm
             Left = 0
             Top = 46
             Width = 704
-            Height = 8
+            Height = 149
             Align = alClient
             BevelOuter = bvNone
             UseDockManager = False
@@ -566,7 +572,7 @@ object GikoForm: TGikoForm
               Left = 0
               Top = 0
               Width = 704
-              Height = 8
+              Height = 149
               Align = alClient
               TabOrder = 0
               OnEnter = BrowserEnter
@@ -575,7 +581,7 @@ object GikoForm: TGikoForm
               OnNewWindow2 = BrowserNewWindow2
               OnDocumentComplete = BrowserDocumentComplete
               ControlData = {
-                4C000000C3480000D40000000000000000000000000000000000000000000000
+                4C000000C3480000660F00000000000000000000000000000000000000000000
                 000000004C000000000000000000000001000000E0D057007335CF11AE690800
                 2B2E12620A000000000000004C0000000114020000000000C000000000000046
                 8000000000000000000000000000000000000000000000000000000000000000
@@ -584,7 +590,7 @@ object GikoForm: TGikoForm
           end
           object BrowserBottomPanel: TGikoPanel
             Left = 0
-            Top = 54
+            Top = 195
             Width = 704
             Height = 20
             Align = alBottom
@@ -862,7 +868,7 @@ object GikoForm: TGikoForm
     end
     object MessagePanel: TPanel
       Left = 0
-      Top = 273
+      Top = 414
       Width = 854
       Height = 34
       Align = alBottom
@@ -6009,7 +6015,7 @@ object GikoForm: TGikoForm
   end
   object ActionList: TActionList
     Images = ToobarImageList
-    Left = 5
+    Left = 8
     Top = 372
     object OnlyAHundredResAction: TAction
       Category = #12473#12524#12483#12489
@@ -7065,20 +7071,6 @@ object GikoForm: TGikoForm
       Hint = #12479#12502#12398#38918#30058#12434#33258#21205#24489#20803
       OnExecute = TabAutoLoadActionExecute
     end
-    object JumpToNumOfResAction: TAction
-      Category = #12473#12524#12483#12489
-      Caption = #25351#23450#12375#12383#30058#21495#12398#12524#12473#12395#39131#12406
-      Hint = #25351#23450#12375#12383#30058#21495#12398#12524#12473#12395#39131#12406
-      ShortCut = 16455
-      OnExecute = JumpToNumOfResActionExecute
-      OnUpdate = JumpToNumOfResActionUpdate
-    end
-    object FavoriteTreeViewCollapseAction: TAction
-      Category = #12362#27671#12395#20837#12426
-      Caption = #12362#27671#12395#20837#12426#12484#12522#12540#12434#12377#12409#12390#38281#12376#12427
-      Hint = #12362#27671#12395#20837#12426#12484#12522#12540#12434#12377#12409#12390#38281#12376#12427
-      OnExecute = FavoriteTreeViewCollapseActionExecute
-    end
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68
@@ -7574,8 +7566,4 @@ object GikoForm: TGikoForm
       AutoCheck = True
     end
   end
-  object ListColumnPopupMenu: TPopupMenu
-    Left = 37
-    Top = 403
-  end
 end

--- a/Giko.pas
+++ b/Giko.pas
@@ -28,7 +28,6 @@ type
 	TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
 	TToolBarSettingSenderType = (tssNone, tssMain, tssList, tssBrowser);
 	TMinimizeType = (mtNone, mtMinimizing, mtMinimized);
-	TResizeType = (rtNone, rtResizing);
 
 	TBrowserRecord = class;
 
@@ -576,12 +575,10 @@ type
     ThreadRangeButton: TToolButton;
 	TabAutoSaveAction: TAction;
     TabAutoLoadAction: TAction;
-    ListColumnPopupMenu: TPopupMenu;
-    JumpToNumOfResAction: TAction;
-    FavoriteTreeViewCollapseAction: TAction;
 				procedure FormCreate(Sender: TObject);
 		procedure FormDestroy(Sender: TObject);
 		procedure CabinetPanelHide(Sender: TObject);
+		procedure FormClose(Sender: TObject; var Action: TCloseAction);
 		procedure ListViewData(Sender: TObject; Item: TListItem);
 		procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
 			const FindString: String; const FindPosition: TPoint;
@@ -809,6 +806,8 @@ type
 		procedure SelectComboBoxExit(Sender: TObject);
 		procedure SelectResActionExecute(Sender: TObject);
 		procedure SelectResActionUpdate(Sender: TObject);
+		procedure FormKeyUp(Sender: TObject; var Key: Word;
+			Shift: TShiftState);
 		procedure AllResActionExecute(Sender: TObject);
 		procedure AllResActionUpdate(Sender: TObject);
 		procedure ReloadClick(Sender: TObject);
@@ -924,13 +923,8 @@ type
     procedure EditNGActionExecute(Sender: TObject);
     procedure ThreadRangeActionUpdate(Sender: TObject);
     procedure ThreadRangeActionExecute(Sender: TObject);
-		procedure TabAutoSaveActionExecute(Sender: TObject);
+    procedure TabAutoSaveActionExecute(Sender: TObject);
     procedure TabAutoLoadActionExecute(Sender: TObject);
-		procedure ListViewColumnRightClick(Sender: TObject;
-      Column: TListColumn; Point: TPoint);
-    procedure JumpToNumOfResActionExecute(Sender: TObject);
-    procedure JumpToNumOfResActionUpdate(Sender: TObject);
-    procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
 	private
 		{ Private éŒ¾ }
         //RoundList : TRoundList;
@@ -978,24 +972,22 @@ type
 
 		FDropSpaceNode: TTreeNode;
 
-		FDragTime : Cardinal;								///< ƒŠƒ“ƒN‚ÌD&D—p
-		FDragButton : TToolButton;					///< ƒŠƒ“ƒN‚ÌD&D—p‚ÉDrag‚µ‚Ä‚éButton•Û‘¶
-		FDragWFirst : Boolean;							///< WebTab‚ÌD&D—p
+		FDragTime : Cardinal;	//ƒŠƒ“ƒN‚ÌD&D—p
+		FDragButton : TToolButton;	//ƒŠƒ“ƒN‚ÌD&D—p‚ÉDrag‚µ‚Ä‚éButton•Û‘¶
+		FDragWFirst : Boolean;	//WebTab‚ÌD&D—p
 
-		FListViewBackGroundColor : TColor;	///< ListView‚ÌBackGroundColor
-		FUseOddResOddColor : Boolean; 			///< Žæ“¾ƒŒƒX”‚ƃXƒŒƒbƒh‚̃ŒƒX”‚ªˆá‚Á‚½‚Æ‚«‚É‘¼‚̐F‚Å•\Ž¦
-		FOddColor : TColor;					 				///< ‚»‚̐F
+		FListViewBackGroundColor : TColor; //ListView‚ÌBackGroundColor
+		FUseOddResOddColor : Boolean; //Žæ“¾ƒŒƒX”‚ƃXƒŒƒbƒh‚̃ŒƒX”‚ªˆá‚Á‚½‚Æ‚«‚É‘¼‚̐F‚Å•\Ž¦
+		FOddColor : TColor;					 //‚»‚̐F
 
-		FSelectResWord	: string;						///< ƒŒƒXižƒ[ƒh
-		FIsIgnoreResize	: TResizeType;			///< ƒŠƒTƒCƒYƒCƒxƒ“ƒg‚𖳎‹‚·‚é‚©‚Ç‚¤‚©
-		FIsMinimize			: TMinimizeType;		///< Å¬‰»‚µ‚Ä‚¢‚éÅ’†‚©
-		FOldFormWidth		: Integer;					///< ’¼‘O‚̃EƒBƒ“ƒhƒE‚Ì•
-		FToolBarSettingSender : TToolBarSettingSenderType;	///< ƒc[ƒ‹ƒo[Ý’è‚ðƒNƒŠƒbƒN‚µ‚½ƒN[ƒ‹ƒo[
-		FMouseDownPos		: TPoint; 					///< ƒuƒ‰ƒEƒUƒ^ƒu‚Ń}ƒEƒX‚ð‰Ÿ‚µ‚½‚Æ‚«‚̍À•W
+		FSelectResWord	: string;					// ƒŒƒXižƒ[ƒh
+		FIsIgnoreResize	: Boolean;				// ƒŠƒTƒCƒYƒCƒxƒ“ƒg‚𖳎‹‚·‚é‚©‚Ç‚¤‚©
+		FIsMinimize			: TMinimizeType;	// Å¬‰»‚µ‚Ä‚¢‚éÅ’†‚©
+		FOldFormWidth		: Integer;				// ’¼‘O‚̃EƒBƒ“ƒhƒE‚Ì•
+		FToolBarSettingSender : TToolBarSettingSenderType;	// ƒc[ƒ‹ƒo[Ý’è‚ðƒNƒŠƒbƒN‚µ‚½ƒN[ƒ‹ƒo[
+		FMouseDownPos		: TPoint; 				// ƒuƒ‰ƒEƒUƒ^ƒu‚Ń}ƒEƒX‚ð‰Ÿ‚µ‚½‚Æ‚«‚̍À•W
 		FBrowsers: TList;
-		FResRangeMenuSelect	: Longint;			///< ResRangeButton ‚Å‘I‘ð‚³‚ê‚Ä‚¢‚鍀–Ú (ƒtƒH[ƒ}ƒbƒg‚Í ResRange ŒÝŠ·)
-		FStartUp : Boolean;
-		FIsHandledWheel	: Boolean;			///< Šù‚Ɏ󂯎æ‚Á‚½ WM_MOUSEWHEEL ‚©‚Ç‚¤‚©
+		FResRangeMenuSelect	: Longint;		///< ResRangeButton ‚Å‘I‘ð‚³‚ê‚Ä‚¢‚鍀–Ú (ƒtƒH[ƒ}ƒbƒg‚Í ResRange ŒÝŠ·)
 		procedure SetBoardTreeNode( inBBS : TBBS );
 		function SetCategoryListItem(ABBS2ch: TBBS): Integer;
 		function SetBoardListItem(Category: TCategory): Integer;
@@ -1008,7 +1000,7 @@ type
 		procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
 		procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
 
-
+		procedure SetActiveList(Obj: TObject);
 		procedure ListClick;
 		procedure ListDoubleClick(Shift: TShiftState);
 		procedure BrowserMovement(const AName: string); overload;
@@ -1059,41 +1051,37 @@ type
 		procedure BBSMenuItemOnClick( Sender : TObject );
 		//
 		procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
-		/// CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
+		// CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
 		procedure	SaveCoolBarSettings;
-		/// CoolBar ‚̐ݒè‚ð•Ï”‚©‚ç•œŒ³
+		// CoolBar ‚̐ݒè‚ð•Ï”‚©‚ç•œŒ³
 		procedure	LoadCoolBarSettings;
-		/// Å¬‰»‚³‚ê‚é
+		// Å¬‰»‚³‚ê‚é
 		procedure OnMinimize;
-		/// Å¬‰»‚³‚ꂽ
+		// Å¬‰»‚³‚ꂽ
 		procedure OnMinimized;
-		/// CoolBar ‚ªƒTƒCƒY•ÏX‚³‚ꂽ
+		// CoolBar ‚ªƒTƒCƒY•ÏX‚³‚ꂽ
 		procedure	CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
-		/// TreeView ‚ªƒNƒŠƒbƒN‚³‚ꂽ
+		// TreeView ‚ªƒNƒŠƒbƒN‚³‚ꂽ
 		procedure TreeClick( Node : TTreeNode );
-		/// TreeView ‚ªƒ_ƒuƒ‹ƒNƒŠƒbƒN‚³‚ꂽ
+		// TreeView ‚ªƒ_ƒuƒ‹ƒNƒŠƒbƒN‚³‚ꂽ
 		procedure TreeDoubleClick( Node : TTreeNode );
-		/// ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒ‹[ƒv‚ð‰¡Žæ‚肵‚Ü‚·
+		// ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒ‹[ƒv‚ð‰¡Žæ‚肵‚Ü‚·
 		procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
-		/// ƒuƒ‰ƒEƒU‚̃L[ƒ_ƒEƒ“ƒCƒxƒ“ƒg
-		/// ƒCƒxƒ“ƒg‚ðŽæ‚舵‚Á‚½ê‡‚Í True ‚ð•Ô‚·
+		// ƒuƒ‰ƒEƒU‚̃L[ƒ_ƒEƒ“ƒCƒxƒ“ƒg
+		// ƒCƒxƒ“ƒg‚ðŽæ‚舵‚Á‚½ê‡‚Í True ‚ð•Ô‚·
 		function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
-		/// ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV
+		// ŠeŠ‚É‚ ‚éƒLƒƒƒrƒlƒbƒgE BBS ƒƒjƒ…[‚ðƒZƒbƒg^XV
 		procedure SetBBSMenu;
 		function WebBrowserClick(Sender: TObject): WordBool;
 		procedure SkinorCSSFilesCopy(path: string);
-		/// ƒ^ƒuŽæ“¾
+		// ƒ^ƒuŽæ“¾
 		function GetTabURLs(AStringList: TStringList) : Boolean;
-		/// ƒ^ƒu•Û‘¶
+		// ƒ^ƒu•Û‘¶
 		function SaveTabURLs : Boolean;
-		/// ƒ^ƒu“ǂݏo‚µ
+		// ƒ^ƒu“ǂݏo‚µ
 		function LoadTabURLs : Boolean;
-		/// ƒoƒ“ƒh•‚ðÄŒvŽZEÄÝ’è‚·‚é
+		// ƒoƒ“ƒh•‚ðÄŒvŽZEÄÝ’è‚·‚é
 		procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
-		/// ListView ‚Ì Column ‚ð^‚̃Jƒ‰ƒ€‚É•ÏŠ·
-		function	ActiveListTrueColumn( column : TListColumn ) : TListColumn;
-		/// ListColumnPopupMenu ƒAƒCƒeƒ€‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
-		procedure	ListColumnPopupMenuOnClick( Sender : TObject );
 	protected
 		procedure CreateParams(var Params: TCreateParams); override;
 		procedure WndProc(var Message: TMessage); override;
@@ -1105,11 +1093,8 @@ type
 		{ Public éŒ¾ }
 //		FDownload: TDownload;
 		FControlThread: TThreadControl;
-		procedure MoveToURL(const inURL: string);
-		function InsertBrowserTab(
-			ThreadItem	: TThreadItem;
-			ActiveTab		: Boolean = True
-		) : TBrowserRecord;
+		procedure MoveToURL(URL: string);
+		procedure InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
 		procedure ReloadBBS;
 		function GetHttpState: Boolean;
 		procedure SetEnabledCloseButton(Enabled: Boolean);
@@ -1129,7 +1114,7 @@ type
 		function GetActiveContent: TThreadItem;
 		function GetActiveList: TObject;
 
-
+		property ActiveList: TObject read GetActiveList write SetActiveList;
 //		property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
 
 		procedure SetListViewType(AViewType: TGikoViewType); overload;
@@ -1153,19 +1138,16 @@ type
 //		property Favorite: TFavorite read FFavorite write FFavorite;
 		procedure SetToolBarPopup;
 		procedure ShowFavoriteAddDialog( Item : TObject );
-		procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
-		procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
+        procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
+        procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
 		property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
 		property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
 		property OddColor : TColor read FOddColor write FOddColor;
 
 		function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
 		procedure OnPlugInMenuItem( Sender : TObject );
-		procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
-		/// ListView ‚̃Jƒ‰ƒ€•‚¨‚æ‚шʒu‚Ì•Û‘¶ KuroutSetting‚©‚ç‚æ‚Ñ‚¾‚µ‚½‚¢‚Ì‚Å
-		procedure ActiveListColumnSave;
-		procedure SetActiveList(Obj: TObject);
-		property ActiveList: TObject read GetActiveList write SetActiveList;
+                procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
+
 	published
 		property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
 	end;
@@ -1194,18 +1176,18 @@ type
 	TBrowserRecord = class( TObject )
 	private
 		FBrowser	: TWebBrowser;
-		FEvent: THTMLDocumentEventSink;	//!< ƒuƒ‰ƒEƒUƒhƒLƒ…ƒƒ“ƒgƒCƒxƒ“ƒg
+		FEvent: THTMLDocumentEventSink;//ƒuƒ‰ƒEƒUƒhƒLƒ…ƒƒ“ƒgƒCƒxƒ“ƒg
 		FThread		: TThreadItem;
 		FLastSize	: Integer;
 		FRepaint	: Boolean;
-		FMovement	: string;							//!< ƒXƒNƒ[ƒ‹æƒAƒ“ƒJ[
+ //		FOnlyHundred: Boolean;
 	public
 		destructor	Destroy; override;
 		property	Browser	: TWebBrowser	read FBrowser	write FBrowser;
 		property	Thread	: TThreadItem	read FThread	write FThread;
 		property	LastSize	: Integer		read FLastSize	write FLastSize;
 		property	Repaint		: Boolean		read FRepaint	write FRepaint;
-		property	Movement	: string		read FMovement	write FMovement;
+//		property	OnlyHundred : Boolean		read FOnlyHundred write FOnlyHundred;
 	end;
 
 var
@@ -1266,7 +1248,6 @@ const
 	USER_RESIZED            = WM_USER + 2001;
 	USER_MINIMIZED					= WM_USER + 2002;
 	USER_SETLINKBAR					= WM_USER + 2003;
-	USER_DOCUMENTCOMPLETE		= WM_USER + 2004;	///< wParam : TWebBrowser
 	SELECTTIME_INTERBAL				= 110;
 
 	BROWSER_COUNT		= 5;	//ƒuƒ‰ƒEƒU‚̐”
@@ -1304,12 +1285,11 @@ begin
 	Writeln(' I—¹Žž‚́AƒMƒRƒiƒrƒEƒBƒ“ƒhƒE‚ð•Â‚¶‚Ä‚­‚¾‚³‚¢');
 	Writeln('============================================================');
 {$ENDIF}
-	FStartUp := false;
 	Application.OnDeactivate := AppFormDeactivate;
 	Self.OnDeactivate := AppFormDeactivate;
 	Application.HookMainWindow(Hook);
 	Application.OnMessage := HandleAppMessage; //‚È‚ñ‚©–³‚­‚Ä‚à‘åä•v‚É‚È‚Á‚½@by@‚à‚¶‚ã
-//	Self.DoubleBuffered := true;
+	Self.DoubleBuffered := true;
 	FTreeType := gttNone;
 
 	FSearchDialog := nil;
@@ -1324,14 +1304,13 @@ begin
 		newBrowser.Align := alNone;
 		newBrowser.Left	:= 0;
 		newBrowser.Top	:= 0;
-		newBrowser.StatusBar	:= false;
-		newBrowser.MenuBar 		:= false;
-		newBrowser.AddressBar 	:= false;
+        //newBrowser.DoubleBuffered := true;
 		newBrowser.OnDocumentComplete	:= BrowserDocumentComplete;
 		newBrowser.OnBeforeNavigate2 	:= BrowserBeforeNavigate2;
 		newBrowser.OnEnter				:= BrowserEnter;
 		newBrowser.OnNewWindow2			:= BrowserNewWindow2;
 		newBrowser.OnStatusTextChange	:= BrowserStatusTextChange;
+		//newBrowser.OnTitleChange		:= BrowserTitleChange;
 		newBrowser.Navigate(BLANK_HTML);
 		ShowWindow(newBrowser.Handle, SW_HIDE);
 
@@ -1340,7 +1319,7 @@ begin
 	ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
 
 	// ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô
-	FIsIgnoreResize := rtResizing;
+	FIsIgnoreResize := True;
 
 	//Žè‚̃J[ƒ\ƒ‹
 	Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
@@ -1349,8 +1328,38 @@ begin
 	//ƒAƒhƒŒƒX—š—ð“ǂݍž‚Ý
 	AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
 
+	// ŠO•””ƒvƒ‰ƒOƒCƒ“‚ðƒ[ƒh(ReadBoardFile, LoadHistory ‚æ‚èæ‚ɍs‚¤‚±‚Æ)
+	InitializeBoardPlugIns;
+
 	EnabledCloseButton := True;
 
+
+	//„‰ñƒf[ƒ^“ǂݍž‚Ý
+	RoundList := TRoundList.Create;
+	RoundList.LoadRoundBoardFile;
+
+	// ƒ{[ƒhƒtƒ@ƒCƒ‹—ñ‹“(ReadFavorite ‚æ‚èæ‚ɍs‚¤‚±‚Æ)
+	GikoSys.ListBoardFile;
+
+	RoundList.LoadRoundThreadFile;
+
+	if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
+		GikoSys.ListBoardFile;
+
+	// ƒƒjƒ…[‚ɒljÁ
+	SetBBSMenu;
+
+	// ƒqƒXƒgƒŠƒŠƒXƒg(LoadHistory ‚æ‚è‚àæ‚ɍs‚¤‚±‚Æ)
+	FHistoryList := TList.Create;
+
+	// —š—ð“ǂݍž‚Ý
+	LoadHistory;
+
+	//‚¨‹C‚É“ü‚è“ǂݍž‚Ý
+//	FFavorite := TFavorite.Create(FavoriteTreeView);
+	FavoriteDM.SetFavTreeView(FavoriteTreeView);
+	FavoriteDM.ReadFavorite;
+
 	//ƒŠƒXƒgƒXƒ^ƒCƒ‹
 	ListView.ViewStyle := GikoSys.Setting.ListStyle;
 
@@ -1394,8 +1403,8 @@ begin
 		ListView.Font.Name := GikoSys.Setting.ListFontName;
 		ListView.Font.Size := GikoSys.Setting.ListFontSize;
 		ListView.Font.Color := GikoSys.Setting.ListFontColor;
-		ListViewBackGroundColor := clWhite;												// ƒfƒtƒHƒ‹ƒg‚ɐݒ肵‚½‚Ì‚¿
-		ListViewBackGroundColor := GikoSys.Setting.ListBackColor;	// ƒ†[ƒU’è‹`‚ɕύX
+		//ListView.Color := GikoSys.Setting.ListBackColor;
+		ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
 		FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
 		FOddColor := GikoSys.Setting.OddColor;
 
@@ -1463,35 +1472,6 @@ begin
 	FBrowserSizeHeight := GikoSys.Setting.ListHeight;
 	FBrowserSizeWidth := GikoSys.Setting.ListWidth;
 
-	// ŠO•””ƒvƒ‰ƒOƒCƒ“‚ðƒ[ƒh(ReadBoardFile, LoadHistory ‚æ‚èæ‚ɍs‚¤‚±‚Æ)
-	InitializeBoardPlugIns;
-
-	//„‰ñƒf[ƒ^“ǂݍž‚Ý
-	RoundList := TRoundList.Create;
-	RoundList.LoadRoundBoardFile;
-
-	// ƒ{[ƒhƒtƒ@ƒCƒ‹—ñ‹“(ReadFavorite ‚æ‚èæ‚ɍs‚¤‚±‚Æ)
-	GikoSys.ListBoardFile;
-
-	RoundList.LoadRoundThreadFile;
-
-	if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
-		GikoSys.ListBoardFile;
-
-	// ƒƒjƒ…[‚ɒljÁ
-	SetBBSMenu;
-
-	// ƒqƒXƒgƒŠƒŠƒXƒg(LoadHistory ‚æ‚è‚àæ‚ɍs‚¤‚±‚Æ)
-	FHistoryList := TList.Create;
-
-	// —š—ð“ǂݍž‚Ý
-	LoadHistory;
-
-	//‚¨‹C‚É“ü‚è“ǂݍž‚Ý
-//	FFavorite := TFavorite.Create(FavoriteTreeView);
-	FavoriteDM.SetFavTreeView(FavoriteTreeView);
-	FavoriteDM.ReadFavorite;
-
 	ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
 	ArrangeAction.Execute;
 
@@ -1688,7 +1668,7 @@ begin
 			if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
 				ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
 			// ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô 2
-			FIsIgnoreResize := rtResizing;
+			FIsIgnoreResize := True;
 			CabinetBBSAction.Execute;
 		end;
 	end else begin
@@ -1697,7 +1677,7 @@ begin
 	end;
 
 	// ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô 3
-	FIsIgnoreResize := rtResizing;
+	FIsIgnoreResize := True;
 
 	//ƒI[ƒgƒƒOƒCƒ“
 	if GikoSys.Setting.AutoLogin then
@@ -1721,7 +1701,7 @@ begin
 	//Samba24‚̃tƒ@ƒCƒ‹ƒ`ƒFƒbƒN
 	GikoSys.SambaFileExists();
 
-        //‚É‚¿‚á‚ñŒêƒtƒ@ƒCƒ‹“ǂݏo‚µ
+        //ƒ^ƒuŽ©“®“ǂݍž‚Ý (AV”­¶‚Ì‚½‚߈ꎞ••ˆó)
 end;
 
 // CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
@@ -1731,7 +1711,7 @@ var
 	CoolSet	: TCoolSet;
 begin
 
-	if IsIconic( Handle ) or (FIsIgnoreResize <> rtNone) then
+	if IsIconic( Handle ) or FIsIgnoreResize then
 		Exit;
 
 	//ƒN[ƒ‹ƒo[•Û‘¶(Main)
@@ -1772,7 +1752,7 @@ begin
 		for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
 			CoolSet := GikoSys.Setting.MainCoolSet[i];
 			if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
-				FIsIgnoreResize := rtNone;
+				FIsIgnoreResize := False;
 				SaveCoolBarSettings;
 				Exit;
 			end;
@@ -1791,7 +1771,7 @@ begin
 		for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
 			CoolSet := GikoSys.Setting.ListCoolSet[i];
 			if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
-				FIsIgnoreResize := rtNone;
+				FIsIgnoreResize := False;
 				SaveCoolBarSettings;
 				Exit;
 			end;
@@ -1810,7 +1790,7 @@ begin
  		for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
 			CoolSet := GikoSys.Setting.BrowserCoolSet[i];
 			if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
-				FIsIgnoreResize := rtNone;
+				FIsIgnoreResize := False;
 				SaveCoolBarSettings;
 				Exit;
 			end;
@@ -1829,70 +1809,59 @@ end;
 //
 procedure TGikoForm.FormShow(Sender: TObject);
 begin
-	if not FStartUp then begin
-		ShowWindow(Application.Handle, SW_HIDE);
-
-		//FormCreate‚Å‚â‚é‚ƉŽ‹Ý’肪”½‰f‚³‚ê‚È‚¢ê‡‚ª‚ ‚é‚Ì‚ÅFormShow‚Å‚â‚邱‚Æ‚É‚µ‚½
-		//ƒc[ƒ‹ƒo[•\Ž¦
-		StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
-		StdToolBarVisibleActionExecute( nil );
-		AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
-		AddressBarVisibleActionExecute( nil );
-		LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
-		LinkBarVisibleActionExecute( nil );
-		ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
-		ListToolBarVisibleActionExecute( nil );
-		ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
-		ListNameBarVisibleActionExecute( nil );
-		BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
-		BrowserToolBarVisibleActionExecute( nil );
-		BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
-		BrowserNameBarVisibleActionExecute( nil );
-
-		//ƒuƒ‰ƒEƒUƒ^ƒu
-		BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
-		BrowserTabVisibleActionExecute(nil);
-
-		if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
-			BrowserTabTopAction.Checked := True;
-			BrowserTabTopActionExecute(nil);
-		end else begin
-			BrowserTabBottomAction.Checked := True;
-			BrowserTabBottomActionExecute(nil);
-		end;
-
-		if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
-			BrowserTabTabStyleAction.Checked := True;
-			BrowserTabTabStyleActionExecute(nil);
-		end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
-			BrowserTabButtonStyleAction.Checked := True;
-			BrowserTabButtonStyleActionExecute(nil);
-		end else begin
-			BrowserTabFlatStyleAction.Checked := True;
-			BrowserTabFlatStyleActionExecute(nil);
-		end;
-
-		// ListView ‚̃wƒbƒ_ƒhƒ‰ƒbƒO
-//		ListView.FullDrag := True;
+	ShowWindow(Application.Handle, SW_HIDE);
+
+	//FormCreate‚Å‚â‚é‚ƉŽ‹Ý’肪”½‰f‚³‚ê‚È‚¢ê‡‚ª‚ ‚é‚Ì‚ÅFormShow‚Å‚â‚邱‚Æ‚É‚µ‚½
+	//ƒc[ƒ‹ƒo[•\Ž¦
+	StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
+	StdToolBarVisibleActionExecute( nil );
+	AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
+	AddressBarVisibleActionExecute( nil );
+	LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
+	LinkBarVisibleActionExecute( nil );
+	ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
+	ListToolBarVisibleActionExecute( nil );
+	ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
+	ListNameBarVisibleActionExecute( nil );
+	BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
+	BrowserToolBarVisibleActionExecute( nil );
+	BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
+	BrowserNameBarVisibleActionExecute( nil );
+
+	//ƒuƒ‰ƒEƒUƒ^ƒu
+	BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
+	BrowserTabVisibleActionExecute(nil);
+
+	if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
+		BrowserTabTopAction.Checked := True;
+		BrowserTabTopActionExecute(nil);
+	end else begin
+		BrowserTabBottomAction.Checked := True;
+		BrowserTabBottomActionExecute(nil);
+	end;
 
-		// CoolBar •œŒ³
-		LoadCoolBarSettings;
+	if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
+		BrowserTabTabStyleAction.Checked := True;
+		BrowserTabTabStyleActionExecute(nil);
+	end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
+		BrowserTabButtonStyleAction.Checked := True;
+		BrowserTabButtonStyleActionExecute(nil);
+	end else begin
+		BrowserTabFlatStyleAction.Checked := True;
+		BrowserTabFlatStyleActionExecute(nil);
+	end;
 
-		FIsIgnoreResize := rtNone;
+	// CoolBar •œŒ³
+	LoadCoolBarSettings;
 
-		//TabAutoLoad
-		//FormCrete‚©‚çˆÚ“®B
-		if GikoSys.Setting.TabAutoLoadSave then begin
-			TabAutoLoadAction.Execute;
-		end;
-                //‚É‚¿‚á‚ñŒêˆÄ“àƒTƒ|[ƒg‹@”\
-                if GikoSys.Setting.GengoSupport then begin
-                //—\’è’n
-                //TestŒü‚¯
-                end;
+	FIsIgnoreResize := False;
 
-		FStartUp := true;
+	//TabAutoLoad
+	//FormCrete‚©‚çˆÚ“®B
+	if GikoSys.Setting.TabAutoLoadSave then begin
+		TabAutoLoadAction.Execute;
 	end;
+
 end;
 
 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -1924,7 +1893,17 @@ begin
 //	Application.OnDeactivate := nil;
 //	Self.OnDeactivate := nil;
 	try
-		ActiveListColumnSave;
+		//column•
+		if GetActiveList is TBBS then begin
+			for i := 0 to ListView.Columns.Count - 1 do
+				GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
+		end else if GetActiveList is TCategory then begin
+			for i := 0 to ListView.Columns.Count - 1 do
+				GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
+		end else if GetActiveList is TBoard then begin
+			for i := 0 to ListView.Columns.Count - 1 do
+				GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
+		end;
 	except
 	end;
 	try
@@ -2101,6 +2080,10 @@ begin
 
 end;
 
+//ƒtƒH[ƒ€ƒNƒ[ƒY
+procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+end;
 //ƒLƒƒƒrƒlƒbƒg~ƒ{ƒ^ƒ“ƒNƒŠƒbƒN
 procedure TGikoForm.CabinetPanelHide(Sender: TObject);
 begin
@@ -2238,9 +2221,9 @@ begin
 		Root.ImageIndex			:= ITEM_ICON_2CH1;
 		Root.SelectedIndex	:= ITEM_ICON_2CH2;
 		Root.Data						:= inBBS;
-		for i := inBBS.Count - 1 downto 0 do begin
+		for i := 0 to inBBS.Count - 1 do begin
 			Category := TCategory(inBBS.Items[i]);
-			CategoryNode := TreeView.Items.AddChildFirst(Root, Category.Title);
+			CategoryNode := TreeView.Items.AddChild(Root, Category.Title);
 			CategoryNode.Data := Category;
 			CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
 			CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
@@ -2253,10 +2236,10 @@ begin
 				Category.CustomSort(BoardSortProc);
 			end;
 
-			for j := Category.Count - 1 downto 0 do begin
+			for j := 0 to Category.Count - 1 do begin
 				Board := TBoard(Category.Items[j]);
 				Board.BeginUpdate;
-				BoardNode := TreeView.Items.AddChildFirst(CategoryNode, Board.Title);
+				BoardNode := TreeView.Items.AddChild(CategoryNode, Board.Title);
 				BoardNode.Data := Board;
 				//if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then begin
 				if not Board.IsLogFile then begin
@@ -2290,37 +2273,22 @@ begin
 end;
 
 function TGikoForm.SetCategoryListItem(ABBS2ch: TBBS): Integer;
+const
+	COLUMN: array[0..0] of string = ('ƒJƒeƒSƒŠ–¼');
 var
-	TitleColumn	: TListColumn;
-	ListColumn	: TListColumn;
-	i, id, idx	: Integer;
+	ListColumn: TListColumn;
+	i: Integer;
 begin
 	ListView.Items.BeginUpdate;
 	try
 		Screen.Cursor := crHourGlass;
 
 		ListView.Columns.Clear;
-		TitleColumn := ListView.Columns.Add;
-		TitleColumn.Caption := GikoBBSColumnCaption[ Ord( gbbscTitle ) ];
-		TitleColumn.Width := GikoSys.Setting.BBSColumnWidth[ Ord( gbbscTitle ) ];
-		idx := 0;
-		for i := 0 to GikoSys.Setting.BBSColumnOrder.Count - 1 do begin
-			if GikoSys.Setting.BBSColumnOrder[ i ] = gbbscTitle then begin
-				TitleColumn.Tag := i;
-				idx := i;
-			end else begin
-				id := Ord( GikoSys.Setting.BBSColumnOrder[ i ] );
-				if (Integer( Low( TGikoBBSColumnID ) ) <= id) and
-					(id <= Integer( High( TGikoBBSColumnID ) )) then begin
-					ListColumn := ListView.Columns.Add;
-	//					ListColumn.Tag := id;
-						ListColumn.Tag := i;
-					ListColumn.Caption := GikoBBSColumnCaption[ id ];
-					ListColumn.Width := GikoSys.Setting.BBSColumnWidth[ id ];
-				end;
-			end;
+		for i := 0 to Length(COLUMN) - 1 do begin
+			ListColumn := ListView.Columns.Add;
+			ListColumn.Caption := COLUMN[i];
+			ListColumn.Width := GikoSys.Setting.BBSColumnWidth[i];
 		end;
-		TitleColumn.Index := idx;
 
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
@@ -2341,11 +2309,8 @@ begin
 
 		FSortIndex := GikoSys.Setting.BBSSortIndex;
 		FSortOrder := GikoSys.Setting.BBSSortOrder;
-		for i := ListView.Columns.Count - 1 downto 0 do begin
-			idx := ListView.Column[ i ].Tag;
-			if FSortIndex = Ord( GikoSys.Setting.BBSColumnOrder[ idx ] ) then
-				ListViewSort( nil, ListView.Column[ i ] );
-		end;
+		if (FSortIndex >= 0) and (FSortIndex < Length(COLUMN)) then
+			ListViewSort(nil, ListView.Column[FSortIndex]);
 
 		Result := ABBS2ch.Count;
 	finally
@@ -2355,37 +2320,22 @@ begin
 end;
 
 function TGikoForm.SetBoardListItem(Category: TCategory): Integer;
+const
+	COLUMN: array[0..2] of string = ('”–¼', '„‰ñ—\–ñ', 'Žæ“¾“úŽž');
 var
-	TitleColumn	: TListColumn;
-	ListColumn	: TListColumn;
-	i, id, idx	: Integer;
+	ListColumn: TListColumn;
+	i: Integer;
 begin
 	ListView.Items.BeginUpdate;
 	try
 		Screen.Cursor := crHourGlass;
 
 		ListView.Columns.Clear;
-		TitleColumn := ListView.Columns.Add;
-		TitleColumn.Caption := GikoCategoryColumnCaption[ Ord( gccTitle ) ];
-		TitleColumn.Width := GikoSys.Setting.CategoryColumnWidth[ Ord( gccTitle ) ];
-		idx := 0;
-		for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
-			if GikoSys.Setting.CategoryColumnOrder[ i ] = gccTitle then begin
-				TitleColumn.Tag := i;
-				idx := i;
-			end else begin
-				id := Ord( GikoSys.Setting.CategoryColumnOrder[ i ] );
-				if (Integer( Low( TGikoCategoryColumnID ) ) <= id) and
-					(id <= Integer( High( TGikoCategoryColumnID ) )) then begin
-					ListColumn := ListView.Columns.Add;
-//						ListColumn.Tag := id;
-					ListColumn.Tag := i;
-					ListColumn.Caption := GikoCategoryColumnCaption[ id ];
-					ListColumn.Width := GikoSys.Setting.CategoryColumnWidth[ id ];
-				end;
-			end;
+		for i := 0 to Length(COLUMN) - 1 do begin
+			ListColumn := ListView.Columns.Add;
+			ListColumn.Caption := COLUMN[i];
+			ListColumn.Width := GikoSys.Setting.CategoryColumnWidth[i];
 		end;
-		TitleColumn.Index := idx;
 
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
@@ -2406,11 +2356,8 @@ begin
 
 		FSortIndex := GikoSys.Setting.CategorySortIndex;
 		FSortOrder := GikoSys.Setting.CategorySortOrder;
-		for i := ListView.Columns.Count - 1 downto 0 do begin
-			idx := ListView.Column[ i ].Tag;
-			if FSortIndex = Ord( GikoSys.Setting.CategoryColumnOrder[ idx ] ) then
-				ListViewSort( nil, ListView.Column[ i ] );
-		end;
+		if (FSortIndex >= 0) and (FSortIndex < Length(COLUMN)) then
+			ListViewSort(nil, ListView.Column[FSortIndex]);
 
 		Result := Category.Count;
 	finally
@@ -2420,45 +2367,39 @@ begin
 end;
 
 function TGikoForm.SetThreadListItem(Board: TBoard): Integer;
-var
-	TitleColumn	: TListColumn;
-	ListColumn	: TListColumn;
-	i, id, idx	: Integer;
+const
+	COLUMN: array[0..7] of string = ('ƒXƒŒƒbƒh–¼', 'ƒJƒEƒ“ƒg', 'Žæ“¾', 'V’…',
+																	 '–¢“Ç', '„‰ñ—\–ñ', 'Žæ“¾“úŽž', 'ƒXƒŒì¬“úŽž');
+	COLUMN_NONACQUIREDCOUNT: string = '–¢Žæ“¾';
+	COLUMN_ALIGNMENT: array[0..7] of TAlignment = (taLeftJustify, taRightJustify,
+																								 taRightJustify, taRightJustify,
+																								 taRightJustify, taLeftJustify,
+																								 taLeftJustify, taLeftJustify);
+	//No, ƒXƒŒƒbƒh–¼, ƒJƒEƒ“ƒg, „‰ñ—\–ñ, Žæ“¾“úŽž
+var
+	ListColumn: TListColumn;
+	i: Integer;
 begin
 	ListView.Items.BeginUpdate;
 	try
 		Screen.Cursor := crHourGlass;
 
-{*
 		// ƒ`ƒ‰‚‚«–hŽ~‚Ì‚½‚߁A•ÏX‚³‚ê‚Ä‚¢‚éê‡‚Ì‚Ý
 		// ¦–¼Ì‚͈Ⴄ‚ªƒJƒ‰ƒ€”‚ª“¯‚¶A‚Æ‚¢‚Á‚½ê‡‚ɑΏˆ‚Å‚«‚È‚¢‚Ì‚Å’ˆÓ
-		if ListView.Columns.Count <> GikoSys.Setting.BoardColumnOrder.Count then
-*}
+		if ListView.Columns.Count <> (High( COLUMN ) - Low( COLUMN ) + 1) then
 		begin
 			ListView.Columns.Clear;
-			TitleColumn := ListView.Columns.Add;
-			TitleColumn.Caption := GikoBoardColumnCaption[ Ord( gbcTitle ) ];
-			TitleColumn.Width := GikoSys.Setting.BoardColumnWidth[ Ord( gbcTitle ) ];
-			idx := 0;
-			for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
-				if GikoSys.Setting.BoardColumnOrder[ i ] = gbcTitle then begin
-					TitleColumn.Tag := i;
-					idx := i;
-				end else begin
-					id := Ord( GikoSys.Setting.BoardColumnOrder[ i ] );
-					if (Integer( Low( TGikoBoardColumnID ) ) <= id) and
-						(id <= Integer( High( TGikoBoardColumnID ) )) then begin
-						ListColumn := ListView.Columns.Add;
-						ListColumn.Caption := GikoBoardColumnCaption[ id ];
-	//					ListColumn.Tag := id;
-						ListColumn.Tag := i;
-						ListColumn.Width := GikoSys.Setting.BoardColumnWidth[ id ];
-						ListColumn.Alignment := GikoBoardColumnAlignment[ id ];
-					end;
-				end;
+			for i := 0 to Length(COLUMN) - 1 do begin
+				ListColumn := ListView.Columns.Add;
+				ListColumn.Caption := COLUMN[i];
+				ListColumn.Width := GikoSys.Setting.BoardColumnWidth[i];
+				ListColumn.Alignment := COLUMN_ALIGNMENT[i];
 			end;
-			TitleColumn.Index := idx;
 		end;
+		if GikoSys.Setting.NonAcquiredCount then
+			ListView.Columns[2].Caption := COLUMN_NONACQUIREDCOUNT
+		else
+			ListView.Columns[2].Caption := COLUMN[2];
 
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
@@ -2476,11 +2417,8 @@ begin
 
 		FSortIndex := GikoSys.Setting.BoardSortIndex;
 		FSortOrder := GikoSys.Setting.BoardSortOrder;
-		for i := ListView.Columns.Count - 1 downto 0 do begin
-			idx := ListView.Column[ i ].Tag;
-			if FSortIndex = Ord( GikoSys.Setting.BoardColumnOrder[ idx ] ) then
-				ListViewSort( nil, ListView.Column[ i ] );
-		end;
+		if (FSortIndex >= 0) and (FSortIndex < Length(COLUMN)) then
+			ListViewSort(nil, ListView.Column[FSortIndex]);
 
 		Result := Board.Count;
 	finally
@@ -2500,11 +2438,9 @@ var
 	ThreadItem: TThreadItem;
 	RepStr: string;
 		ActivListObj : TObject;
-	i, idx : Integer;
 begin
 	ActivListObj := ActiveList;
 	if ActivListObj is TBBS then begin
-		//===== ƒJƒeƒSƒŠƒŠƒXƒg =====
 		BBS := TBBS(ActivListObj);
 
 		ListView.StateImages := nil;
@@ -2527,10 +2463,7 @@ begin
 
 		Item.ImageIndex := ITEM_ICON_CATEGORY1;
 		Item.Data := Category;
-
 	end else if ActivListObj is TCategory then begin
-
-		//===== ”ƒŠƒXƒg =====
 		Category := TCategory(ActivListObj);
 
 		ListView.StateImages := nil;
@@ -2551,44 +2484,25 @@ begin
 		else
 			Item.Caption := Board.Title;
 
-		if Item.SubItems.Count <> ListView.Columns.Count then begin
+		if Item.SubItems.Count <> 2 then begin
 			Item.SubItems.Clear;
-			for i := GikoSys.Setting.CategoryColumnOrder.Count - 1 downto 1 do
-				Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
 		end;
 
 		Item.ImageIndex := ITEM_ICON_BOARD1;
 
-		idx := 0;
-		for i := 0 to ListView.Columns.Count - 1 do begin
-			if GikoSys.Setting.CategoryColumnOrder.Count <= i then
-				Break;
-//				case TGikoCategoryColumnID( ListView.Column[ i ].Tag ) of
-			case GikoSys.Setting.CategoryColumnOrder[ i ] of
-			gccTitle:
-				// Item.Caption ‚Í SubItems ‚ÉŠÜ‚Ü‚ê–³‚¢‚Ì‚Å
-				Dec( idx );
-
-			gccRoundName:
-				if Board.Round then
-					Item.SubItems[ idx ] := Board.RoundName	// '—\–ñ'
-				else
-					Item.SubItems[ idx ] := '';
-
-			gccLastModified:
-				if Board.RoundDate = ZERO_DATE then begin
-					Item.SubItems[ idx ] := '';
-				end else
-					Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', Board.RoundDate);
-			end;
-			Inc( idx );
-		end;
+		if Board.Round then
+			Item.SubItems[0] := Board.RoundName	// '—\–ñ'
+		else
+			Item.SubItems[0] := '';
 
+		if Board.RoundDate = ZERO_DATE then begin
+			Item.SubItems[1] := '';
+		end else
+			Item.SubItems[1] := FormatDateTime('yyyy/mm/dd hh:mm:ss', Board.RoundDate);
 		Item.Data := Board;
-
 	end else if ActivListObj is TBoard then begin
-
-		//===== ƒXƒŒƒŠƒXƒg =====
 		Board := TBoard(ActivListObj);
 
 		if GikoSys.Setting.ListIconVisible then
@@ -2634,10 +2548,15 @@ begin
 		RepStr := CustomStringReplace(RepStr, '&amp;', '&' );
 		//RepStr := StringReplace(RepStr, '—M', ',', [rfReplaceAll]);
 
-		if Item.SubItems.Count <> ListView.Columns.Count then begin
+		if Item.SubItems.Count <> 7 then begin
 			Item.SubItems.Clear;
-			for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
-				Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
+			Item.SubItems.Add('');
+            Item.SubItems.Add('');
 		end;
 
 		if ListNumberVisibleAction.Checked then
@@ -2653,105 +2572,49 @@ begin
 		end;
 
 		if ThreadItem.IsLogFile then begin
-			idx := 0;
-			for i := 0 to ListView.Columns.Count - 1 do begin
-			if GikoSys.Setting.BoardColumnOrder.Count <= i then
-				Break;
-//				case TGikoBoardColumnID( ListView.Column[ i ].Tag ) of
-				case GikoSys.Setting.BoardColumnOrder[ i ] of
-				gbcTitle:
-					// Item.Caption ‚Í SubItems ‚ÉŠÜ‚Ü‚ê–³‚¢‚Ì‚Å
-					Dec( idx );
-
-				gbcAllCount:
-					Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);
-
-				gbcLocalCount:
-					Item.SubItems[ idx ] := IntToStr(ThreadItem.Count);
-
-				gbcNonAcqCount:
-					Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount - ThreadItem.Count);
-
-				gbcNewCount:
-					if ThreadItem.NewResCount = 0 then
-						Item.SubItems[ idx ] := ''
-					else
-						Item.SubItems[ idx ] := IntToStr(ThreadItem.NewResCount);
-
-				gbcUnReadCount:
-					Item.SubItems[ idx ] := '';
-
-				gbcRoundName:
-					if ThreadItem.Round then
-						Item.SubItems[ idx ] := ThreadItem.RoundName
-					else
-						Item.SubItems[ idx ] := '';
-
-				gbcRoundDate://gbcLastModified:
-					if (ThreadItem.RoundDate = ZERO_DATE)  then begin
-						Item.SubItems[ idx ] := '';
-					end else
-						Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);
-
-				gbcCreated:
-					if ThreadItem.CreateDate = ZERO_DATE then begin
-						Item.SubItems[ idx ] := '';
-					end else
-						Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
-
-				gbcLastModified:
-					if (ThreadItem.LastModified = ZERO_DATE)  then begin
-						Item.SubItems[ idx ] := '';
-					end else
-						Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.LastModified);
-
-
-				end;
-				Inc( idx );
-			end;
-
-			if ThreadItem.NewArrival then
-				Item.ImageIndex := ITEM_ICON_THREADNEW1
+			Item.ImageIndex := ITEM_ICON_THREADLOG1;
+			Item.SubItems[0] := IntToStr(ThreadItem.AllResCount);
+			if GikoSys.Setting.NonAcquiredCount then
+				Item.SubItems[1] := IntToStr(ThreadItem.AllResCount - ThreadItem.Count)
 			else
-				Item.ImageIndex := ITEM_ICON_THREADLOG1;
-		end else begin
-			idx := 0;
-			for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
-//				case TGikoBoardColumnID( ListView.Column[ i ].Tag ) of
-				case GikoSys.Setting.BoardColumnOrder[ i ] of
-				gbcTitle:
-					// Item.Caption ‚Í SubItems ‚ÉŠÜ‚Ü‚ê–³‚¢‚Ì‚Å
-					Dec( idx );
-
-				gbcAllCount:
-					Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);
-
-				gbcRoundDate://gbcLastModified:
-					Item.SubItems[ idx ] := '';
-
-				gbcCreated:
-					if ThreadItem.CreateDate = ZERO_DATE then begin
-						Item.SubItems[ idx ] := '';
-					end else
-						Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
-
-				gbcLastModified:
-					Item.SubItems[ idx ] := '';
+				Item.SubItems[1] := IntToStr(ThreadItem.Count);
+			if ThreadItem.NewResCount = 0 then
+				Item.SubItems[2] := ''
+			else
+				Item.SubItems[2] := IntToStr(ThreadItem.NewResCount);
+			Item.SubItems[3] := '';
+			if ThreadItem.Round then
+				Item.SubItems[4] := ThreadItem.RoundName
+			else
+				Item.SubItems[4] := '';
+			if ThreadItem.RoundDate = ZERO_DATE then begin
+				Item.SubItems[5] := '';
+			end else
+				Item.SubItems[5] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);
+			if ThreadItem.NewArrival then
+				Item.ImageIndex := ITEM_ICON_THREADNEW1;
+            if ThreadItem.CreateDate = ZERO_DATE then begin
+		 		Item.SubItems[6] := '';
+ 			end else
+ 				Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
 
-				else
-					Item.SubItems[ idx ] := '';
-				end;
-				Inc( idx );
-			end;
+		end else begin
+			Item.ImageIndex := ITEM_ICON_THREAD1;
+			Item.SubItems[0] := IntToStr(ThreadItem.AllResCount);
+			Item.SubItems[1] := '';
+			Item.SubItems[2] := '';
+			Item.SubItems[3] := '';
+			Item.SubItems[4] := '';
+			Item.SubItems[5] := '';
+            if not GikoSys.Setting.CreationTimeLogs then
+				if ThreadItem.CreateDate = ZERO_DATE then
+		 			Item.SubItems[6] := ''
+ 				else
+ 					Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);
 
-			if ThreadItem.NewArrival then
-				Item.ImageIndex := ITEM_ICON_THREADNEW1
-			else
-				Item.ImageIndex := ITEM_ICON_THREAD1;
 		end;
 
 		Item.Data := ThreadItem;
-
 	end;
 end;
 
@@ -2794,7 +2657,7 @@ var
 	ActiveFileName: string;
 	e: IHTMLElement;
 	Ext: string;
-	buf, buf2: string;
+	buf: string;
 	PathRec: TPathRec;
 begin
 	if not( TObject(Sender) is TWebBrowser )then
@@ -2877,43 +2740,30 @@ begin
 		end else begin
 			threadItem := GetActiveContent;
 			if Pos('about:blank..', Text) = 1 then begin
-				wkInt := LastDelimiter( '/', threadItem.URL );
-				if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then begin
-					// Thread.URL ‚Í PATH_INFO “n‚µ
-					URL := Copy( threadItem.URL, 1,  LastDelimiter( '/', threadItem.URL ) );
-					wkInt := LastDelimiter( '/', Text );
-					if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then
-						// Text ‚à PATH_INFO “n‚µ
-						URL := URL + Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt )
-					else
-						// Text ‚Í QUERY_STRING “n‚µ
-						URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt );
+				  if (AnsiPos('http://jbbs.livedoor.com/', threadItem.URL) <> 0) then begin
+					URL := Copy(threadItem.URL, 1,  LastDelimiter('/',threadItem.URL));
+					Gikosys.GetPopupResNumber(Text,PathRec.FSt,PathRec.FTo);
+					if ( PathRec.FSt <> 0 ) and ( PathRec.FTo <> 0 ) then
+						buf := IntToStr(PathRec.FSt) + '-' + IntToStr(PathRec.FTo)
+					else if( PathRec.FSt <> 0 ) then
+						buf := IntToStr(PathRec.FSt);
+				end else if AnsiPos('machi.to/bbs/', threadItem.URL) <> 0 then begin
+					URL := threaditem.URL;
+					buf := Copy(Text,AnsiPos('&st=',Text),Length(Text)-AnsiPos('&st=',Text) + 1);
 				end else begin
-					// Thread.URL ‚Í QUERY_STRING “n‚µ
-					URL := Copy( threadItem.URL, 1,  LastDelimiter( '?', threadItem.URL ) );
-					wkInt := LastDelimiter( '/', Text );
-					if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then begin
-						// Text ‚Í PATH_INFO “n‚µ
-						// URL ‚ɔ‚ƃL[‚ª‘«‚ç‚È‚¢‚Ì‚Å Text ‚©‚ç’¸‘Õ‚·‚é
-						wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) );
-						wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) );
-						URL := Copy( URL, 1, Length( URL ) - 1 ) + Copy( Text, wkInt, MaxInt );
-					end else begin
-						// Text ‚à QUERY_STRING “n‚µ
-						URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt )
-					end;
+					URL := Copy(threadItem.URL, 1,  LastDelimiter('/',threadItem.URL));
+					buf := Copy(Text,LastDelimiter('/',Text)+1,Length(Text)-LastDelimiter('/',Text));
 				end;
+				URL := URL + buf;
 			end else begin
 				URL := Text;
 			end;
-
 			PathRec := Gikosys.Parse2chURL2(URL);
 			if (PathRec.FNoParam) then begin
 				PathRec.FSt := 1;
 				PathRec.FTo := 1;
-			end else begin
+			end else
 				Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);
-			end;
 			GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );
 
 			if PathRec.FDone or (not GikoSys.Is2chHost( Host )) then begin
@@ -2940,10 +2790,10 @@ begin
 				//	wkIntTo := 1;
 				//if PathRec.FFirst then
 				//	wkIntSt := 1;
-				//if PathRec.FStBegin then //http://````/-50‚Æ‚¢‚¤‚Æ‚«
-				//	wkIntSt := 1;          //
-				//if PathRec.FToEnd then   //http://````/50-‚Æ‚¢‚¤‚Æ‚«
-				//	wkIntTo := 9999;       // ‚Ç‚¿‚ç‚̏ꍇ‚àAGetPopupResNumber‚Å‚¤‚Ü‚­”ԍ†‚𒲐®‚·‚é‚̂łӂ悤B
+				if PathRec.FStBegin then
+					wkIntSt := 1;
+				if PathRec.FToEnd then
+					wkIntTo := 9999;
 
 				//ATitle := ActiveFileName <> PathRec.FKey;
 				if (FActiveContent <> nil) and (FActiveContent.Thread.URL = URL) then
@@ -3013,44 +2863,22 @@ end;
 
 procedure TGikoForm.ListViewKeyDown(Sender: TObject; var Key: Word;
 	Shift: TShiftState);
-var
-	pos 	: TPoint;
 begin
 	if GetActiveList is TBoard then begin
-		case Key of
-		VK_BACK:;	//	UpFolderButtonClick(Sender);
-		VK_SPACE:			ListDoubleClick(Shift);
-		VK_RETURN:		ListClick;
-		VK_APPS:
-			begin
-				if ListView.Selected <> nil then begin
-					pos.X := ListView.Column[ 0 ].Width;
-					pos.Y := ListView.Selected.Top;
-				end else begin
-					pos.X := ListView.Left;
-					pos.Y := ListView.Top;
-				end;
-				Windows.ClientToScreen( ListView.Handle, pos );
-				ListPopupMenu.Popup( pos.X, pos.Y );
-			end;
+		if Key = VK_BACK then begin
+//		UpFolderButtonClick(Sender);
+		end else if Key = VK_SPACE then begin
+			ListDoubleClick(Shift);
+		end else if Key = VK_RETURN then begin
+			ListClick;
 		end;
 	end else begin // TBBS, TCategory
-		case Key of
-		VK_BACK:;	//	UpFolderButtonClick(Sender);
-		VK_SPACE:			ListClick;
-		VK_RETURN:		ListDoubleClick(Shift);
-		VK_APPS:
-			begin
-				if ListView.Selected <> nil then begin
-					pos.X := ListView.Column[ 0 ].Width;
-					pos.Y := ListView.Selected.Top;
-				end else begin
-					pos.X := ListView.Left;
-					pos.Y := ListView.Top;
-				end;
-				Windows.ClientToScreen( ListView.Handle, pos );
-				ListPopupMenu.Popup( pos.X, pos.Y );
-			end;
+		if Key = VK_BACK then begin
+//		UpFolderButtonClick(Sender);
+		end else if Key = VK_SPACE then begin
+			ListClick;
+		end else if Key = VK_RETURN then begin
+			ListDoubleClick(Shift);
 		end;
 	end;
 end;
@@ -3060,95 +2888,29 @@ begin
 	Result := FHttpState;
 end;
 
-{*!
-\brief		ListView ‚Ì Column ‚ð^‚̃Jƒ‰ƒ€‚É•ÏŠ·
-
-Delphi 6 Personal ‚Å‚Ì ListView ‚Å‚Í ListViewColumnClick ƒCƒxƒ“ƒg‚Å
-³‚µ‚¢ƒJƒ‰ƒ€‚ª“n‚³‚ê‚È‚¢‚½‚߁A³‚µ‚¢ƒJƒ‰ƒ€‚É•ÏŠ·‚µ‚Ü‚·B
-*}
-function	TGikoForm.ActiveListTrueColumn( column : TListColumn ) : TListColumn;
-{*
-var
-	i, idx		: Integer;
-	orderList	: TList;
-*}
-begin
-
-	// ³‚µ‚­•ÏŠ·‚·‚é•û–@‚ª•ª‚©‚ç‚È‚¢‚Ì‚Å•Û—¯
-	Result := column;
-	Exit;
-{*
-	Result := column;
-
-	if TObject( FActiveList ) is TBBS then
-		orderList := GikoSys.Setting.BBSColumnOrder
-	else if TObject( FActiveList ) is TCategory then
-		orderList := GikoSys.Setting.CategoryColumnOrder
-	else if TObject( FActiveList ) is TBoard then
-		orderList := GikoSys.Setting.BoardColumnOrder
-	else
-		Exit;
-
-	idx := column.Tag;
-
-	for i := 0 to ListView.Columns.Count - 1 do begin
-		if Integer( orderList[ ListView.Column[ i ].Tag ] ) = 0 then begin
-			if idx = 0 then
-				Result := ListView.Column[ i ]
-			else if idx <= i then
-				Result := ListView.Column[ idx - 1 ];
-			Exit;
-		end;
-	end;
-*}
-
-end;
-
 procedure TGikoForm.ListViewColumnClick(Sender: TObject;
 	Column: TListColumn);
-var
-	id, idx			: Integer;
-	orderList		: TList;
 begin
-	idx := ActiveListTrueColumn( Column ).Tag;
-
-	if TObject( FActiveList ) is TBBS then
-		orderList := GikoSys.Setting.BBSColumnOrder
-	else if TObject( FActiveList ) is TCategory then
-		orderList := GikoSys.Setting.CategoryColumnOrder
-	else if TObject( FActiveList ) is TBoard then
-		orderList := GikoSys.Setting.BoardColumnOrder
-	else
-		Exit;
-
-	id := Integer( orderList[ idx ] );
-
-	if FSortIndex = id then
+	if FSortIndex = Column.Index then
 		FSortOrder := not FSortOrder
 	else
 		FSortOrder := False;
-
 	ListViewSort(Sender, Column);
 end;
 
 procedure TGikoForm.ListViewSort(Sender: TObject; Column: TListColumn);
 var
-	i, id, idx	: Integer;
-	orderList		: TList;
+	i: Integer;
 	wkBBS: TBBS;
 	wkCategory: TCategory;
 	wkBoard: TBoard;
 begin
-	idx := ActiveListTrueColumn( Column ).Tag;
-
-	for i := 0 to ListView.Columns.Count - 1 do begin
+	for i := 0 to ListView.Columns.Count - 1 do
 		ListView.Column[i].ImageIndex := -1;
-	end;
-
 	if FSortOrder then
-		ListView.Column[ idx ].ImageIndex := ITEM_ICON_SORT1
+		ListView.Column[Column.Index].ImageIndex := ITEM_ICON_SORT1
 	else
-		ListView.Column[ idx ].ImageIndex := ITEM_ICON_SORT2;
+		ListView.Column[Column.Index].ImageIndex := ITEM_ICON_SORT2;
 
 	Sort.SortNoFlag := ListNumberVisibleAction.Checked;
 
@@ -3156,41 +2918,35 @@ begin
 	if TObject( FActiveList ) is TBBS then begin
 		//wkBBS := TBBS(TreeView.Selected.Data);
 		wkBBS := TBBS( FActiveList );
-		orderList := GikoSys.Setting.BBSColumnOrder;
-		id := Integer( orderList[ idx ] );
 		Sort.SortOrder := FSortOrder;
-		Sort.SortIndex := id;
-		GikoSys.Setting.BBSSortIndex := id;
+		Sort.SortIndex := Column.Index;
+		GikoSys.Setting.BBSSortIndex := Column.Index;
 		GikoSys.Setting.BBSSortOrder := FSortOrder;
 		wkBBS.Sort(CategorySortProc);
+		ListView.Refresh;
 	//end else if TObject(TreeView.Selected.Data) is TCategory then begin
 	end else if TObject( FActiveList ) is TCategory then begin
 		//wkCategory := TCategory(TreeView.Selected.Data);
 		wkCategory := TCategory( FActiveList );
-		orderList := GikoSys.Setting.CategoryColumnOrder;
-		id := Integer( orderList[ idx ] );
 		Sort.SortOrder := FSortOrder;
-		Sort.SortIndex := id;
-		GikoSys.Setting.CategorySortIndex := id;
+		Sort.SortIndex := Column.Index;
+		GikoSys.Setting.CategorySortIndex := Column.Index;
 		GikoSys.Setting.CategorySortOrder := FSortOrder;
 		wkCategory.CustomSort(BoardSortProc);
+		ListView.Refresh;
 	//end else if TObject(TreeView.Selected.Data) is TBoard then begin
 	end else if TObject( FActiveList ) is TBoard then begin
 		//wkBoard := TBoard(TreeView.Selected.Data);
 		wkBoard := TBoard( FActiveList );
-		orderList := GikoSys.Setting.BoardColumnOrder;
-		id := Integer( orderList[ idx ] );
 		Sort.SortOrder := FSortOrder;
-		Sort.SortIndex := id;
-		GikoSys.Setting.BoardSortIndex := id;
+		Sort.SortIndex := Column.Index;
+		Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
+		GikoSys.Setting.BoardSortIndex := Column.Index;
 		GikoSys.Setting.BoardSortOrder := FSortOrder;
 		wkBoard.CustomSort(ThreadItemSortProc);
-	end else begin
-		id := 0;
+		ListView.Refresh;
 	end;
-
-	ListView.Refresh;
-	FSortIndex := id;
+	FSortIndex := Column.Index;
 end;
 
 procedure TGikoForm.MenuToolBarCustomDrawButton(Sender: TToolBar;
@@ -3264,10 +3020,10 @@ begin
 	if TObject(Item.Data) is TThreadItem then begin
 		ThreadItem := TThreadItem(Item.Data);
 		if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin
-			ListView.Canvas.Brush.Color := FOddColor;
-		end else begin
-			ListView.Canvas.Brush.Color := FListViewBackGroundColor;
-		end;
+						ListView.Canvas.Brush.Color := FOddColor;
+				end else begin
+					ListView.Canvas.Brush.Color := FListViewBackGroundColor;
+				end;
 //		if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then
 		if ThreadItem.UnRead then
 			TListView(Sender).Canvas.Font.Style := [fsBold];
@@ -3459,7 +3215,6 @@ var
 	s: string;
 	boardPlugIn : TBoardPlugIn;
 	i: Integer;
-	browserRec	: TBrowserRecord;
 begin
 	try
 		if Item.DownType = gdtBoard then
@@ -3494,27 +3249,21 @@ begin
 					ATitle := GikoSys.DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1)).FTitle;
 				end;
 				for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
-					if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then begin
+					if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then
 						TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;
-						break;
-					end;
 				end;
 				if GikoSys.Setting.BrowserTabVisible then begin
 					if GetActiveContent = Item.ThreadItem then
-						browserRec := InsertBrowserTab(Item.ThreadItem)
+						InsertBrowserTab(Item.ThreadItem)
 					else if (ListView.Selected <> nil ) and ( TObject(ListView.Selected.Data) is TThreadItem ) and ( Item.ThreadItem = TThreadItem(ListView.Selected.Data)) then
-						browserRec := InsertBrowserTab(Item.ThreadItem, True)
+						InsertBrowserTab(Item.ThreadItem, True)
 					else
-						browserRec := InsertBrowserTab(Item.ThreadItem, False);
-					if browserRec.Thread = BrowserNullTab.Thread then begin
-						browserRec.Movement := BrowserNullTab.Movement;
-						BrowserNullTab.Movement := '';
-					end;
+						InsertBrowserTab(Item.ThreadItem, False);
 				end else begin
 					if (GetActiveContent = Item.ThreadItem) or (FActiveContent = nil) or(FActiveContent.Browser = BrowserNullTab.Browser) then
                     	InsertBrowserTab(Item.ThreadItem);
 				end;
-                Application.ProcessMessages;
+
 				if Item.State = gdsComplete then begin
 					PlaySound('New');
 					AddMessageList(ATitle + ' [ƒXƒŒŽæ“¾Š®—¹]', nil, gmiOK);
@@ -3642,17 +3391,14 @@ begin
 	end;
 end;}
 
-function TGikoForm.InsertBrowserTab(
-	ThreadItem	: TThreadItem;
-	ActiveTab		: Boolean = True
-) : TBrowserRecord;
+procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
+
 var
-	i, j, idx		: Integer;
-	favItem			: TFavoriteThreadItem;
+	i, j, idx: Integer;
+	favItem : TFavoriteThreadItem;
 	newBrowser	: TBrowserRecord;
 begin
 
-	Result := nil;
 	if Threaditem = nil then Exit;
 
 	if ThreadItem.IsLogFile then begin
@@ -3671,7 +3417,6 @@ begin
 		for i := 0 to BrowserTab.Tabs.Count - 1 do begin
 			if TObject(BrowserTab.Tabs.Objects[i]) is TBrowserRecord then begin
 				if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin
-					Result := TBrowserRecord( BrowserTab.Tabs.Objects[i] );
 					if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin
 						for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
 							if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
@@ -3758,7 +3503,6 @@ begin
 					BrowserTab.TabIndex := i;
 			end;
 		end;
-		Result := newBrowser;
 		if(ActiveTab) or (idx = -1) then begin
 			BrowserTab.OnChange(nil);
 		end;
@@ -3768,7 +3512,6 @@ begin
 			BrowserNullTab.Browser := Browser;
 		end;
 		BrowserNullTab.thread := ThreadItem;
-		Result := BrowserNullTab;
 		BrowserTab.TabIndex := -1;
 		SetContent(BrowserNullTab);
 	end;
@@ -3788,6 +3531,7 @@ var
 	s: string;
 //	OldCursor: TCursor;
 	i: Integer;
+	url: OleVariant;
 	idx: Integer;
 	ThreadItem: TThreadItem;
 	Thread: TBrowserRecord;
@@ -3795,7 +3539,6 @@ var
 	ThreadScrollTop: Integer;
 	ThreadIsLog, ThreadUnRead, ThreadNewArraical: boolean;
 begin
-//	AddMessageList('SetContent', nil, gmiWhat);
 	Thread := inThread;
 	idx := BrowserTab.TabIndex;
 	if (FActiveContent <> nil) and
@@ -3859,18 +3602,16 @@ begin
 
 
 	try
-		{
 		if ThreadItem.UnRead then begin
 			ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
 			if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
 			TreeView.Refresh;
 		end;
-        }
-		if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
+{		if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
 			if (FActiveContent.Browser <> BrowserNullTab.Browser) then
 				ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
 		end;
-
+}
 		ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
 		if (not Assigned(Thread.Browser.Document)) then begin
 			Thread.Browser.Navigate('about:blank');
@@ -3898,21 +3639,55 @@ begin
 			Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']';
 			//Thread.Repaint‚́AƒXƒLƒ““™‚̐ݒè‚ð•ÏX‚µ‚½‚Æ‚«AThread‚ðƒ_ƒEƒ“ƒ[ƒh‚µ‚½‚Æ‚«
 			//V‹K‚ÉThread‚ðŠJ‚¢‚½‚Æ‚«‚ɐ^‚É‚È‚Á‚Ä‚¢‚éB
+//			if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin
 			if Thread.Repaint then begin
 				//Thread.LastSize := ThreadItem.Size;
 				Thread.Repaint := false;
-
-				Thread.Browser.OnStatusTextChange := nil;
-				doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
-				GikoSys.CreateHTML2(doc, ThreadItem, sTitle);
-				Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
-				PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );
-				if ThreadItem = nil then begin
-					FActiveContent := nil;
-					BrowserTab.Repaint;
-					Exit;
+				try
+					Thread.Browser.OnStatusTextChange := nil;
+					doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
+					GikoSys.CreateHTML2(doc, ThreadItem, sTitle);
+
+			//		if (Assigned(Thread.Browser)) and (Thread.Browser <> nil) then
+					Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
+					//‚È‚º‚©‚±‚±‚Å–¾Ž¦“I‚ÉDocumentComplete‚ðŒÄ‚΂Ȃ¢‚Æ‚¤‚Ü‚­‚¢‚©‚È‚¢
+					//’Ç‹L@200406/19
+					//Visible‚Ì‚Æ‚«‚µ‚©DocumentComplete‚͌Ă΂ê‚È‚¢‚炵‚¢
+					Thread.FBrowser.OnDocumentComplete(Thread.FBrowser, Thread.FBrowser.Parent, url);
+//					Thread.OnlyHundred := GikoSys.OnlyAHundredRes;
+					Application.ProcessMessages;
+					//‚±‚±‚ÅApplication.ProcessMessages‚ðŒÄ‚Ô‚±‚Æ‚É‚æ‚Á‚ÄWebBrowser‚ðXV‚³‚¹‚éB
+					//‘Š‚µ‚È‚¢‚ƈê‰æ–Ê•ª‚µ‚©•`‰æ‚Å‚«‚Ä‚È‚¢‚Ì‚Å‚»‚êˆÈã‚̃XƒNƒ[ƒ‹—Ê‚ðŽw’肵‚Ä‚à–³Œø‚É‚È‚é
+					//@by‚à‚¶‚ã(2004/01/20)
+					try
+						//if (Assigned(Thread)) and (Assigned(ThreadItem))then begin
+							if(Thread <> nil) and (ThreadItem <>nil) then begin
+								if ThreadUnRead then
+									BrowserMovement('new', Thread)
+								else if ThreadScrollTop <> 0 then begin
+									try
+										doc.Body.ScrollTop := ThreadScrollTop;
+									except
+										on E: Exception do
+											MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
+									end;
+								end;
+						//	end;
+						end else begin
+							FActiveContent := nil;
+							BrowserTab.Repaint;
+							Exit;
+						end;
+					except
+						FActiveContent := nil;
+						BrowserTab.Repaint;
+						Exit;
+					end;
+				finally
+					 //	Application.ProcessMessages;
 				end;
 			end;
+			ThreadItem.UnRead := False;
 			ListView.Refresh;
 		end;
 		if (Assigned(Thread)) and (Assigned(Thread.Thread)) and (Thread <> nil) and (ThreadItem <>nil) then begin
@@ -3958,6 +3733,7 @@ end;
 
 procedure TGikoForm.SetActiveList(Obj: TObject);
 var
+	i		: Integer;
 	idx	: Integer;
 begin
 //	if FActiveList <> Obj then begin
@@ -3975,11 +3751,13 @@ begin
 		Self.Caption := CAPTION_NAME;
 		//Application.Title := CAPTION_NAME;
 
-//		ActiveListColumnSave;
-
 		if Obj is TBBS then begin
+			for i := 0 to ListView.Columns.Count - 1 do
+				ListView.Column[i].Width := GikoSys.Setting.BBSColumnWidth[i];
 			SetCategoryListItem(TBBS(Obj));
 		end else if Obj is TCategory then begin
+			for i := 0 to ListView.Columns.Count - 1 do
+				ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i];
 			SetBoardListItem(TCategory(Obj));
 		end else if Obj is TBoard then begin
 			SetThreadListItem(TBoard(Obj));
@@ -4008,16 +3786,12 @@ end;
 procedure TGikoForm.SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean);
 var
 	Board: TBoard;
-	i: Integer;
 begin
 	if ActiveList is TBoard then begin
-		for i := Length( BBSs ) - 1 downto 0 do begin
-			BBSs[i].SelectText := SelectText;
-			BBSs[i].KubetsuChk := KubetsuChk;
-		end;
 		Board := TBoard(ActiveList);
-//		Board.ParentCategory.ParenTBBS.SelectText := SelectText;
-//		Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk;
+
+		Board.ParentCategory.ParenTBBS.SelectText := SelectText;
+		Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk;
 //		Board.SelectText := SelectText;
 //		Board.KubetsuChk := KubetsuChk;
 		ViewType := AViewType;
@@ -4554,7 +4328,16 @@ begin
 		end;
 	end else begin
 		if Item <> FActiveList then begin
-			ActiveListColumnSave;
+			if GetActiveList is TBBS then begin
+				for i := 0 to ListView.Columns.Count - 1 do
+					GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
+			end else if GetActiveList is TCategory then begin
+				for i := 0 to ListView.Columns.Count - 1 do
+					GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
+			end else if GetActiveList is TBoard then begin
+				for i := 0 to ListView.Columns.Count - 1 do
+					GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
+			end;
 
 			if (Item is TBBS) or (Item is TCategory) then begin
 				ListView.Columns.Clear;
@@ -4572,20 +4355,20 @@ begin
 				SetActiveList( Item );
 			end;
 		end;
-	end;
 
-	if Item is TBoard then begin // not TCategory
-		if GikoSys.Setting.ListOrientation = gloHorizontal then begin
-			if GikoSys.Setting.ListWidthState = glsMax then begin
-				BrowserMinAction.Execute;
-				if GikoForm.Visible then
-					ListView.SetFocus;
-			end;
-		end else begin
-			if GikoSys.Setting.ListHeightState = glsMax then begin
-				BrowserMinAction.Execute;
-				if GikoForm.Visible then
-					ListView.SetFocus;
+		if Item is TBoard then begin // not TCategory
+			if GikoSys.Setting.ListOrientation = gloHorizontal then begin
+				if GikoSys.Setting.ListWidthState = glsMax then begin
+					BrowserMinAction.Execute;
+					if GikoForm.Visible then
+						ListView.SetFocus;
+				end;
+			end else begin
+				if GikoSys.Setting.ListHeightState = glsMax then begin
+					BrowserMinAction.Execute;
+					if GikoForm.Visible then
+						ListView.SetFocus;
+				end;
 			end;
 		end;
 	end;
@@ -4596,7 +4379,6 @@ procedure TGikoForm.ListViewMouseDown(Sender: TObject;
 var
 	listItem		: TListItem;
 	threadItem	: TThreadItem;
-	pos					: TPoint;
 //	t: Cardinal;
 begin
 	case Button of
@@ -4620,13 +4402,6 @@ begin
 			else
 				ListClick;
 		end;
-	mbRight:
-		begin
-			pos.X := X;
-			pos.Y := Y;
-			Windows.ClientToScreen( ListView.Handle, pos );
-			ListPopupMenu.Popup( pos.X, pos.Y );
-		end;
 	end;
 {	if ssDouble in Shift then begin
 		DoubleClickOccurred[Button] := True;
@@ -4753,11 +4528,11 @@ begin
 			top := 0;
 			nm := AName;
 			item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);
-			item.focus();
 			repeat
 				top := top + item.offsetTop;
 				item := item.offsetParent;
 			until AnsiCompareText(item.tagName, 'body' ) = 0;
+
 			OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top;
 		except
 		end;
@@ -4785,7 +4560,6 @@ begin
 			top := 0;
 			nm := AName;
 			item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);
-            item.focus();
 			repeat
 				top := top + item.offsetTop;
 				item := item.offsetParent;
@@ -5589,6 +5363,9 @@ begin
 end;
 
 procedure TGikoForm.FormResize(Sender: TObject);
+var
+	doc						: Variant;
+	i : Integer;
 begin
 
 	MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
@@ -5606,7 +5383,17 @@ begin
 		end;
 	end;
 
-	FIsIgnoreResize := rtResizing;
+	if FIsMinimize = mtMinimized then begin
+		if FActiveContent <> nil then begin
+			//Application.ProcessMessages;
+			doc := Idispatch( olevariant(FActiveContent.Browser.ControlInterface).Document) as IHTMLDocument2;
+			doc.Body.ScrollTop := FActiveContent.Thread.ScrollTop;
+			FIsMinimize := mtNone;
+		end;
+	end;
+
+
+	FIsIgnoreResize := True;
 	PostMessage( Handle, USER_RESIZED, 0, 0 );
 
 
@@ -5735,8 +5522,6 @@ begin
 			DeleteHistory(ThreadItem);
 			DeleteTab(ThreadItem);
 			ThreadItem.DeleteLogFile;
-			
-			TreeView.Refresh;	// UnRead ‚Ì•\Ž¦‚ðXV
 		end;
 		ListView.Refresh;
 	finally
@@ -5922,7 +5707,6 @@ begin
 
 	Editor := TEditorForm.Create(Self);
 	Editor.SetThreadItem(Item);
-    GikoSys.LoadEditorKeySetting(Editor.ActionList);
 	Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;
 	Editor.Show;
 	Editor.BodyEdit.SetFocus;
@@ -6658,13 +6442,11 @@ var
 	FDispHtmlDocument: DispHTMLDocument;
 	BrowserRecord :TBrowserRecord;
 	i :Integer;
-	doc					: Variant;
-	threadItem	: TThreadItem;
 begin
-//	AddMessageList('DocumentComplete', nil, gmiWhat);
+//	AddMessageList('DocumentComplete', nil);
 	if TObject(Sender) is TWebBrowser then begin
-		BrowserRecord := nil;
 		if TWebBrowser(Sender) <> Browser then begin
+			BrowserRecord := nil;
 			for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
 				if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(Sender) then begin
 						BrowserRecord := TBrowserRecord(BrowserTab.Tabs.Objects[i]);
@@ -6680,7 +6462,7 @@ begin
 				BrowserRecord.FEvent.OnClick := WebBrowserClick;  //’ljÁ‚µ‚½OnClickƒCƒxƒ“ƒg
 			end;
 		end else begin
-			if GetActiveContent <> nil then begin
+        	if GetActiveContent <> nil then begin
 				FDispHtmlDocument := Idispatch(OleVariant(Browser.ControlInterface).Document) as DispHTMLDocument;
 				if FEvent <> nil then
 					FEvent.Free;
@@ -6689,38 +6471,6 @@ begin
 				FEvent.OnClick := WebBrowserClick;  //’ljÁ‚µ‚½OnClickƒCƒxƒ“ƒg
 			end;
 		end;
-
-		if (BrowserRecord <> nil) and
-			 Assigned( BrowserRecord.Thread ) then begin
-			threadItem := BrowserRecord.Thread;
-
-			if (BrowserRecord <> nil) and (Length( BrowserRecord.Movement ) > 0) then begin
-				if threadItem.UnRead then begin
-					threadItem.UnRead := False;
-					threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
-					if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0;
-					TreeView.Refresh;
-					ListView.Refresh;
-				end;
-				BrowserMovement( BrowserRecord.Movement, BrowserRecord );
-				BrowserRecord.Movement := '';
-			end else if threadItem.UnRead then begin
-				threadItem.UnRead := False;
-				threadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead - 1;
-				if threadItem.ParentBoard.UnRead < 0 then threadItem.ParentBoard.UnRead := 0;
-				TreeView.Refresh;
-				BrowserMovement( 'new', BrowserRecord );
-				ListView.Refresh;
-			end else if threadItem.ScrollTop <> 0 then begin
-				try
-					doc := Idispatch( OleVariant( BrowserRecord.Browser.ControlInterface ).Document ) as IHTMLDocument2;
-					doc.Body.ScrollTop := threadItem.ScrollTop;
-				except
-					on E: Exception do
-						MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0);
-				end;
-			end;
-		end;
 	end;
 end;
 
@@ -7494,10 +7244,11 @@ begin
 	end;
 end;
 
-procedure TGikoForm.MoveToURL(const inURL: string);
+procedure TGikoForm.MoveToURL(URL: string);
+
 var
 	protocol, host, path, document, port, bookmark : string;
-	URL, protocol2, host2, path2, document2, port2, bookmark2 : string;
+	URL2, protocol2, host2, path2, document2, port2, bookmark2 : string;
 	tmp1, tmp2: string;
 	BBSID, BBSKey: string;
 	tmpBoard, Board: TBoard;
@@ -7510,22 +7261,20 @@ var
 //	boardNode			: TTreeNode;
 	shiftDown			: Boolean;
 	ctrlDown			: Boolean;
-	stRes, edRes	: Int64;
-	browserRec		: TBrowserRecord;
 begin
 
-	GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );
-	GikoSys.Parse2chURL( inURL, path, document, BBSID, BBSKey );
+	GikoSys.ParseURI( URL, protocol, host, path, document, port, bookmark );
+	GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey );
 
 
 	shiftDown	:= GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
-	ctrlDown	:= GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
-	if shiftDown then begin
-		GikoSys.OpenBrowser(inURL, gbtUserApp);
-		Exit;
-	end else if ctrlDown then begin
-		GikoSys.OpenBrowser(inURL, gbtIE);
-		Exit;
+    ctrlDown	:= GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
+    if shiftDown then begin
+    	GikoSys.OpenBrowser(URL, gbtUserApp);
+        Exit;
+    end else if ctrlDown then begin
+    	GikoSys.OpenBrowser(URL, gbtIE);
+        Exit;
 	end;
 
 	//===== ƒvƒ‰ƒOƒCƒ“
@@ -7534,16 +7283,15 @@ begin
 		bi := High( BoardPlugIns );
 		for i := Low( BoardPlugIns ) to bi do begin
 			if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin
-				case BoardPlugIns[ i ].AcceptURL( inURL ) of
+				case BoardPlugIns[ i ].AcceptURL( URL ) of
 				atThread:
 					begin
-						tmpThread		:= TThreadItem.Create( BoardPlugIns[ i ], inURL );
+						tmpThread		:= TThreadItem.Create( BoardPlugIns[ i ], URL );
 						boardURL		:= tmpThread.BoardPlugIn.GetBoardURL( DWORD( tmpThread ) );
 						Board				:= BBSsFindBoardFromURL( boardURL );
 						if Board = nil then begin
-                            //break;
 							// ¦ì‚Á‚Ä‚à’ljÁ‚·‚é‚Æ‚±‚낪–³‚¢‚Ì‚ÅŒƒ‚µ‚­•Û—¯
-							//GikoSys.OpenBrowser(inURL, gbtUserApp);
+							//GikoSys.OpenBrowser(URL, gbtUserApp);
 							//Exit;
 							{
 							Board := GikoSys.GetUnknownBoard( tmpThread.BoardPlugIn, boardURL );
@@ -7555,40 +7303,34 @@ begin
 								GikoSys.ReadSubjectFile( Board );
 								Exit;
 							end;
-							ThreadItem := Board.FindThreadFromFileName( tmpThread.FileName );
-							if ThreadItem = nil then begin
-								ThreadItem := tmpThread;
-								Board.Insert( 0, ThreadItem );
-								if ActiveList is TBoard then begin
-									if TBoard(ActiveList) = Board then
-										ListView.Items.Count := ListView.Items.Count + 1;
-								end;
-								GikoSys.GetPopupResNumber( inURL, stRes, edRes );
-								browserRec := InsertBrowserTab( ThreadItem );
-								if (browserRec <> nil) and (stRes > 0) then
-									browserRec.Movement := IntToStr( stRes );
+						end;
+
+						ThreadItem := Board.FindThreadFromFileName( tmpThread.FileName );
+						if ThreadItem = nil then begin
+							ThreadItem := tmpThread;
+							Board.Insert( 0, ThreadItem );
+							if ActiveList is TBoard then begin
+								if TBoard(ActiveList) = Board then
+									ListView.Items.Count := ListView.Items.Count + 1;
+							end;
+							InsertBrowserTab( ThreadItem );
+							DownloadContent( ThreadItem );
+							Exit;
+						end else begin
+							tmpThread.Free;
+							InsertBrowserTab( ThreadItem );
+							if not ThreadItem.IsLogFile then begin
 								DownloadContent( ThreadItem );
-								Exit;
-							end else begin
-								tmpThread.Free;
-								GikoSys.GetPopupResNumber( inURL, stRes, edRes );
-								browserRec := InsertBrowserTab( ThreadItem );
-								if ThreadItem.IsLogFile then begin
-									if (browserRec <> nil) and (stRes > 0) then
-										BrowserMovement( IntToStr( stRes ), browserRec );
-								end else begin
-									if (browserRec <> nil) and (stRes > 0) then
-										browserRec.Movement := IntToStr( stRes );
-									DownloadContent( ThreadItem );
-								end;
-								Exit;
 							end;
+							Exit;
 						end;
+
+						//Exit;
 					end;
 
 				atBoard:
 					begin
-						tmpBoard := TBoard.Create(BoardPlugIns[ i ], inURL);
+						tmpBoard := TBoard.Create(BoardPlugIns[ i ], URL);
 						Board := BBSsFindBoardFromURL( tmpBoard.URL );
 						tmpBoard.Free;
 						if Board <> nil then begin
@@ -7607,7 +7349,7 @@ begin
 
 
 	if (Length( Trim(BBSKey) ) > 0) and (Length( Trim(BBSID) ) > 0) then begin
-		boardURL := GikoSys.Get2chThreadURL2BoardURL( inURL );
+		boardURL := GikoSys.Get2chThreadURL2BoardURL( URL );
 		Board := BBSsFindBoardFromURL( boardURL );
 		if Board = nil then
 			Board := BBSsFindBoardFromBBSID( BBSID );
@@ -7619,23 +7361,23 @@ begin
 		end;
 		if Board = nil then begin
 			 // “ü‚é‚ׂ«”‚ªŒ©‚‚©‚ç‚È‚©‚Á‚½‚̂ŁA•’ʂ̃uƒ‰ƒEƒU‚ÅŠJ‚­
-			 GikoSys.OpenBrowser(inURL, gbtUserApp);
+			 GikoSys.OpenBrowser(URL, gbtUserApp);
 			 Exit;
 		end else begin
 			// ŠO•”‚̔‚Ȃ̂É2ch‚ÌURL‚É‚³‚ê‚Ä‚µ‚Ü‚Á‚½“z‚ð‚±‚±‚ÅŠm”F‚·‚é
-			URL :=  Board.URL;
-			GikoSys.ParseURI(URL , protocol2, host2, path2, document2, port2, bookmark2 );
+			URL2 :=  Board.URL;
+			GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 );
 			tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host));
 			tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2));
 			if ( not GikoSys.Is2chHost(tmp1)) and (tmp1 <> tmp2) then begin
-				GikoSys.OpenBrowser(inURL, gbtUserApp);
+				GikoSys.OpenBrowser(URL, gbtUserApp);
 				Exit;
 			end;
 		end;
 
 		if not Board.IsThreadDatRead then
 			GikoSys.ReadSubjectFile(Board);
-		URL := GikoSys.Get2chBrowsableThreadURL( inURL );
+		URL := GikoSys.Get2chBrowsableThreadURL( URL );
 		ThreadItem := Board.FindThreadFromURL( URL );
 		//@‰ß‹ŽƒƒO‘qŒÉ‚©‚çAƒ_ƒEƒ\‚µ‚½ƒXƒŒ‚ª”­Œ©‚Å‚«‚È‚¢‚Ì‚Å‚±‚±‚Å’T‚·‚悤‚É‚·‚é (2004/01/22)
 		if ThreadItem = nil then begin
@@ -7648,9 +7390,9 @@ begin
 			{shiftDown	:= GetAsyncKeyState(VK_SHIFT) = Smallint($8001);
 			ctrlDown	:= GetAsyncKeyState(VK_CONTROL) = Smallint($8001);
 			if shiftDown then
-				GikoSys.OpenBrowser(URL1, gbtUserApp)
+				GikoSys.OpenBrowser(URL, gbtUserApp)
 			else if ctrlDown then
-				GikoSys.OpenBrowser(URL1, gbtIE)
+				GikoSys.OpenBrowser(URL, gbtIE)
 			else begin
 			}
 			ThreadItem := TThreadItem.Create( nil, URL );
@@ -7664,34 +7406,25 @@ begin
 				if TBoard(ActiveList) = Board then
 					ListView.Items.Count := ListView.Items.Count + 1;
 			end;
-			GikoSys.GetPopupResNumber( inURL, stRes, edRes );
-			browserRec := InsertBrowserTab(ThreadItem);
-			if (browserRec <> nil) and (stRes > 0) then
-				browserRec.Movement := IntToStr( stRes );
+			InsertBrowserTab(ThreadItem);
 			DownloadContent(ThreadItem);
 			{end;}
 		end else begin
-			if ThreadItem.IsLogFile then begin
-				GikoSys.GetPopupResNumber( inURL, stRes, edRes );
-				browserRec := InsertBrowserTab(ThreadItem);
-				if (browserRec <> nil) and (stRes > 0) then
-					browserRec.Movement := IntToStr( stRes );
-			end else begin
+			if ThreadItem.IsLogFile then
+				InsertBrowserTab(ThreadItem)
+			else begin
 				if AnsiPos(Host, Board.URL) = 0 then
 					ThreadItem.DownloadHost := Host
 				else
 					ThreadItem.DownloadHost := '';
-				GikoSys.GetPopupResNumber( inURL, stRes, edRes );
-				browserRec := InsertBrowserTab(ThreadItem);
-				if (browserRec <> nil) and (stRes > 0) then
-					browserRec.Movement := IntToStr( stRes );
+				InsertBrowserTab(ThreadItem);
 				DownloadContent(ThreadItem);
 			end;
 		end;
 	end else begin
-		Board := BBSsFindBoardFromURL( inURL );
+    Board := BBSsFindBoardFromURL( URL );
     if Board = nil then begin
-			GikoSys.OpenBrowser(inURL, gbtAuto);
+			GikoSys.OpenBrowser(URL, gbtAuto);
     end else begin
 	  if FActiveBBS <> Board.ParentCategory.ParenTBBS then
         ShowBBSTree( Board.ParentCategory.ParenTBBS );
@@ -7737,9 +7470,6 @@ begin
 end;
 
 procedure TGikoForm.WndProc(var Message: TMessage);
-var
-	senderBrowser	: TWebBrowser;
-	url						: OleVariant;
 begin
 	try
 		case Message.Msg of
@@ -7757,12 +7487,6 @@ begin
 			OnMinimized;
 		USER_SETLINKBAR:
 			SetLinkBar;
-		USER_DOCUMENTCOMPLETE:
-			if (Message.WParam <> 0) and
-				 (TObject(Message.WParam) is TWebBrowser) then begin
-				senderBrowser := TWebBrowser( Message.WParam );
-				BrowserDocumentComplete( senderBrowser, senderBrowser.Parent, url );
-			end;
 		end;
 
 		inherited;
@@ -8217,10 +7941,10 @@ var
 	j: Integer;
 	ToolButton: TLinkToolButton;
 	MenuItem: TMenuItem;
-	oldIgnoreResize : TResizeType;
+	oldIgnoreResize : Boolean;
 begin
 	oldIgnoreResize := FIsIgnoreResize;
-	FIsIgnoreResize := rtResizing;
+	FIsIgnoreResize := True;
 	MainCoolBar.Bands.BeginUpdate;
 	try
 		LinkBarPopupMenu.Items.Clear;
@@ -8313,7 +8037,7 @@ begin
 			if FDropSpaceNode <> nil then
 				FDropSpaceNode.Free;
 
-			FDropSpaceNode := FavoriteDM.TreeView.Items.AddChildObjectFirst(Node.Parent, '', nil );
+			FDropSpaceNode := FavoriteDM.TreeView.Items.AddChildObject(Node.Parent, '', nil );
 			FDropSpaceNode.MoveTo( Node, naInsert );
 			FDropSpaceNode.ImageIndex := -1;
 			FDropSpaceNode.SelectedIndex := -1;
@@ -8679,7 +8403,7 @@ begin
 		end;
 	end;
 	// Ý’è
-	lResult := SendMessage( bar.Handle, RB_SETBANDINFO, idx, Integer( pBandInfo ) );
+	lResult := SendMessage( bar.Handle, RB_SETBANDINFO, i, Integer( pBandInfo ) );
 
 end;
 
@@ -8924,11 +8648,12 @@ procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 var
 	Wnd: THandle;
 	delta: Integer;
-//	browserPos : TPoint;
+//	msg: TMessage;
 const
 	ICON_SIZE = 16;
 begin
-	Wnd := WindowFromPoint(Mouse.CursorPos);
+	Handled := False;
+	Wnd := WindowFromPoint(MousePos);
 	Handled := True;
 	if WheelDelta > 0 then
 		Delta := -1
@@ -8938,42 +8663,13 @@ begin
 	if (Wnd = BrowserTab.Handle) or
 		 (Wnd = BrowserTab.Parent.Handle) then begin
 		BrowserTab.ScrollTabs(Delta);
+	end else if Wnd = ListView.Handle then begin
+		if ListView.ViewStyle = vsList then
+			ListView.Scroll( Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE, 0 )
+		else
+			ListView.Scroll( 0, Delta * Mouse.WheelScrollLines * Abs( ListView.Font.Height ) + Delta * ICON_SIZE );
 	end else begin
-		if FIsHandledWheel then begin
-			FIsHandledWheel := False;
-			Handled := False;
-		end else begin
-			FIsHandledWheel := True;
-			if (Wnd = TreeView.Handle) or  (Wnd = FavoriteTreeView.Handle)
-			or (Wnd = ListView.Handle) or (Wnd = MessageListView.Handle)
-			then
-				SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (Mouse.CursorPos.X shl 16) or Mouse.CursorPos.Y )
-			else
-				Handled := False;
-
-{
-//			if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
-				// TWebBrowser ‚Ì Handle ‚Æ”äŠr‚µ‚Ä‚àˆê’v‚µ‚È‚¢‚̂ōÀ•W‚Å TWebBrowser ‚©‚Ç‚¤‚©”»’è
-				browserPos.X := 0;
-				browserPos.Y := 0;
-				Windows.ClientToScreen( Browser.Handle, browserPos );
-				if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width)
-				or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height)
-				or (Longword(Mouse.CursorPos.Y - browserPos.Y) < 0)
-				or (Longword(Mouse.CursorPos.Y - browserPos.Y) < 0) then begin
-//				or not FActiveContent.Browser.Focused then
-					// TWebBrowser ‚Í–³ŒÀƒ‹[ƒv‚·‚é‚Ì‚Å‚»‚êˆÈŠO‚È‚çƒRƒ“ƒgƒ[ƒ‹‚É‘—M
-					if (Wnd <> BrowserToolBar.Handle) and (Wnd <> BrowserNameToolBar.Handle) then
-						SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (Mouse.CursorPos.X shl 16) or Mouse.CursorPos.Y )
-					else
-						Handled := False;
-				end else begin
-					Handled := False;
-				end;
-//			end else begin
-//				SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
-//			end;
-}		end;
+		Handled := False;
 	end;
 end;
 
@@ -9010,10 +8706,9 @@ begin
 		ModifySelectList;
 	end else if Length( SelectComboBox.Text ) = 0 then
 	begin
-		{* SelectComboBox.Text‚ª‹ó‚Å‚àA“ü—Í“r’†‚ÅEsc‚µ‚½‚Æ‚©
-		 * ‹ó‚Ì‚Æ‚«‚ÉDelƒL[‚ð‰Ÿ‚µ‚½‚Æ‚©‚Ȃ̂ŁAƒXƒŒ‚̍iž‚Ý‚ðˆÛŽ‚·‚éB
-		 * i‚±‚±‚ł͉½‚à‚µ‚È‚¢j
-		 *}
+		AllItemAction.Checked := True;
+		LogItemAction.Checked := False;
+		NewItemAction.Checked := False;
 	end else begin
 		// ƒ`ƒ‰‚‚­‚ÆŒ™‚¾‚©‚çAˆê‰ž‰Ÿ‚µ‚Ä‚ ‚é‚Æ‚«‚¾‚¯ˆ—‚·‚é
 		if AllItemAction.Checked then
@@ -9144,6 +8839,11 @@ begin
 	SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
 end;
 
+procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word;
+	Shift: TShiftState);
+begin
+end;
+
 // ‘S‚ẴŒƒX‚ð•\Ž¦
 procedure TGikoForm.AllResActionExecute(Sender: TObject);
 var
@@ -9648,26 +9348,25 @@ end;
 procedure TGikoForm.FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
 	Shift: TShiftState);
 begin
-	if not TTreeView(Sender).IsEditing then begin
-		Case Key of
-		VK_F2:
-			begin
-				FClickNode := FavoriteTreeView.Selected;
-				FavoriteTreeViewRenameActionExecute( Sender );
-			end;
-		VK_DELETE:
-			begin
-				FClickNode := FavoriteTreeView.Selected;
-				FavoriteTreeViewDeleteActionExecute( Sender );
-			end;
-		VK_RETURN:
-			begin
-			FavoriteClick( FavoriteTreeView.Selected );
-			FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded;
-			end;
-		VK_SPACE:
-			FavoriteTreeViewDblClick( Sender );
+
+	Case Key of
+	VK_F2:
+		begin
+			FClickNode := FavoriteTreeView.Selected;
+			FavoriteTreeViewRenameActionExecute( Sender );
+		end;
+	VK_DELETE:
+		begin
+			FClickNode := FavoriteTreeView.Selected;
+			FavoriteTreeViewDeleteActionExecute( Sender );
 		end;
+	VK_RETURN:
+		begin
+		FavoriteClick( FavoriteTreeView.Selected );
+		FavoriteTreeView.Selected.Expanded := not FavoriteTreeView.Selected.Expanded;
+		end;
+	VK_SPACE:
+		FavoriteTreeViewDblClick( Sender );
 	end;
 
 end;
@@ -10062,7 +9761,7 @@ begin
 		ThreadItem := FavThread.Item;
 
 		try
-			s := ThreadItem.Title + #13#10 + ThreadItem.URL + #13#10;
+			s := ThreadItem.URL + #13#10 + ThreadItem.Title + #13#10;
 			if s <> '' then
 				Clipboard.AsText := s;
 		finally
@@ -10077,7 +9776,7 @@ begin
 				GikoSys.ReadSubjectFile(Board);
 
 		try
-			s := Board.Title + #13#10 + Board.URL + #13#10;
+			s := Board.URL + #13#10 + Board.Title + #13#10;
 			if s <> '' then
 				Clipboard.AsText := s;
 		finally
@@ -10134,12 +9833,7 @@ procedure TGikoForm.BrowserTabMouseUp(Sender: TObject;
 begin
 	if FDragWFirst <> true then begin
 		FDragWFirst := false;
-{
-	end else if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold)
-	and (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
-(*}
-	end else begin
-//*)
+	end else if (X = FMouseDownPos.X) and (Y = FMouseDownPos.Y) then begin
 		if GikoSys.Setting.ListOrientation = gloHorizontal then begin
 			if GikoSys.Setting.ListWidthState = glsMin then begin
 				BrowserMaxAndFocusAction.Execute;
@@ -10223,9 +9917,9 @@ end;
 procedure TGikoForm.SetListViewBackGroundColor(value: TColor);
 begin
 	if FListViewBackGroundColor <> value then begin
-		FListViewBackGroundColor := value;
-		ListView.Color := FListViewBackGroundColor;
-	end;
+			FListViewBackGroundColor := value;
+				ListView.Color := FListViewBackGroundColor;
+		end;
 end;
 procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject);
 begin
@@ -10412,62 +10106,63 @@ end;
 procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
 var
 	i: Integer;
-				j: Integer;
-				tempString: string;
-				tmpURL: string;
-				oldHost: string;
-				oldBoardName: string;
-				newHost: string;
-				newBoardName: string;
-				TabList: TStringList;
-begin
-		TabList := TStringList.Create;
-		if oldURLs.Count <> newURLs.Count then
-			Exit;
-		//‚±‚±‚©‚çABoard‚ÌURL‚̕ύX
-		for j :=0 to oldURLs.Count - 1 do begin
+        j: Integer;
+        tempString: string;
+        tmpURL: string;
+        oldHost: string;
+        oldBoardName: string;
+        newHost: string;
+        newBoardName: string;
+        TabList: TStringList;
+begin
+    TabList := TStringList.Create;
+    if oldURLs.Count <> newURLs.Count then
+    	Exit;
+    //‚±‚±‚©‚çABoard‚ÌURL‚̕ύX
+    for j :=0 to oldURLs.Count - 1 do begin
 		for i :=0 to TabList.Count - 1 do begin
 			if TabList.Text = oldURLs[j] then
-							TabList.Text := newURLs[j];
-			end;
-		end;
-		//‚±‚±‚܂ŁABoard‚ÌURL‚̕ύX
-
-		//‚±‚±‚©‚çAThread‚ÌURL‚̕ύX
-		//–Ê“|‚¾‚¯‚Çthread‚Í‚»‚ꂼ‚êURL‚ðƒ`ƒƒƒbƒN‚µ‚È‚ª‚ç‚â‚Á‚Ä‚©‚È‚«‚á‚¢‚¯‚È‚¢B
-		for i := 0 to oldURLs.Count - 1 do begin
-				tmpURL 			:= Copy(oldURLs[i], 1, Length(oldURLs[i]) -1);
-				oldHost			:= Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
-				oldBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
-				tmpURL 			:= Copy(newURLs[i], 1, Length(newURLs[i]) -1);
-				newHost			:= Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
-				newBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
-
-				for j := 0 to TabList.Count - 1 do begin
-						tempString := TabList.Text;
-						if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
-							tempString := StringReplace(tempString, oldHost, newHost,[]);
-								TabList.Text := tempString;
-						end;
-				end;
+            	TabList.Text := newURLs[j];
+    	end;
+    end;
+    //‚±‚±‚܂ŁABoard‚ÌURL‚̕ύX
+
+    //‚±‚±‚©‚çAThread‚ÌURL‚̕ύX
+    //–Ê“|‚¾‚¯‚Çthread‚Í‚»‚ꂼ‚êURL‚ðƒ`ƒƒƒbƒN‚µ‚È‚ª‚ç‚â‚Á‚Ä‚©‚È‚«‚á‚¢‚¯‚È‚¢B
+    for i := 0 to oldURLs.Count - 1 do begin
+        tmpURL 			:= Copy(oldURLs[i], 1, Length(oldURLs[i]) -1);
+        oldHost			:= Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
+        oldBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
+        tmpURL 			:= Copy(newURLs[i], 1, Length(newURLs[i]) -1);
+        newHost			:= Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
+        newBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
+
+        for j := 0 to TabList.Count - 1 do begin
+            tempString := TabList.Text;
+            if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
+            	tempString := StringReplace(tempString, oldHost, newHost,[]);
+                TabList.Text := tempString;
+            end;
+        end;
 end;
-		//‚±‚±‚܂ŁAThread‚ÌURL‚̕ύX
+    //‚±‚±‚܂ŁAThread‚ÌURL‚̕ύX
 
 end;
 
-/// Å¬‰»‚³‚ê‚é
+// Å¬‰»‚³‚ê‚é
 procedure TGikoForm.OnMinimize;
 begin
-	if FActiveContent <> nil then begin
-		FIsMinimize := mtMinimizing;
+	FIsMinimize := mtMinimizing;
+	if FActiveContent <> nil then
 		FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
-	end;
+	PostMessage( Handle, USER_MINIMIZED, 0, 0 );
 end;
 
-/// Å¬‰»‚³‚ꂽ (OnResized ‚©‚çŒÄ‚΂ê‚é)
+// Å¬‰»‚³‚ꂽ
 procedure TGikoForm.OnMinimized;
 begin
 	FIsMinimize := mtMinimized;
+	FIsIgnoreResize := False;
 end;
 
 procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
@@ -10478,8 +10173,8 @@ var
 	affectedBand	: TCoolBand;
 	i							: Integer;
 begin
-	if (FOldFormWidth = Width) and not IsIconic( Handle ) and (FIsIgnoreResize = rtNone) then begin
-		FIsIgnoreResize := rtResizing;
+	if (FOldFormWidth = Width) and not IsIconic( Handle ) and not FIsIgnoreResize then begin
+		FIsIgnoreResize := True;
 		PostMessage( Handle, USER_RESIZED, 0, 0 );
 		if not (Sender is TToolBar) or (CoolBar = nil) then
 			Exit;
@@ -10620,6 +10315,8 @@ begin
 end;
 // TreeView ‚ªƒNƒŠƒbƒN‚³‚ꂽ
 procedure TGikoForm.TreeClick( Node : TTreeNode );
+var
+	i: Integer;
 begin
 
 	if Node = nil then
@@ -10633,7 +10330,16 @@ begin
 		Exit;
 	end;
 
-	ActiveListColumnSave;
+	if GetActiveList is TBBS then begin
+		for i := 0 to ListView.Columns.Count - 1 do
+			GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
+	end else if GetActiveList is TCategory then begin
+		for i := 0 to ListView.Columns.Count - 1 do
+			GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
+	end else if GetActiveList is TBoard then begin
+		for i := 0 to ListView.Columns.Count - 1 do
+			GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
+	end;
 
 	if TObject(Node.Data) is TBBS then begin
 		SetActiveList(Node.data);
@@ -10748,6 +10454,7 @@ end;
 
 // ƒMƒRƒiƒr‚̃ƒbƒZ[ƒWƒ‹[ƒv‚ð‰¡Žæ‚肵‚Ü‚·
 procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
+
 //var
 //	key				: Word;
 begin
@@ -10813,7 +10520,7 @@ end;
 procedure TGikoForm.MessagePanelResize(Sender: TObject);
 begin
 
-	if FIsIgnoreResize <> rtNone then
+	if FIsIgnoreResize then
 		Exit;
 
 	if GikoSys.Setting.ListOrientation = gloVertical then begin
@@ -10826,30 +10533,10 @@ begin
 end;
 
 procedure TGikoForm.OnResized;
-var
-	doc						: Variant;
 begin
 
 	FOldFormWidth := Width;
-	FIsIgnoreResize := rtNone;
-
-	case FIsMinimize of
-	mtMinimizing:
-		begin
-			// Å¬‰»’†‚Å‚ ‚é
-			PostMessage( Handle, USER_MINIMIZED, 0, 0 );
-		end;
-
-	mtMinimized:
-		begin
-			// Å¬‰»‚ÍŠù‚ÉŠ®—¹‚µ‚Ä‚¢‚é (‚‚܂èƒ^ƒXƒNƒo[‚©‚çƒEƒBƒ“ƒhƒE‚𕜌³’†)
-			if FActiveContent <> nil then begin
-				doc := Idispatch( olevariant(FActiveContent.Browser.ControlInterface).Document) as IHTMLDocument2;
-				doc.Body.ScrollTop := FActiveContent.Thread.ScrollTop;
-			end;
-			FIsMinimize := mtNone;
-		end;
-	end;
+	FIsIgnoreResize := False;
 
 end;
 
@@ -11165,16 +10852,12 @@ begin
 		SelectListItem(List);
 		for i := 0 to List.Count - 1 do begin
 			if TObject(List[i]) is TThreadItem then begin
-				if (TThreadItem(List[i]).UnRead) then begin
-					TThreadItem(List[i]).UnRead := false;
-					TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;
-				end;
+				TThreadItem(List[i]).UnRead := false;
+				TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead - 1;
 			end;
 		end;
 		if TreeView.Visible then
 			TreeView.Refresh;
-		if ListView.Visible then
-        	ListView.Refresh;
 	finally
 		List.Free;
 	end;
@@ -11190,16 +10873,12 @@ begin
 		SelectListItem(List);
 		for i := 0 to List.Count - 1 do begin
 			if TObject(List[i]) is TThreadItem then begin
-				if (TThreadItem(List[i]).IsLogFile) and (not TThreadItem(List[i]).UnRead) then begin
-					TThreadItem(List[i]).UnRead := true;
-					TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;
-				end;
+				TThreadItem(List[i]).UnRead := true;
+				TThreadItem(List[i]).ParentBoard.UnRead := TThreadItem(List[i]).ParentBoard.UnRead + 1;
 			end;
 		end;
 		if TreeView.Visible then
 			TreeView.Refresh;
-		if ListView.Visible then
-        	ListView.Refresh;
 	finally
 		List.Free;
 	end;
@@ -11210,8 +10889,11 @@ procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,
 var
 	i: Integer;
 begin
-	for i := BROWSER_COUNT - 1 downto 0 do begin
+	for i := 0 to BROWSER_COUNT - 1 do
 		SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);
+
+	if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+		SetWindowPos(FActiveContent.Browser.Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);
 	end;
 end;
 
@@ -11350,7 +11032,7 @@ end;
 procedure TGikoForm.TabsSaveToFileActionExecute(Sender: TObject);
 var
 	SaveTabList: TStringList;
-	Result: Boolean;
+        Result: Boolean;
 begin
 	SaveTabList := TStringList.Create;
 	try
@@ -11571,225 +11253,6 @@ begin
 	LoadTabURLs;
 end;
 
-/// ListView ‚̃Jƒ‰ƒ€•‚¨‚æ‚шʒu‚Ì•Û‘¶
-procedure TGikoForm.ActiveListColumnSave;
-var
-	ActivListObj	: TObject;
-	i, id, idx		: Integer;
-	BBSOrder			: TGikoBBSColumnList;
-	CategoryOrder	: TGikoCategoryColumnList;
-	BoardOrder		: TGikoBoardColumnList;
-begin
-
-	ActivListObj := ActiveList;
-	if ActivListObj is TBBS then begin
-		//===== ƒJƒeƒSƒŠƒŠƒXƒg =====
-		BBSOrder := TGikoBBSColumnList.Create;
-		try
-			for i := 0 to ListView.Columns.Count - 1 do begin
-				// ‡˜‚̎擾
-				idx := ListView.Column[ i ].Tag;
-				id := Ord( GikoSys.Setting.BBSColumnOrder[ idx ] );
-				BBSOrder.Add( TGikoBBSColumnID( id ) );
-				// •‚Ì•Û‘¶
-				GikoSys.Setting.BBSColumnWidth[ id ] := ListView.Column[ i ].Width;
-			end;
-			for i := 0 to ListView.Columns.Count - 1 do
-				// ‡˜‚Ì•Û‘¶
-				GikoSys.Setting.BBSColumnOrder[ i ] := BBSOrder[ i ];
-		finally
-			BBSOrder.Free;
-		end;
-	end else if ActivListObj is TCategory then begin
-		//===== ”ƒŠƒXƒg =====
-		CategoryOrder := TGikoCategoryColumnList.Create;
-		try
-			for i := 0 to ListView.Columns.Count - 1 do begin
-				// ‡˜‚̎擾
-				idx := ListView.Column[ i ].Tag;
-				id := Ord( GikoSys.Setting.CategoryColumnOrder[ idx ] );
-				CategoryOrder.Add( TGikoCategoryColumnID( id ) );
-				// •‚Ì•Û‘¶
-				GikoSys.Setting.CategoryColumnWidth[ id ] := ListView.Column[ i ].Width;
-			end;
-			for i := 0 to ListView.Columns.Count - 1 do
-				// ‡˜‚Ì•Û‘¶
-				GikoSys.Setting.CategoryColumnOrder[ i ] := CategoryOrder[ i ];
-		finally
-			CategoryOrder.Free;
-		end;
-	end else if ActivListObj is TBoard then begin
-		//===== ƒXƒŒƒŠƒXƒg =====
-		BoardOrder := TGikoBoardColumnList.Create;
-		try
-			for i := 0 to ListView.Columns.Count - 1 do begin
- 				// ‡˜‚̎擾
-				idx := ListView.Column[ i ].Tag;
-				id := Ord( GikoSys.Setting.BoardColumnOrder[ idx ] );
-				BoardOrder.Add( TGikoBoardColumnID( id ) );
-				// •‚Ì•Û‘¶
-				GikoSys.Setting.BoardColumnWidth[ id ] := ListView.Column[ i ].Width;
-			end;
-			for i := 0 to ListView.Columns.Count - 1 do
-				// ‡˜‚Ì•Û‘¶
-				GikoSys.Setting.BoardColumnOrder[ i ] := BoardOrder[ i ];
-		finally
-			BoardOrder.Free;
-		end;
-	end;
-	
-end;
-
-procedure TGikoForm.ListViewColumnRightClick(Sender: TObject;
-	Column: TListColumn; Point: TPoint);
-var
-	i, j	: Integer;
-	item	: TMenuItem;
-begin
-
-	// ƒ|ƒbƒvƒAƒbƒvƒƒjƒ…[‚ðƒNƒŠƒA
-	for i := ListColumnPopupMenu.Items.Count - 1 downto 0 do
-		ListColumnPopupMenu.Items.Items[ i ].Free;
-
-	// ƒƒjƒ…[‚̍쐬 (ƒƒCƒ“ƒJƒ‰ƒ€‚Í•K{‚Ȃ̂сƒjƒ…[‚ÉŠÜ‚ß‚È‚¢)
-	if TObject( FActiveList ) is TBBS then begin
-
-		//===== ƒJƒeƒSƒŠƒŠƒXƒg =====
-		for i := 1 to Length( GikoBBSColumnCaption ) - 1 do begin
-			item := TMenuItem.Create( ListColumnPopupMenu );
-			item.Caption := GikoBBSColumnCaption[ i ];
-			item.Tag := i;
-			item.OnClick := ListColumnPopupMenuOnClick;
-			for j := GikoSys.Setting.BBSColumnOrder.Count - 1 downto 0 do begin
-				if GikoSys.Setting.BBSColumnOrder[ j ] = TGikoBBSColumnID( i ) then begin
-					item.Checked := True;
-					Break;
-				end;
-			end;
-			ListColumnPopupMenu.Items.Add( item );
-		end;
-
-	end else if TObject( FActiveList ) is TCategory then begin
-
-		//===== ”ƒŠƒXƒg =====
-		for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
-			item := TMenuItem.Create( ListColumnPopupMenu );
-			item.Caption := GikoCategoryColumnCaption[ i ];
-			item.Tag := i;
-			item.OnClick := ListColumnPopupMenuOnClick;
-			for j := GikoSys.Setting.CategoryColumnOrder.Count - 1 downto 0 do begin
-				if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
-					item.Checked := True;
-					Break;
-				end;
-			end;
-			ListColumnPopupMenu.Items.Add( item );
-		end;
-
-	end else if TObject( FActiveList ) is TBoard then begin
-
-		//===== ƒXƒŒƒŠƒXƒg =====
-		for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
-			item := TMenuItem.Create( ListColumnPopupMenu );
-			item.Caption := GikoBoardColumnCaption[ i ];
-			item.Tag := i;
-			item.OnClick := ListColumnPopupMenuOnClick;
-			for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
-				if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
-					item.Checked := True;
-					Break;
-				end;
-			end;
-			ListColumnPopupMenu.Items.Add( item );
-		end;
-
-	end;
-
-	// ƒƒjƒ…[‚Ì•\Ž¦
-	Point := ListView.ClientToScreen( Point );
-	if ListColumnPopupMenu.Items.Count > 0 then
-		ListColumnPopupMenu.Popup( Point.X, Point.Y );
-
-end;
-
-/// ListColumnPopupMenu ƒAƒCƒeƒ€‚̃NƒŠƒbƒNƒCƒxƒ“ƒg
-procedure	TGikoForm.ListColumnPopupMenuOnClick( Sender : TObject );
-var
-	i					: Integer;
-	orderList	: TList;
-	item			: TMenuItem;
-begin
-
-	if not (Sender is TMenuItem) then
-		Exit;
-
-	ActiveListColumnSave;
-	item := TMenuItem( Sender );
-
-	if TObject( FActiveList ) is TBBS then
-		orderList := GikoSys.Setting.BBSColumnOrder
-	else if TObject( FActiveList ) is TCategory then
-		orderList := GikoSys.Setting.CategoryColumnOrder
-	else if TObject( FActiveList ) is TBoard then
-		orderList := GikoSys.Setting.BoardColumnOrder
-	else
-		Exit;
-
-	if item.Checked then begin
-		// ƒJƒ‰ƒ€‚̍폜
-		for i := orderList.Count - 1 downto 0 do begin
-			if Integer( orderList[ i ] ) = item.Tag then begin
-				orderList.Delete( i );
-				Break;
-			end;
-		end;
-	end else begin
-		// ƒJƒ‰ƒ€‚̒ljÁ
-		orderList.Add( Pointer( item.Tag ) );
-	end;
-
-	SetActiveList( FActiveList );
-
-end;
-//Žw’肵‚½”ԍ†‚̃ŒƒX‚Éjump‚·‚éAction
-procedure TGikoForm.JumpToNumOfResActionExecute(Sender: TObject);
-var
-	str: string;
-	res: integer;
-begin
-	str := '1';
-	if( InputQuery('Žw’肵‚½”ԍ†‚̃ŒƒX‚É”ò‚Ô', '”ԍ†‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢', str) ) then begin
-		str := ZenToHan(str);
-		res := StrToIntDef(str, -1);
-		if (res > 0) and (res <= GetActiveContent.Count) then begin
-			BrowserMovement(IntToStr(res), FActiveContent);
-			SetFocusForBrowserAction.Execute;
-		end else if res > GetActiveContent.Count then begin
-			BrowserMovement(IntToStr(GetActiveContent.Count), FActiveContent);
-			SetFocusForBrowserAction.Execute;
-		end;
-	end;
-end;
-
-procedure TGikoForm.JumpToNumOfResActionUpdate(Sender: TObject);
-begin
-	JumpToNumOfResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
-end;
-
-procedure TGikoForm.FavoriteTreeViewCollapseActionExecute(Sender: TObject);
-var
-	node	: TTreeNode;
-begin
-
-	node := FavoriteTreeView.Items.GetFirstNode;
-	while node <> nil do begin
-		if node.HasChildren then
-			node.Expanded := False;
-		node := node.GetNext;
-	end;
-
-end;
-
 initialization
 				OleInitialize(nil);
 finalization

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -187,7 +187,7 @@ type
 		function Is2chHost(Host: string): Boolean;
 		function Parse2chURL(const url: string; const path: string; const document: string; var BBSID: string; var BBSKey: string): Boolean;
 		function Parse2chURL2(URL: string): TPathRec;
-		procedure ParseURI(const URL : string; var Protocol, Host, Path, Document, Port, Bookmark: string);
+		procedure ParseURI(var URL, Protocol, Host, Path, Document, Port, Bookmark: string);
 		function GetVersionBuild: Integer;
 		function	GetBrowsableThreadURL( inURL : string ) : string;
 		function	GetThreadURL2BoardURL( inURL : string ) : string;
@@ -3424,7 +3424,7 @@ begin
 	end;
 end;
 
-procedure TGikoSys.ParseURI(const URL : string; var Protocol, Host, Path, Document, Port, Bookmark: string);
+procedure TGikoSys.ParseURI(var URL, Protocol, Host, Path, Document, Port, Bookmark: string);
 var
 	URI: TIdURI;
 begin

--- a/GikoXMLDoc.pas
+++ b/GikoXMLDoc.pas
@@ -10,7 +10,7 @@ interface
 uses
 //==================================================
 
-	Classes, SysUtils, Windows,
+	Classes, SysUtils,
 	YofUtils;
 
 //==================================================
@@ -26,7 +26,6 @@ type
 	IXMLNode = class
 	private
 		FNodeName : string;
-		FCapacity : Integer;
 		FCount : Integer;
 		FAttributeCount : Integer;
 		FChildNodes : IXMLNode;
@@ -55,16 +54,15 @@ type
 	end;
 
 function XMLCloseCheck(
-	var p				: PChar;
-	const tail	: PChar;
+	var f : TFileStream;
 	var node : IXMLNode;
+	ch : char;
 	out tag : string;
 	out closed : boolean // ŒÄ‚яo‚µ‚½ƒ‹[ƒ`ƒ“‚ª node ‚ð•Â‚¶‚é‚ׂ«‚È‚ç true
 ) : boolean; // ch ‚ð‚±‚Ìƒ‹[ƒ`ƒ“‚ªˆ—‚µ‚½‚È‚ç true
 
 function XMLReadNode(
-	var p				: PChar;
-	const tail	: PChar;
+	var f : TFileStream;
 	var node : IXMLNode
 ) : string; // node ˆÈŠO‚̃m[ƒh‚ª•Â‚¶‚ç‚ꂽê‡‚̃m[ƒh–¼
 
@@ -77,8 +75,6 @@ procedure LoadXMLDocument(
 const
 //==================================================
 	kXMLWhite : TSysCharSet = [#0..#$20];
-	kXMLNodeNameStop : TSysCharSet = [#0..#$20, '/', '>'];
-	kXMLAttributeNameStop : TSysCharSet = [#0..#$20, '=', '/', '>'];
 	kXMLDQuote : TSysCharSet = ['"'];
 	kXMLTagStart : TSysCharSet = ['<'];
 	kXMLTagEnd : TSysCharSet = ['>'];
@@ -94,7 +90,6 @@ begin
 
 	inherited;
 
-	FCapacity := 0;
 	FCount := 0;
 
 end;
@@ -143,11 +138,7 @@ procedure IXMLNode.Add( node : IXMLNode );
 begin
 
 	Inc( FCount );
-	if FCount > FCapacity then begin
-		FCapacity := FCapacity + (FCapacity shr 2) + 1;
-		SetLength( FNodes, FCapacity );
-	end;
-
+	SetLength( FNodes, FCount );
 	FNodes[ FCount - 1 ] := node;
 
 end;
@@ -163,7 +154,6 @@ begin
 	index := FAttributeCount;
 	Inc( FAttributeCount );
 	SetLength( FAttributes, FAttributeCount );
-
 	FAttributes[ index ].Name := Name;
 	FAttributes[ index ].Value := Value;
 
@@ -176,133 +166,116 @@ begin
 
 end;
 
-{*!
-\brief	tok ‚ð’T‚·
-\param	p			’TõŠJŽnˆÊ’u
-\param	tail	I—¹ˆÊ’u + 1
-\param	tok		’T‚·ƒLƒƒƒ‰ƒNƒ^
-\return	tok ‚ªÅ‰‚ÉŒ©‚‚©‚Á‚½ˆÊ’u
-*}
-function AnsiStrTok(
-	p			: PChar;
-	const tail	: PChar;
-	const tok : TSysCharSet
-) : PChar;
+// untilSet ‚É‚È‚é‚Ü‚Å”ò‚΂·
+procedure FileThruUntil(
+	var f : TFileStream;
+	const untilSet : TSysCharSet
+);
+var
+	ch : char;
 begin
 
-	while p < tail do
+	while f.Position < f.Size do
 	begin
-		if p^ in tok then
+		f.ReadBuffer( ch, 1 );
+		if ch in untilSet then
 		begin
-			Break;
-		end else if p^ in kXMLKanji then
-			p := p + 2
-		else
-			Inc( p );
+			f.Seek( -1, soFromCurrent );
+			exit;
+		end else if ch in kXMLKanji then
+			f.Seek( 1, soFromCurrent );
 	end;
 
-	Result := p;
-
 end;
 
-{*!
-\brief	tok ‚Å‚Í–³‚¢ƒLƒƒƒ‰ƒNƒ^‚ð’T‚·
-\param	p			’TõŠJŽnˆÊ’u
-\param	tail	I—¹ˆÊ’u + 1
-\param	tok		’T‚·ƒLƒƒƒ‰ƒNƒ^
-\return	tok ‚Å‚Í‚È‚¢ƒLƒƒƒ‰ƒNƒ^‚ªÅ‰‚ÉŒ©‚‚©‚Á‚½ˆÊ’u
-*}
-function AnsiStrNonTok(
-	p			: PChar;
-	const tail	: PChar;
-	const tok : TSysCharSet
-) : PChar;
+// whileSet ‚ÌŠÔ”ò‚΂·
+procedure FileThruWhile(
+	var f : TFileStream;
+	const whileSet : TSysCharSet
+);
+var
+	ch : char;
 begin
 
-	while p < tail do
+	while f.Position < f.Size do
 	begin
-		if p^ in tok then
+		f.ReadBuffer( ch, 1 );
+		if ch in whileSet then
 		begin
-			if p^ in kXMLKanji then
-				p := p + 2
-			else
-				Inc( p );
+			if ch in kXMLKanji then
+				f.ReadBuffer( ch, 1 );
 		end else begin
-			Break;
+			f.Seek( -1, soFromCurrent );
+			exit;
 		end;
 	end;
 
-	Result := p;
-
 end;
 
 function XMLCloseCheck(
-	var p : PChar;
-	const tail	: PChar;
+	var f : TFileStream;
 	var node : IXMLNode;
+	ch : char;
 	out tag : string;
 	out closed : boolean
 ) : boolean; // ch ‚ð‚±‚Ìƒ‹[ƒ`ƒ“‚ªˆ—‚µ‚½‚È‚ç true
 var
-	found		: PChar;
+	last : Integer;
+	tagLen : Integer;
 begin
 
 	closed := false;
 	Result := false;
 	tag := '';
 
-	case p^ of
-	'>':
-		begin
-			// ŠJŽnƒ^ƒO‚̍Ōã‚Ü‚Å“Ç‚ñ‚¾
-			Inc( p );	// '>' ”ò‚΂µ
-			Result := true;
-		end;
-
-	'?':
-		begin
-			// <?xml?> ‚Ý‚½‚¢‚Ȃ₁B‚æ‚Á‚Ä–³Ž‹
-			p := AnsiStrTok( p, tail, kXMLTagEnd );
-			p := AnsiStrTok( p, tail, kXMLTagStart );
-			Inc( p );	// '<' ”ò‚΂µ
-			p := AnsiStrNonTok( p, tail, kXMLWhite );
-			//closed := true;
-			Result := true;
-		end;
-
-	'/':
-		begin
-			// ƒ^ƒO–¼‚ð“ǂݍž‚ñ‚Å•Ô‚·
-			Inc( p );	// '/' ”ò‚΂µ
-			found := AnsiStrTok( p, tail, kXMLTagEnd );
-//			tag := Copy( p, 0, found - p );	// ‰½ŒÌ‚©Œƒ’x
-			SetLength( tag, found - p );
-			CopyMemory( PChar( tag ), p, found - p );
-
-			p := found + 1; // '>' ”ò‚΂µ
-			closed := true;
-			Result := true;
-		end;
+	if ch = '>' then
+	begin
+		// ŠJŽnƒ^ƒO‚̍Ōã‚Ü‚Å“Ç‚ñ‚¾
+		Result := true;
+	end else if ch = '?' then
+	begin
+		// <?xml?> ‚Ý‚½‚¢‚Ȃ₁B‚æ‚Á‚Ä–³Ž‹
+		FileThruUntil( f, kXMLTagEnd );
+		FileThruUntil( f, kXMLTagStart );
+		f.Seek( 1, soFromCurrent );
+		FileThruWhile( f, kXMLWhite );
+		//closed := true;
+		Result := true;
+	end else if ch = '/' then
+	begin
+		// ƒ^ƒO–¼‚ð“ǂݍž‚ñ‚Å•Ô‚·
+		last := f.Position;
+		FileThruUntil( f, kXMLTagEnd );
+		tagLen := f.Position - last;
+		SetLength( tag, tagLen );
+
+		f.Seek( last, soFromBeginning );
+		f.ReadBuffer( PChar( tag )^, tagLen );
+
+		f.Seek( f.Position + 1, soFromBeginning ); // '>' ”ò‚΂µ
+		closed := true;
+		Result := true;
 	end;
 
 end;
 
 function XMLReadNode(
-	var p : PChar;
-	const tail	: PChar;
+	var f : TFileStream;
 	var node : IXMLNode
 ) : string; // node ˆÈŠO‚̃m[ƒh‚ª•Â‚¶‚ç‚ꂽê‡‚̃m[ƒh–¼
 var
 	child : IXMLNode;
 
-	found : PChar;
+	last : Integer;
 	tag : string;
+	tagLen : Integer;
 
 	isClosed : boolean;
 
-	nodeName : string;
 	attributeName : string;
 	attributeValue : string;
+
+	ch : char;
 label
 	NextNode;
 begin
@@ -310,14 +283,16 @@ begin
 		// node ‚̓ǂݍž‚Ý(1 ƒ‹[ƒv‚ɂ‚« 1 ƒm[ƒh)
 		node.ChildNodes := IXMLNode.Create;
 
-		while p < tail do
+		while f.Position < f.Size do
 		begin
 			// NodeName “ǂݍž‚Ý
-			p := AnsiStrNonTok( p, tail, kXMLWhite );
+			FileThruWhile( f, kXMLWhite );
 
-			while p < tail do
+			while f.Position < f.Size do
 			begin
-				if XMLCloseCheck( p, tail, node, tag, isClosed ) then
+				f.ReadBuffer( ch, 1 );
+
+				if XMLCloseCheck( f, node, ch, tag, isClosed ) then
 				begin
 					if isClosed then
 					begin
@@ -326,12 +301,11 @@ begin
 					end;
 
 					goto NextNode;
-				end else if p^ = '<' then
+				end else if ch = '<' then
 				begin
 					// V‹Kƒm[ƒh
-					Inc( p );
 					child := IXMLNode.Create;
-					tag := XMLReadNode( p, tail, child );
+					tag := XMLReadNode( f, child );
 					node.ChildNodes.Add( child );
 
 					// ƒ^ƒO‚ª•Â‚¶‚ç‚ꂽ
@@ -344,32 +318,35 @@ begin
 					end;
 
 					goto NextNode;
-				end else if p^ in kXMLWhite then
+				end else if ch in kXMLWhite then
 				begin
 					// NodeName Š®—¹
 					break;
 				end else begin
-					found := AnsiStrTok( p, tail, kXMLNodeNameStop );
-					SetLength( nodeName, found - p );
-					CopyMemory( PChar( nodeName ), p, found - p );
-					node.NodeName := nodeName;
+					node.NodeName := node.NodeName + ch;
 
-					p := found;
+					if ch in kXMLKanji then
+					begin
+						f.ReadBuffer( ch, 1 );
+						node.NodeName := node.NodeName + ch;
+					end;
 				end;
 			end;
 
 			// Attribute ‚̓ǂݍž‚Ý
-			while p < tail do
+			while f.Position < f.Size do
 			begin
 				// Attribute ‚Ì–¼‘O‚ð“ǂݍž‚Ý
 				attributeName := '';
 				attributeValue := '';
 
-				p := AnsiStrNonTok( p, tail, kXMLWhite );
+				FileThruWhile( f, kXMLWhite );
 
-				while p < tail do
+				while f.Position < f.Size do
 				begin
-					if XMLCloseCheck( p, tail, node, tag, isClosed ) then
+					f.ReadBuffer( ch, 1 );
+
+					if XMLCloseCheck( f, node, ch, tag, isClosed ) then
 					begin
 						if isClosed then
 						begin
@@ -381,30 +358,33 @@ begin
 
 						// ŽŸ‚̃m[ƒh‚Ö
 						goto NextNode;
-					end else if p^ = '=' then
+					end else if ch = '=' then
 					begin
 						// ‚±‚±‚©‚ç‚Í’l‚ªŽn‚Ü‚é‚Ì‚Å–¼‘O‚͏I—¹
-						Inc( p );
 						break;
-					end else if p^ in kXMLWhite then
+					end else if ch in kXMLWhite then
 					begin
 						// Value ‚ª‘¶Ý‚µ‚È‚¢(‹KŠiŠO)‚Ì‚ÅŽŸ‚̃m[ƒh‚Ö
 						goto NextNode;
 					end else begin
-						found := AnsiStrTok( p, tail, kXMLAttributeNameStop );
-						SetLength( attributeName, found - p );
-						CopyMemory( PChar( attributeName ), p, found - p );
+						attributeName := attributeName + ch;
 
-						p := found;
+						if ch in kXMLKanji then
+						begin
+							f.ReadBuffer( ch, 1 );
+							attributeName := attributeName + ch;
+						end;
 					end;
 				end;
 
 				// Attribute ‚Ì’l‚ð“ǂݍž‚Ý
-				p := AnsiStrNonTok( p, tail, kXMLWhite );
+				FileThruWhile( f, kXMLWhite );
 
-				while p < tail do
+				while f.Position < f.Size do
 				begin
-					if XMLCloseCheck( p, tail, node, tag, isClosed ) then
+					f.ReadBuffer( ch, 1 );
+
+					if XMLCloseCheck( f, node, ch, tag, isClosed ) then
 					begin
 						if isClosed then
 						begin
@@ -420,22 +400,24 @@ begin
 
 						// ŽŸ‚̃m[ƒh‚Ö
 						goto NextNode;
-					end else if p^ = '"' then
+					end else if ch = '"' then
 					begin
 						// ’l‚ª "" ‚ÅŠ‡‚ç‚ê‚Ä‚é‚Ì‚Å(‚Ä‚¢‚¤‚©Š‡‚ç‚ê‚Ä‚È‚«‚á‚¢‚¯‚È‚¢‚ñ‚¾‚¯‚Ç)
 						// ’l‚ðˆêŠ‡“ǂݍž‚Ý
-						Inc( p );
-						found := AnsiStrTok( p, tail, kXMLDQuote );
-//						attributeValue := Copy( p, 0, found - p );	// ‰½ŒÌ‚©Œƒ’x
-						SetLength( attributeValue, found - p );
-						CopyMemory( PChar( attributeValue ), p, found - p );
+						last := f.Position;
+						FileThruUntil( f, kXMLDQuote );
+						tagLen := f.Position - last;
+						SetLength( attributeValue, tagLen );
+
+						f.Seek( last, soFromBeginning );
+						f.ReadBuffer( PChar( attributeValue )^, tagLen );
 
 						node.AddAttribute( attributeName, HtmlDecode( attributeValue ) );
 
 						// ’l‚ð“ǂݏI‚í‚Á‚½‚̂ŏI—¹
-						p := found + 1; // '"' ”ò‚΂µ
+						f.Seek( f.Position + 1, soFromBeginning ); // '"' ”ò‚΂µ
 						break;
-					end else if p^ in kXMLWhite then
+					end else if ch in kXMLWhite then
 					begin
 						// ‹KŠiŠO‚¾‚¯‚Ç‚Ë
 						node.AddAttribute( attributeName, HtmlDecode( attributeValue ) );
@@ -443,14 +425,12 @@ begin
 						goto NextNode;
 					end else begin
 						// ‹KŠiŠO‚¾‚¯‚LjꉞŽæ‚Á‚Ä‚¨‚­
-						attributeValue := attributeValue + p^;
+						attributeValue := attributeValue + ch;
 
-						if p^ in kXMLKanji then
+						if ch in kXMLKanji then
 						begin
-							attributeValue := attributeValue + (p + 1)^;
-							p := p + 2;
-						end else begin
-							Inc( p );
+							f.ReadBuffer( ch, 1 );
+							attributeValue := attributeValue + ch;
 						end;
 					end;
 				end;
@@ -469,21 +449,19 @@ procedure LoadXMLDocument(
 type
 	xmlMode = ( xmlHoge );
 var
-	xmlFile : TMappedFile;
-	p				: PChar;
+	xmlFile : TFileStream;
 begin
-		//Result := IXMLDocument.Create;
+    //Result := IXMLDocument.Create;
 	//doc := IXMLDocument.Create;
 
-	xmlFile := TMappedFile.Create( fileName );
+	xmlFile := TFileStream.Create( fileName, fmOpenRead );
 
-	try
-		p := xmlFile.Memory;
-		XMLReadNode( p, p + xmlFile.Size, IXMLNode( doc ) );
-		//XMLReadNode( xmlFile, IXMLNode( Result ) );
-	finally
+    try
+        XMLReadNode( xmlFile, IXMLNode( doc ) );
+    	//XMLReadNode( xmlFile, IXMLNode( Result ) );
+    finally
 		xmlFile.Free;
-	end;
+    end;
 
 	//Result := doc;
 

--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -156,7 +156,9 @@ var
 	Idx: Integer;
 	ATitle: string;
 	DownloadResult: Boolean;
+	foundPos: Integer;
 	boardPlugIn 	: TBoardPlugIn;
+	listContent 	: string;
 	lastContent		: string;
 	logFile				: TFileStream;
 	adjustMargin	: Integer;
@@ -1175,7 +1177,7 @@ end;
 }
 procedure TDownloadItem.SaveItemFile;
 var
-	Body, oldBody: TStringList;
+	Body: TStringList;
 	Cnt: Integer;
 	OldCnt: Integer;
 	FileName: string;
@@ -1184,11 +1186,11 @@ var
 	NewRes: Integer;
 	finish : Boolean;
 	loopCnt : Integer;
-//	KokoTxt	: string;
-//	KokoIdx	: Integer;
-//	NewTxt	: string;
-//	NewIdx	: Integer;
-//	LastTxt	: string;
+	KokoTxt	: string;
+	KokoIdx	: Integer;
+	NewTxt	: string;
+	NewIdx	: Integer;
+	LastTxt	: string;
 	LastIdx	: Integer;
 begin
 	FileName := ThreadItem.GetThreadFileName;
@@ -1206,6 +1208,10 @@ begin
 		try
 		//		if FileExists(FileName) and (ResponseCode = 206) then begin
 			if FileExists(FileName) and (State = gdsDiffComplete) then begin
+		//			Body.Text := Content;
+		//			if Body.Count > 0 then
+		//				Body.Delete(0);
+		//			Content := Body.Text;
 				loopCnt := 10;
 				repeat
 					finish := true;
@@ -1218,55 +1224,53 @@ begin
 					except
 						on E:EFOpenError do begin
 							sleep(10);
+							finish := false;
 							Dec(loopCnt);
-							if loopCnt > 0 then
-								finish := false;
 						end;
 					end;
-				until finish;
+				until finish and ( loopCnt > 0 );
 				//Cnt := Body.Count;
 			end else begin
 				if IsAbone then begin
 					// ‚ ‚ځ[‚ñ‚ðŒŸo‚µ‚½‚Ì‚Å‚±‚±‚Ü‚Å“Ç‚ñ‚¾‚ƐV’…ƒŒƒX”Ԃ̂‚¯‚È‚¨‚µ
-					oldBody := TStringList.Create;
-					try
-						loopCnt := 10;
-						repeat
-							finish := true;
-							try
-								oldBody.LoadFromFile(FileName);
-							except
-								on E:EFOpenError do begin
-									sleep(10);
-									Dec(loopCnt);
-									if loopCnt > 0 then
-										finish := false
-									else
-										finish := true;
-								end;
+					loopCnt := 10;
+					repeat
+						finish := true;
+						try
+							Body.LoadFromFile(FileName);
+						except
+							on E:EFOpenError do begin
+								sleep(10);
+								finish := false;
+								Dec(loopCnt);
 							end;
-						until finish;
-
-						Body.Text := Content;
-						if (ThreadItem.Kokomade > 0) and (ThreadItem.Kokomade <= oldBody.Count) then begin
-							ThreadItem.Kokomade := Body.IndexOf(oldBody.Strings[ ThreadItem.Kokomade - 1 ]);
-							if ThreadItem.Kokomade <> -1 then ThreadItem.Kokomade := ThreadItem.Kokomade + 1;
 						end;
+					until finish and ( loopCnt > 0 );
+					LastTxt := Body.Strings[ Body.Count - 1 ];
+					if ThreadItem.Kokomade > 0 then begin
+						KokoTxt := Body.Strings[ ThreadItem.Kokomade - 1 ];
+					end;
+					if ThreadItem.NewReceive > 0 then begin
+						NewTxt := Body.Strings[ ThreadItem.NewReceive - 1 ];
+					end;
 
-						LastIdx := oldBody.Count;
-						repeat
-							Dec(LastIdx);
-							OldCnt := Body.IndexOf(oldBody.Strings[ LastIdx ]) + 1;
-						until ( OldCnt <> 0 ) or (LastIdx = 0);
-
-						if OldCnt >= Body.Count then OldCnt := Body.Count - 1;
-						NewRes := Body.Count - OldCnt;
-
+					Body.Text := Content;
+ 					Body.Find( LastTxt, LastIdx );
+					OldCnt := LastIdx + 1;
+					NewRes := Body.Count - OldCnt;
 
-					finally
-						oldBody.Free;
+					if ThreadItem.Kokomade > 0 then begin
+						Body.Find( KokoTxt, KokoIdx );
+						ThreadItem.Kokomade := KokoIdx + 1;
+					end;
+					if ThreadItem.NewReceive > 0 then begin
+						Body.Find( NewTxt, NewIdx );
+						Inc( NewIdx );
+						if OldCnt < NewIdx then begin
+							OldCnt := NewIdx;
+							NewRes := Body.Count - NewIdx;
+						end;
 					end;
-
 				end else begin
 					Body.Text := Content;
 					//ThreadItem.Count := 0;
@@ -1299,10 +1303,8 @@ begin
 	ThreadItem.AllResCount := ThreadItem.Count;
 	ThreadItem.IsLogFile := True;
 	ThreadItem.RoundDate := Now;
-	if not ThreadItem.UnRead then begin
-		ThreadItem.UnRead := True;
-		ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead + 1;
-	end;
+	ThreadItem.UnRead := True;
+	ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead + 1;
 //	if ThreadItem.RoundNo = 6 then
 //		ThreadItem.RoundNo := 0;
 

--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -1,6 +1,6 @@
 object KuroutOption: TKuroutOption
-  Left = 43
-  Top = 114
+  Left = 260
+  Top = 167
   Width = 525
   Height = 457
   Caption = #35443#32048#35373#23450
@@ -140,182 +140,6 @@ object KuroutOption: TKuroutOption
           TabOrder = 3
         end
       end
-      object GroupBox1: TGroupBox
-        Left = 14
-        Top = 232
-        Width = 475
-        Height = 57
-        Caption = #12395#12385#12419#12435#35486#26696#20869#27231#33021
-        TabOrder = 2
-        Visible = False
-        object Label5: TLabel
-          Left = 8
-          Top = 16
-          Width = 234
-          Height = 12
-          Caption = #12395#12385#12419#12435#35486#12434#20351#12387#12390#12462#12467#12490#12499#12434#12469#12509#12540#12488#12375#12414#12377#12290
-        end
-        object GengoSupport: TCheckBox
-          Left = 8
-          Top = 32
-          Width = 201
-          Height = 17
-          Caption = #12395#12385#12419#12435#35486#26696#20869#27231#33021#12434#26377#21177#12395#12377#12427
-          TabOrder = 0
-        end
-      end
-    end
-    object ColumnTabSheet: TTabSheet
-      Caption = #35443#32048#35373#23450'2'
-      ImageIndex = 1
-      object CategoryColumnGroupBox: TGroupBox
-        Left = 8
-        Top = 16
-        Width = 481
-        Height = 145
-        Caption = #34920#31034#12459#12521#12512#35373#23450'('#12459#12486#12468#12522#12540')'
-        TabOrder = 0
-        object Label1: TLabel
-          Left = 80
-          Top = 16
-          Width = 60
-          Height = 12
-          Caption = #38750#34920#31034#38917#30446
-        end
-        object Label2: TLabel
-          Left = 312
-          Top = 16
-          Width = 48
-          Height = 12
-          Caption = #34920#31034#38917#30446
-        end
-        object CUnVisibledListBox: TListBox
-          Left = 32
-          Top = 33
-          Width = 161
-          Height = 65
-          ItemHeight = 12
-          TabOrder = 0
-        end
-        object CVisibledListBox: TListBox
-          Left = 264
-          Top = 33
-          Width = 161
-          Height = 65
-          ItemHeight = 12
-          TabOrder = 1
-        end
-        object CAddButton: TButton
-          Left = 200
-          Top = 38
-          Width = 57
-          Height = 25
-          Caption = '>>'
-          TabOrder = 2
-          OnClick = CAddButtonClick
-        end
-        object CDeleteButton: TButton
-          Left = 200
-          Top = 70
-          Width = 57
-          Height = 25
-          Caption = '<<'
-          TabOrder = 3
-          OnClick = CDeleteButtonClick
-        end
-        object CUpButton: TButton
-          Left = 264
-          Top = 104
-          Width = 75
-          Height = 25
-          Caption = #19978#12408
-          TabOrder = 4
-          OnClick = CUpButtonClick
-        end
-        object CDownButton: TButton
-          Left = 352
-          Top = 104
-          Width = 75
-          Height = 25
-          Caption = #19979#12504
-          TabOrder = 5
-          OnClick = CDownButtonClick
-        end
-      end
-      object BoardColumnGroupBox: TGroupBox
-        Left = 8
-        Top = 168
-        Width = 481
-        Height = 185
-        Caption = #34920#31034#12459#12521#12512#35373#23450'('#26495')'
-        TabOrder = 1
-        object Label3: TLabel
-          Left = 80
-          Top = 16
-          Width = 60
-          Height = 12
-          Caption = #38750#34920#31034#38917#30446
-        end
-        object Label4: TLabel
-          Left = 312
-          Top = 16
-          Width = 48
-          Height = 12
-          Caption = #34920#31034#38917#30446
-        end
-        object BUnVisibledListBox: TListBox
-          Left = 32
-          Top = 31
-          Width = 161
-          Height = 113
-          ItemHeight = 12
-          TabOrder = 0
-        end
-        object BVisibledListBox: TListBox
-          Left = 264
-          Top = 31
-          Width = 161
-          Height = 113
-          ItemHeight = 12
-          TabOrder = 1
-        end
-        object BAddButton: TButton
-          Left = 200
-          Top = 48
-          Width = 57
-          Height = 25
-          Caption = '>>'
-          TabOrder = 2
-          OnClick = BAddButtonClick
-        end
-        object BDeleteButton: TButton
-          Left = 200
-          Top = 80
-          Width = 57
-          Height = 25
-          Caption = '<<'
-          TabOrder = 3
-          OnClick = BDeleteButtonClick
-        end
-        object BUpButton: TButton
-          Left = 264
-          Top = 152
-          Width = 75
-          Height = 25
-          Caption = #19978#12408
-          TabOrder = 4
-          OnClick = BUpButtonClick
-        end
-        object BDownButton: TButton
-          Left = 352
-          Top = 152
-          Width = 75
-          Height = 25
-          Caption = #19979#12504
-          TabOrder = 5
-          OnClick = BDownButtonClick
-        end
-      end
     end
   end
   object OkBotton: TButton

--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -8,67 +8,35 @@ uses
 
 type
   TKuroutOption = class(TForm)
-	PageControl1: TPageControl;
-	TabSheet1: TTabSheet;
-	GroupBox11: TGroupBox;
-	Label17: TLabel;
-	Label18: TLabel;
-	RecvBufferSize: TEdit;
-	ProxyProtocolCheckBox: TCheckBox;
-	ProtocolCheckBox: TCheckBox;
-	GroupBox13: TGroupBox;
-	Label24: TLabel;
-	Label25: TLabel;
-	PostTimeLabel: TLabel;
-	Label27: TLabel;
-	PostTimeCheckBox: TCheckBox;
-	PostTimeEdit: TEdit;
-	PutPostTimeRadioButton: TRadioButton;
-	BackPostTimeRadioButton: TRadioButton;
-	OkBotton: TButton;
-	CancelBotton: TButton;
-	ApplyButton: TButton;
-	ColumnTabSheet: TTabSheet;
-	CategoryColumnGroupBox: TGroupBox;
-	CUnVisibledListBox: TListBox;
-	CVisibledListBox: TListBox;
-	CAddButton: TButton;
-	CDeleteButton: TButton;
-	BoardColumnGroupBox: TGroupBox;
-	BUnVisibledListBox: TListBox;
-	BVisibledListBox: TListBox;
-	BAddButton: TButton;
-	BDeleteButton: TButton;
-	Label1: TLabel;
-	Label2: TLabel;
-	Label3: TLabel;
-	Label4: TLabel;
-	CUpButton: TButton;
-	CDownButton: TButton;
-	BUpButton: TButton;
-	BDownButton: TButton;
-    GroupBox1: TGroupBox;
-    GengoSupport: TCheckBox;
-    Label5: TLabel;
-	procedure OkBottonClick(Sender: TObject);
-	procedure FormCreate(Sender: TObject);
-	procedure CDeleteButtonClick(Sender: TObject);
-	procedure CAddButtonClick(Sender: TObject);
-	procedure BAddButtonClick(Sender: TObject);
-	procedure BDeleteButtonClick(Sender: TObject);
-    procedure CUpButtonClick(Sender: TObject);
-    procedure CDownButtonClick(Sender: TObject);
-    procedure BUpButtonClick(Sender: TObject);
-    procedure BDownButtonClick(Sender: TObject);
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    GroupBox11: TGroupBox;
+    Label17: TLabel;
+    Label18: TLabel;
+    RecvBufferSize: TEdit;
+    ProxyProtocolCheckBox: TCheckBox;
+    ProtocolCheckBox: TCheckBox;
+    GroupBox13: TGroupBox;
+    Label24: TLabel;
+    Label25: TLabel;
+    PostTimeLabel: TLabel;
+    Label27: TLabel;
+    PostTimeCheckBox: TCheckBox;
+    PostTimeEdit: TEdit;
+    PutPostTimeRadioButton: TRadioButton;
+    BackPostTimeRadioButton: TRadioButton;
+    OkBotton: TButton;
+    CancelBotton: TButton;
+    ApplyButton: TButton;
+    procedure OkBottonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
-	{ Private éŒ¾ }
+    { Private éŒ¾ }
 	procedure SetValue;
 	procedure SaveSetting;
 	procedure RecvBufferSizeExit(Sender: TObject);
 	procedure PostTimeEditExit(Sender: TObject);
 	procedure PostTimeCheckBoxClick(Sender: TObject);
-	procedure SetColumnData();
-	procedure PostColumnData();
   public
 	{ Public éŒ¾ }
   end;
@@ -78,9 +46,6 @@ var
 
 implementation
 
-uses
-	Giko, Setting;
-
 {$R *.dfm}
 
 procedure TKuroutOption.SetValue;
@@ -99,10 +64,6 @@ begin
 		PutPostTimeRadioButton.Checked := True
 	else
 		BackPostTimeRadioButton.Checked := True;
-
-	SetColumnData();
-
-	PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
 end;
 
 procedure TKuroutOption.SaveSetting;
@@ -120,10 +81,6 @@ begin
 	else
 		GikoSys.Setting.TimeAdjustSec := 0;
 	GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
-
-        GikoSys.Setting.GengoSupport := GengoSupport.Checked;
-
-	GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
 end;
 
 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
@@ -152,7 +109,6 @@ procedure TKuroutOption.OkBottonClick(Sender: TObject);
 begin
 	RecvBufferSizeExit(Sender);
 	PostTimeEditExit(Sender);
-    PostColumnData();
 	SaveSetting;
 end;
 
@@ -162,191 +118,5 @@ begin
 	PostTimeCheckBoxClick(Sender);
 
 end;
-procedure TKuroutOption.SetColumnData();
-var
-	i, j : Integer;
-	flag : Boolean;
-begin
-
-	//===== ”ƒŠƒXƒg =====
-	for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
-		for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
-			if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
-				CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
-				break;
-			end;
-		end;
-	end;
-
-	for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
-		flag := false;
-		for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
-			if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
-				flag := true;
-				break;
-			end;
-		end;
-		if not flag then
-			CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
-	end;
-
-	//===== ƒXƒŒƒŠƒXƒg =====
-	for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
-		for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
-			if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
-				BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
-				Break;
-			end;
-		end;
-	end;
-
-	for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
-		flag := false;
-		for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
-			if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
-				flag := true;
-				Break;
-			end;
-		end;
-		if not flag then
-			BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
-
-	end;
-end;
-procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to CVisibledListBox.Count - 1 do begin
-		if CVisibledListBox.Selected[i] then begin
-			CUnVisibledListBox.AddItem(	CVisibledListBox.Items.Strings[ i ], nil);
-			CVisibledListBox.DeleteSelected;
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.CAddButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to CUnVisibledListBox.Count - 1 do begin
-		if CUnVisibledListBox.Selected[i] then begin
-			CVisibledListBox.AddItem(	CUnVisibledListBox.Items.Strings[ i ], nil);
-			CUnVisibledListBox.DeleteSelected;
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.BAddButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to BUnVisibledListBox.Count - 1 do begin
-		if BUnVisibledListBox.Selected[i] then begin
-			BVisibledListBox.AddItem(	BUnVisibledListBox.Items.Strings[ i ], nil);
-			BUnVisibledListBox.DeleteSelected;
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to BVisibledListBox.Count - 1 do begin
-		if BVisibledListBox.Selected[i] then begin
-			BUnVisibledListBox.AddItem(	BVisibledListBox.Items.Strings[ i ], nil);
-			BVisibledListBox.DeleteSelected;
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.CUpButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 1 to CVisibledListBox.Count - 1 do begin
-		if CVisibledListBox.Selected[i] then begin
-			CVisibledListBox.Items.Exchange(i, i -1);
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.CDownButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to CVisibledListBox.Count - 2 do begin
-		if CVisibledListBox.Selected[i] then begin
-			CVisibledListBox.Items.Exchange(i, i + 1);
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.BUpButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 1 to BVisibledListBox.Count - 1 do begin
-		if BVisibledListBox.Selected[i] then begin
-			BVisibledListBox.Items.Exchange(i, i -1);
-			break;
-		end;
-	end;
-end;
-
-procedure TKuroutOption.BDownButtonClick(Sender: TObject);
-var
-	i: Integer;
-begin
-	for i := 0 to BVisibledListBox.Count - 2 do begin
-		if BVisibledListBox.Selected[i] then begin
-			BVisibledListBox.Items.Exchange(i, i + 1);
-			break;
-		end;
-	end;
-end;
-
-
-procedure TKuroutOption.PostColumnData();
-var
-	i, j : Integer;
-begin
-	GikoForm.ActiveListColumnSave;
-
-	//===== ”ƒŠƒXƒg =====
-	for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
-		GikoSys.Setting.CategoryColumnOrder.Delete(i);
-
-	for i := 0 to CVisibledListBox.Count - 1 do begin
-		for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
-			if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
-				GikoSys.Setting.CategoryColumnOrder.Add(  TGikoCategoryColumnID(j) );
-				break;
-			end;
-		end;
-	end;
-
-	//===== ƒXƒŒƒŠƒXƒg =====
-	for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
-		GikoSys.Setting.BoardColumnOrder.Delete(i);
-
-	for i := 0 to BVisibledListBox.Count - 1 do begin
-		for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
-			if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
-				GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
-				Break;
-			end;
-		end;
-	end;
-	//ƒXƒŒˆê——‚Ì•`‰æ‚̍XV
-	GikoForm.SetActiveList(GikoForm.ActiveList);
-end;
 
 end.

--- a/Option.dfm
+++ b/Option.dfm
@@ -1,6 +1,6 @@
 object OptionDialog: TOptionDialog
-  Left = 188
-  Top = 128
+  Left = 410
+  Top = 236
   BorderStyle = bsDialog
   Caption = #12458#12503#12471#12519#12531
   ClientHeight = 428
@@ -60,9 +60,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = TabSheet3
+    ActivePage = ThreadSheet
     MultiLine = True
-    TabIndex = 3
+    TabIndex = 4
     TabOrder = 3
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -252,7 +252,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 12
+          ItemHeight = 0
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end
@@ -654,7 +654,7 @@ object OptionDialog: TOptionDialog
         Left = 12
         Top = 8
         Width = 477
-        Height = 41
+        Height = 64
         Caption = #34920#31034#35373#23450
         TabOrder = 0
         object ThreadListIconCheckBox: TCheckBox
@@ -665,10 +665,18 @@ object OptionDialog: TOptionDialog
           Caption = #12473#12524#12483#12489#26356#26032#12450#12452#12467#12531#12434#34920#31034#12377#12427'(&I)'
           TabOrder = 0
         end
+        object NonAcquiredCountCheckBox: TCheckBox
+          Left = 12
+          Top = 40
+          Width = 217
+          Height = 17
+          Caption = #21462#24471#25968#12398#20195#12431#12426#12395#26410#21462#24471#25968#12434#34920#31034#12377#12427
+          TabOrder = 1
+        end
       end
       object GroupBox16: TGroupBox
         Left = 12
-        Top = 52
+        Top = 76
         Width = 477
         Height = 64
         Caption = #12473#12524#20316#25104#26085#26178#34920#31034#35373#23450
@@ -692,7 +700,7 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox5: TGroupBox
         Left = 12
-        Top = 121
+        Top = 145
         Width = 477
         Height = 86
         Caption = #12502#12521#12454#12470#12398#26368#22823#21270
@@ -720,7 +728,7 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox17: TGroupBox
         Left = 12
-        Top = 212
+        Top = 236
         Width = 477
         Height = 63
         Caption = #12502#12521#12454#12470#12479#12502#38750#34920#31034#26178#35373#23450
@@ -758,9 +766,9 @@ object OptionDialog: TOptionDialog
       end
       object GroupBox18: TGroupBox
         Left = 12
-        Top = 278
+        Top = 302
         Width = 477
-        Height = 43
+        Height = 41
         Caption = 'dat'#33853#12385#12473#12524#12477#12540#12488#38918
         TabOrder = 4
         object DatOchiSortCombo: TComboBox
@@ -778,9 +786,7 @@ object OptionDialog: TOptionDialog
             #21462#24471#26085#26178'('#26119#38918')'
             #21462#24471#26085#26178'('#38477#38918')'
             #12473#12524#20316#25104#26085#26178'('#26119#38918')'
-            #12473#12524#20316#25104#26085#26178'('#38477#38918')'
-            #12473#12524#26368#32066#26356#26032#26085#26178#65288#26119#38918#65289
-            #12473#12524#26368#32066#26356#26032#26085#26178#65288#38477#38918#65289)
+            #12473#12524#20316#25104#26085#26178'('#38477#38918')')
         end
       end
     end

--- a/Option.pas
+++ b/Option.pas
@@ -90,6 +90,7 @@ type
     TabSheet3: TTabSheet;
     GroupBox9: TGroupBox;
     ThreadListIconCheckBox: TCheckBox;
+    NonAcquiredCountCheckBox: TCheckBox;
     GroupBox16: TGroupBox;
     CreationTimeLogsCheckBox: TCheckBox;
     FutureThreadCheckBox: TCheckBox;
@@ -765,32 +766,28 @@ begin
 
 	//ƒXƒŒƒbƒhˆê——XVƒAƒCƒRƒ“
 	ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
+	NonAcquiredCountCheckBox.Checked := GikoSys.Setting.NonAcquiredCount;
 	CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
 	FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
 	SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);
 
 	//dat—Ž‚¿ƒXƒŒƒ\[ƒg‡
-	case TGikoBoardColumnID( GikoSys.Setting.DatOchiSortIndex ) of
-		gbcTitle:
+	case GikoSys.Setting.DatOchiSortIndex of
+		0:
 			if GikoSys.Setting.DatOchiSortOrder then
 				DatOchiSortCombo.ItemIndex := 1
 			else
 				DatOchiSortCombo.ItemIndex := 2;
-		gbcRoundDate://gbcLastModified:
+		6:
 			if GikoSys.Setting.DatOchiSortOrder then
 				DatOchiSortCombo.ItemIndex := 3
 			else
 				DatOchiSortCombo.ItemIndex := 4;
-		gbcCreated:
+		7:
 			if GikoSys.Setting.DatOchiSortOrder then
 				DatOchiSortCombo.ItemIndex := 5
 			else
 				DatOchiSortCombo.ItemIndex := 6;
-		gbcLastModified:
-			if GikoSys.Setting.DatOchiSortOrder then
-				DatOchiSortCombo.ItemIndex := 7
-			else
-				DatOchiSortCombo.ItemIndex := 8;
 	else
 		DatOchiSortCombo.ItemIndex := 0;
 	end;
@@ -805,6 +802,7 @@ begin
 
         //TabAutoLoad
         TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
+
 end;
 
 procedure TOptionDialog.SaveSetting;
@@ -997,6 +995,11 @@ begin
 	//ƒXƒŒƒbƒhˆê——XVƒAƒCƒRƒ“
 	GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
 
+	//Žæ“¾”A–¢Žæ“¾”
+	if (GikoSys.Setting.NonAcquiredCount <> NonAcquiredCountCheckBox.Checked) and (GikoForm.ActiveList Is TBoard) then
+		FRepaintList := true;
+	GikoSys.Setting.NonAcquiredCount := NonAcquiredCountCheckBox.Checked;
+
 	GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
 	GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;
 	if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then
@@ -1009,36 +1012,28 @@ begin
 		0: GikoSys.Setting.DatOchiSortIndex := -1;	//•À‚Ñ‘Ö‚¦‚µ‚È‚¢
 		1: begin	//ƒXƒŒ”ԍ†(¸‡)
 			GikoSys.Setting.DatOchiSortOrder := true;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
+			GikoSys.Setting.DatOchiSortIndex := 0;
 		   end;
 		2: begin	//ƒXƒŒ”ԍ†(~‡)
 			GikoSys.Setting.DatOchiSortOrder := false;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcTitle );
+			GikoSys.Setting.DatOchiSortIndex := 0;
 		   end;
 		3: begin	//Žæ“¾“úŽž(¸‡)
 			GikoSys.Setting.DatOchiSortOrder := true;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
+			GikoSys.Setting.DatOchiSortIndex := 6;
 		   end;
 		4: begin	//Žæ“¾“úŽž(~‡)
 			GikoSys.Setting.DatOchiSortOrder := false;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcRoundDate );{gbcLastModified}
+			GikoSys.Setting.DatOchiSortIndex := 6;
 		   end;
 		5: begin	//ƒXƒŒì¬“úŽž(¸‡)
 			GikoSys.Setting.DatOchiSortOrder := true;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
+			GikoSys.Setting.DatOchiSortIndex := 7;
 		   end;
 		6: begin	//ƒXƒŒì¬“úŽž(~‡)
 			GikoSys.Setting.DatOchiSortOrder := false;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcCreated );
+			GikoSys.Setting.DatOchiSortIndex := 7;
 		   end;
-		7:	begin  //ƒXƒŒÅIXV“úŽži¸‡j
-			GikoSys.Setting.DatOchiSortOrder := true;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
-			end;
-		8:	begin  //ƒXƒŒÅIXV“úŽži~‡j
-			GikoSys.Setting.DatOchiSortOrder := false;
-			GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
-			end;
 	end;
 
 	GikoSys.Setting.WriteSystemSettingFile;

--- a/Setting.pas
+++ b/Setting.pas
@@ -55,62 +55,6 @@ type
 	/// ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
 	TGikoThreadRange = (gtrAll, gtrSelect, gtrLog, gtrNew);
 
-	/// ƒJƒeƒSƒŠƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
-	type	TGikoBBSColumnID = (gbbscTitle);
-	/// ƒJƒeƒSƒŠƒŠƒXƒg‚̃Jƒ‰ƒ€–¼
-	const	GikoBBSColumnCaption : array[0..0] of string =
-		( 'ƒJƒeƒSƒŠ–¼' );
-	/// ƒJƒeƒSƒŠƒŠƒXƒgƒJƒ‰ƒ€”z—ñ
-	type	TGikoBBSColumnList = class( TList )
-	private
-		function GetItem( index : integer ) : TGikoBBSColumnID;
-		procedure SetItem( index : integer; value : TGikoBBSColumnID);
-	public
-		constructor Create;
-		destructor Destroy;	override;
-		function Add( value : TGikoBBSColumnID ) : Integer;
-		property Items[index : integer]: TGikoBBSColumnID read GetItem write SetItem; default;
-	end;
-	/// ”ƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
-	type	TGikoCategoryColumnID = (gccTitle, gccRoundName, gccLastModified);
-	/// ”ƒŠƒXƒg‚̃Jƒ‰ƒ€–¼
-	const GikoCategoryColumnCaption : array[0..2] of string =
-		( '”–¼', '„‰ñ—\–ñ', 'Žæ“¾“úŽž' );
-	/// ”ƒŠƒXƒgƒJƒ‰ƒ€”z—ñ
-	type	TGikoCategoryColumnList = class( TList )
-	private
-		function GetItem( index : integer ) : TGikoCategoryColumnID;
-		procedure SetItem( index : integer; value : TGikoCategoryColumnID);
-	public
-		constructor Create;
-		destructor Destroy;	override;
-		function Add( value : TGikoCategoryColumnID ) : Integer;
-		property Items[index : integer]: TGikoCategoryColumnID read GetItem write SetItem; default;
-	end;
-	/// ƒXƒŒƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
-	type	TGikoBoardColumnID = (gbcTitle, gbcAllCount, gbcLocalCount, gbcNonAcqCount,
-		gbcNewCount, gbcUnReadCount, gbcRoundName, gbcRoundDate, gbcCreated, gbcLastModified );{gbcLastModified,}
-	/// ƒXƒŒƒŠƒXƒg‚̃Jƒ‰ƒ€–¼
-	const	GikoBoardColumnCaption : array[0..9] of string =
-		( 'ƒXƒŒƒbƒh–¼', 'ƒJƒEƒ“ƒg', 'Žæ“¾', '–¢Žæ“¾', 'V’…',
-		'–¢“Ç', '„‰ñ—\–ñ', 'Žæ“¾“úŽž', 'ƒXƒŒì¬“úŽž', 'ÅIXV“úŽž' );
-	const GikoBoardColumnAlignment : array[0..9] of TAlignment = (
-		taLeftJustify, taRightJustify, taRightJustify, taRightJustify,
-		taRightJustify, taRightJustify, taLeftJustify, taLeftJustify,
-		taLeftJustify, taLeftJustify);
-	/// ƒXƒŒƒŠƒXƒgƒJƒ‰ƒ€”z—ñ
-	type	TGikoBoardColumnList = class( TList )
-	private
-		function GetItem( index : integer ) : TGikoBoardColumnID;
-		procedure SetItem( index : integer; value : TGikoBoardColumnID);
-	public
-		constructor Create;
-		destructor Destroy;	override;
-		function Add( value : TGikoBoardColumnID ) : Integer;
-		property Items[index : integer]: TGikoBoardColumnID read GetItem write SetItem; default;
-	end;
-
-type
 	//CoolBarÝ’背ƒR[ƒh
 	TCoolSet = record
 		FCoolID: Integer;
@@ -271,15 +215,8 @@ type
 
 		//ƒŠƒXƒgƒJƒ‰ƒ€ƒwƒbƒ_[ƒTƒCƒY
 		FBBSColumnWidth: array[0..0] of Integer;
-		FCategoryColumnWidth: array[0..2] of Integer;
-		FBoardColumnWidth: array[0..9] of Integer;
-
-		/// ƒJƒeƒSƒŠƒŠƒXƒgƒJƒ‰ƒ€‡˜
-		FBBSColumnOrder : TGikoBBSColumnList;
-		/// ”ƒŠƒXƒgƒJƒ‰ƒ€‡˜
-		FCategoryColumnOrder : TGikoCategoryColumnList;
-		/// ƒXƒŒƒŠƒXƒgƒJƒ‰ƒ€‡˜
-		FBoardColumnOrder : TGikoBoardColumnList;
+		FCategoryColumnWidth: array[0..3] of Integer;
+		FBoardColumnWidth: array[0..7] of Integer;
 
 		//ƒ\[ƒg‡
 		FBBSSortIndex: Integer;
@@ -346,6 +283,8 @@ type
 
 		//ƒXƒŒƒbƒhˆê——XVƒAƒCƒRƒ“•\Ž¦
 		FListIconVisible: Boolean;
+		//Žæ“¾”‚Å‚Í‚È‚­–¢Žæ“¾‚ð•\Ž¦‚·‚é
+		FNonAcquiredCount: Boolean;
 
 				//ƒXƒŒƒbƒhˆê——‚ÅLog‚Ì‚ ‚éƒXƒŒƒbƒh‚̂݃XƒŒì¬“ú‚ð•\Ž¦‚·‚é‚©
 				FCreationTimeLogs: Boolean;
@@ -390,19 +329,12 @@ type
 
                 //TabŽ©“®•Û‘¶
                 FTabAutoLoadSave : Boolean;
-
-                //‚É‚¿‚á‚ñŒêˆÄ“àƒTƒ|[ƒg‹@”\
-                F2chSupport : Boolean;
-
 		// ƒGƒfƒBƒ^
 		FSpaceToNBSP	: Boolean;	///< ”¼ŠpƒXƒy[ƒXATab ‚ð &nbsp; ‚É’uŠ·
 		FAmpToCharRef	: Boolean;	///< '&' ‚ð &amp; ‚É’uŠ·
 
 		//ƒuƒ‰ƒEƒUƒ^ƒu”ñ•\Ž¦‚ÌŽž‚̃XƒŒˆê——‚ł̃J[ƒ\ƒ‹ƒL[ˆÚ“®‚Ì–³”½‰žŽžŠÔ
 		FSelectInterval	: Integer;
-
-		//KuroutSettingTab Ú×Ý’èƒ^ƒu‚ÌActiveTab
-		FKuroutSettingTabIndex: Integer;
 		
 		function GetMainCoolSet(Index: Integer): TCoolSet;
 		function GetBoardCoolSet(Index: Integer): TCoolSet;
@@ -594,10 +526,6 @@ type
 		property CategoryColumnWidth[index: Integer]: Integer read GetCategoryColumnWidth write SetCategoryColumnWidth;
 		property BoardColumnWidth[index: Integer]: Integer read GetBoardColumnWidth write SetBoardColumnWidth;
 
-		property BBSColumnOrder : TGikoBBSColumnList read FBBSColumnOrder write FBBSColumnOrder;
-		property CategoryColumnOrder : TGikoCategoryColumnList read FCategoryColumnOrder write FCategoryColumnOrder;
-		property BoardColumnOrder : TGikoBoardColumnList read FBoardColumnOrder write FBoardColumnOrder;
-
 		property SoundName[index: Integer]: string read GetSoundName;
 		property SoundViewName[index: Integer]: string read GetSoundViewName;
 		property SoundFileName[index: Integer]: string read GetSoundFileName write SetSoundFileName;
@@ -648,6 +576,7 @@ type
 		property BrowserAutoMaximize: TGikoBrowserAutoMaximize read FBrowserAutoMaximize write FBrowserAutoMaximize;
 
 		property ListIconVisible: Boolean read FListIconVisible write FListIconVisible;
+		property NonAcquiredCount: Boolean read FNonAcquiredCount write FNonAcquiredCount;
 		property CreationTimeLogs: Boolean read FCreationTimeLogs write FCreationTimeLogs;
 		property FutureThread: Boolean read FFutureThread write FFutureThread;
 
@@ -685,10 +614,8 @@ type
 		property AmpToCharRef	: Boolean	read FAmpToCharRef	write FAmpToCharRef;
 
 		property SelectInterval	: Integer	read FSelectInterval	write FSelectInterval;
-		//Tab•Û‘¶
-		property TabAutoLoadSave: Boolean           read FTabAutoLoadSave      write FTabAutoLoadSave;
-                property GengoSupport : Boolean         read F2chSupport        write F2chSupport;
-		property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex;
+                //Tab•Û‘¶
+                property TabAutoLoadSave: Boolean           read FTabAutoLoadSave      write FTabAutoLoadSave;
 end;
 
 
@@ -727,81 +654,6 @@ var
 		(Name: 'ResEnd';		 ViewName: 'ƒŒƒX‘—MŠ®—¹';			 FileName: ''),
 		(Name: 'Error';			ViewName: 'ƒGƒ‰[';						 FileName: ''));
 
-constructor TGikoBBSColumnList.Create;
-begin
-	inherited;
-end;
-
-destructor TGikoBBSColumnList.Destroy;
-begin
-	inherited;
-end;
-
-function TGikoBBSColumnList.GetItem( index : integer ) : TGikoBBSColumnID;
-begin
-	Result := TGikoBBSColumnID( inherited Items[ index ] );
-end;
-
-procedure TGikoBBSColumnList.SetItem( index : integer; value : TGikoBBSColumnID);
-begin
-	inherited Items[ index ] := Pointer( value );
-end;
-
-function TGikoBBSColumnList.Add( value : TGikoBBSColumnID ) : Integer;
-begin
-	Result := inherited Add( Pointer( value ) );
-end;
-
-constructor TGikoCategoryColumnList.Create;
-begin
-	inherited;
-end;
-
-destructor TGikoCategoryColumnList.Destroy;
-begin
-	inherited;
-end;
-
-function TGikoCategoryColumnList.GetItem( index : integer ) : TGikoCategoryColumnID;
-begin
-	Result := TGikoCategoryColumnID( inherited Items[ index ] );
-end;
-
-procedure TGikoCategoryColumnList.SetItem( index : integer; value : TGikoCategoryColumnID);
-begin
-	inherited Items[ index ] := Pointer( value );
-end;
-
-function TGikoCategoryColumnList.Add( value : TGikoCategoryColumnID ) : Integer;
-begin
-	Result := inherited Add( Pointer( value ) );
-end;
-
-constructor TGikoBoardColumnList.Create;
-begin
-	inherited;
-end;
-
-destructor TGikoBoardColumnList.Destroy;
-begin
-	inherited;
-end;
-
-function TGikoBoardColumnList.GetItem( index : integer ) : TGikoBoardColumnID;
-begin
-	Result := TGikoBoardColumnID( inherited Items[ index ] );
-end;
-
-procedure TGikoBoardColumnList.SetItem( index : integer; value : TGikoBoardColumnID);
-begin
-	inherited Items[ index ] := Pointer( value );
-end;
-
-function TGikoBoardColumnList.Add( value : TGikoBoardColumnID ) : Integer;
-begin
-	Result := inherited Add( Pointer( value ) );
-end;
-
 //ƒRƒ“ƒXƒgƒ‰ƒNƒ^
 constructor TSetting.Create();
 begin
@@ -809,9 +661,6 @@ begin
 	FMailList := TStringList.Create;
 	FSelectTextList := TStringList.Create;
 	FBoardURLs := TStringList.Create;
-	FBBSColumnOrder := TGikoBBSColumnList.Create;
-	FCategoryColumnOrder := TGikoCategoryColumnList.Create;
-	FBoardColumnOrder := TGikoBoardColumnList.Create;
 	FNameList.Duplicates := dupIgnore;
 	FMailList.Duplicates := dupIgnore;
 	FBoardURLs.Duplicates := dupIgnore;
@@ -824,9 +673,6 @@ end;
 destructor TSetting.Destroy();
 begin
 	inherited;
-	FBoardColumnOrder.Free;
-	FCategoryColumnOrder.Free;
-	FBBSColumnOrder.Free;
 	FSelectTextList.Free;
 	FBoardURLs.Free;
 	FMailList.Free;
@@ -849,17 +695,16 @@ end;
 procedure TSetting.ReadSettingFile();
 const
 	DEFAULT_BBS_WIDTH: array[0..0] of Integer = (140);
-	DEFAULT_CATEGORY_WIDTH: array[0..2] of Integer = (150, 80, 130);
-	DEFAULT_BOARD_WIDTH: array[0..9] of Integer = (350, 60, 60, 60, 60, 60, 80, 130, 130, 130);
+	DEFAULT_CATEGORY_WIDTH: array[0..3] of Integer = (150, 80, 130, 130);
+	DEFAULT_BOARD_WIDTH: array[0..7] of Integer = (350, 60, 60, 60, 60, 80, 130, 130);
 	MAX_WIDTH: Integer = 2000;
 var
 	ini: TMemIniFile;
 	i: Integer;
-	id, code : Integer;
 	wkList: TStringList;
 	wkStr: string;
 	Exists: Boolean;
-	s: string;                                               
+	s: string;
 //	id: Integer;
 	CoolSet: TCoolSet;
 begin
@@ -1006,7 +851,7 @@ begin
 			wkList.Free;
 		end;
 
-		// ƒŠƒXƒgƒJƒ‰ƒ€•
+		//ƒŠƒXƒgƒJƒ‰ƒ€
 		wkList := TStringList.Create;
 		try
 			ini.ReadSection('BBSColumnWidth', wkList);
@@ -1040,51 +885,6 @@ begin
 			wkList.Free;
 		end;
 
-		// ƒJƒeƒSƒŠƒŠƒXƒgƒJƒ‰ƒ€‡˜
-		wkList := TStringList.Create;
-		try
-			ini.ReadSection( 'BBSColumnOrder', wkList );
-			for i := 0 to wkList.Count - 1 do begin
-				wkStr := ini.ReadString( 'BBSColumnOrder', 'ID' + IntToStr( i ), '' );
-				Val( wkStr, id, code );
-				if code = 0 then
-					FBBSColumnOrder.Add( TGikoBBSColumnID( id ) );
-			end;
-			if FBBSColumnOrder.Count = 0 then begin
-				// Ý’肪–³‚¢‚̂ō쐬
-				for i := 0 to Integer( High( TGikoBBSColumnID ) ) do
-					FBBSColumnOrder.Add( TGikoBBSColumnID( i ) );
-			end;
-
-			ini.ReadSection( 'CategoryColumnOrder', wkList );
-			for i := 0 to wkList.Count - 1 do begin
-				wkStr := ini.ReadString( 'CategoryColumnOrder', 'ID' + IntToStr( i ), '' );
-				Val( wkStr, id, code );
-				if code = 0 then
-					FCategoryColumnOrder.Add( TGikoCategoryColumnID( id ) );
-			end;
-			if FCategoryColumnOrder.Count = 0 then begin
-				// Ý’肪–³‚¢‚̂ō쐬
-				for i := 0 to Integer( High( TGikoCategoryColumnID ) ) do
-					FCategoryColumnOrder.Add( TGikoCategoryColumnID( i ) );
-			end;
-
-			ini.ReadSection( 'BoardColumnOrder', wkList );
-			for i := 0 to wkList.Count - 1 do begin
-				wkStr := ini.ReadString( 'BoardColumnOrder', 'ID' + IntToStr( i ), '' );
-				Val( wkStr, id, code );
-				if code = 0 then
-					FBoardColumnOrder.Add( TGikoBoardColumnID( id ) );
-			end;
-			if FBoardColumnOrder.Count = 0 then begin
-				// Ý’肪–³‚¢‚̂ō쐬
-				for i := 0 to Integer( High( TGikoBoardColumnID ) ) do
-					FBoardColumnOrder.Add( TGikoBoardColumnID( i ) );
-			end;
-		finally
-			wkList.Free;
-		end;
-
 		//ƒŠƒXƒg”ԍ†
 		FListViewNo := ini.ReadBool('Function', 'ListViewNo', True);
 		//CSS
@@ -1158,6 +958,7 @@ begin
 
 		//ƒXƒŒƒbƒhˆê——XVƒAƒCƒRƒ“
 		FListIconVisible := ini.ReadBool('ThreadList', 'StateIconVisible', True);
+		FNonAcquiredCount := ini.ReadBool('ThreadList', 'NonAcquiredCount', False);
 		FCreationTimeLogs := ini.ReadBool('ThreadList', 'CreationTimeLogs', True);
 		FFutureThread := ini.ReadBool('ThreadList', 'FutureThread', True);
 		FSelectInterval := ini.ReadInteger('ThreadList', 'SelectInterval', 110);
@@ -1223,13 +1024,11 @@ begin
                 FDeleteSyria :=  ini.ReadBool('Abon','DeleteSyria',false);
 
 		// ƒGƒfƒBƒ^
-		FSpaceToNBSP	:= ini.ReadBool( 'Editor', 'SpaceToNBSP', False );
+		FSpaceToNBSP	:= ini.ReadBool( 'Editor', 'SpaceToNBSP', True );
 		FAmpToCharRef	:= ini.ReadBool( 'Editor', 'AmpToCharRef', False );
 
-		//TabŽ©“®•Û‘¶A“ǂݍž‚Ý
-		FTabAutoLoadSave    := ini.ReadBool('TabAuto', 'TabAutoLoadSave', False);
-
-		FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0);
+                //TabŽ©“®•Û‘¶A“ǂݍž‚Ý
+                FTabAutoLoadSave    := ini.ReadBool('TabAuto', 'TabAutoLoadSave', False);
 
 
 	finally
@@ -1330,7 +1129,6 @@ var
 	i: Integer;
 	ini: TMemIniFile;
 	CoolSet: TCoolSet;
-	wkList	: TStringList;
 begin
 	ini := TMemIniFile.Create(GetFileName());
 	try
@@ -1457,6 +1255,7 @@ begin
 
 		//ƒXƒŒƒbƒhˆê——XVƒAƒCƒRƒ“
 		ini.WriteBool('ThreadList', 'StateIconVisible', FListIconVisible);
+		ini.WriteBool('ThreadList', 'NonAcquiredCount', FNonAcquiredCount);
 		ini.WriteBool('ThreadList', 'CreationTimeLogs',FCreationTimeLogs);
 		ini.WriteBool('ThreadList', 'FutureThread', FFutureThread);
 		ini.WriteInteger('ThreadList', 'SelectInterval', FSelectInterval);
@@ -1475,7 +1274,7 @@ begin
 		ini.WriteInteger('PostTime', 'TimeAdjustSec', FTimeAdjustSec);
 		ini.WriteBool('PostTime', 'TimeAdjust', FTimeAdjust);
 
-		// ƒŠƒXƒgƒJƒ‰ƒ€•
+		//ƒŠƒXƒgƒJƒ‰ƒ€
 		for i := 0 to Length(FBBSColumnWidth) - 1 do begin
 			ini.WriteInteger('BBSColumnWidth', 'ID' + IntToStr(i), FBBSColumnWidth[i]);
 		end;
@@ -1486,32 +1285,6 @@ begin
 			ini.WriteInteger('BoardColumnWidth', 'ID' + IntToStr(i), FBoardColumnWidth[i]);
 		end;
 
-		wkList := TStringList.Create;
-		try
-			// ƒJƒeƒSƒŠƒŠƒXƒg‡˜
-			ini.ReadSection( 'BBSColumnOrder', wkList );
-			for i := wkList.Count - 1 downto 0 do
-				ini.DeleteKey( 'BBSColumnOrder', wkList[ i ] );
-			for i := 0 to FBBSColumnOrder.Count - 1 do
-				ini.WriteInteger( 'BBSColumnOrder', 'ID' + IntToStr( i ), Ord( FBBSColumnOrder[ i ] ) );
-
-			// ”ƒŠƒXƒg‡˜
-			ini.ReadSection( 'CategoryColumnOrder', wkList );
-			for i := wkList.Count - 1 downto 0 do
-				ini.DeleteKey( 'CategoryColumnOrder', wkList[ i ] );
-			for i := 0 to FCategoryColumnOrder.Count - 1 do
-				ini.WriteInteger( 'CategoryColumnOrder', 'ID' + IntToStr( i ), Ord( FCategoryColumnOrder[ i ] ) );
-
-			// ƒXƒŒƒŠƒXƒg‡˜
-			ini.ReadSection( 'BoardColumnOrder', wkList );
-			for i := wkList.Count - 1 downto 0 do
-				ini.DeleteKey( 'BoardColumnOrder', wkList[ i ] );
-			for i := 0 to FBoardColumnOrder.Count - 1 do
-				ini.WriteInteger( 'BoardColumnOrder', 'ID' + IntToStr( i ), Ord( FBoardColumnOrder[ i ] ) );
-		finally
-			wkList.Free;
-		end;
-
 		//ƒTƒEƒ“ƒh
 		for i := 0 to GetSoundCount - 1 do begin
 			if not FileExists(SoundFileName[i]) then
@@ -1555,15 +1328,9 @@ begin
 		ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP );
 		ini.WriteBool( 'Editor', 'AmpToCharRef', FAmpToCharRef );
 
-                //ƒ^ƒuŽ©“®•Û‘¶
-		ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
-                //Ú×Ý’è
-		ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex);
-
-                //‚É‚¿‚á‚ñŒêˆÄ“à‹@”\
-                ini.WriteBool('2chSupport', 'Support', F2chSupport);
+                ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave);
 
-                ini.UpdateFile;
+		ini.UpdateFile;
 	finally
 		ini.Free;
 	end;

--- a/Sort.pas
+++ b/Sort.pas
@@ -3,8 +3,7 @@ unit Sort;
 interface
 uses
 	Windows, Messages, SysUtils, Classes, Controls, Forms,
-	BoardGroup,DateUtils,
-	Setting;
+	BoardGroup,DateUtils;
 
 	function CategorySortProc(Item1, Item2: Pointer): integer;
 	function BoardSortProc(List: TStringList; Item1, Item2: Integer): integer;
@@ -17,6 +16,7 @@ var
 	SortOrder: Boolean;
 	SortIndex: Integer;
 	SortNoFlag: Boolean;
+	SortNonAcquiredCountFlag: Boolean;
 
 implementation
 
@@ -28,15 +28,10 @@ begin
 	CategoryItem1 := TCategory(Item1);
 	CategoryItem2 := TCategory(Item2);
 
-	case TGikoBBSColumnID( SortIndex ) of
-	gbbscTitle:
-		if SortNoFlag then
-			Result := CompareInt(CategoryItem1.No, CategoryItem2.No)
-		else
-			Result := AnsiCompareText(CategoryItem1.Title, CategoryItem2.Title);
-	else
+	if SortNoFlag then
 		Result := CompareInt(CategoryItem1.No, CategoryItem2.No)
-	end;
+	else
+		Result := AnsiCompareText(CategoryItem1.Title, CategoryItem2.Title);
 
 	if not SortOrder then
 		Result := Result * -1;
@@ -49,21 +44,15 @@ var
 begin
 	BoardItem1 := TBoard(List.Objects[Item1]);
 	BoardItem2 := TBoard(List.Objects[Item2]);
-	case TGikoCategoryColumnID( SortIndex ) of
-	gccTitle:
+	if SortIndex = 0 then
 		if SortNoFlag then
 			Result := CompareInt(BoardItem1.No, BoardItem2.No)
 		else
-			Result := AnsiCompareText(BoardItem1.Title, BoardItem2.Title);
-
-	gccRoundName:
-		Result := CompareInt(BoardItem1.Count, BoardItem2.Count);
-
-	gccLastModified:
+			Result := AnsiCompareText(BoardItem1.Title, BoardItem2.Title)
+	else if SortIndex = 1 then
+		Result := CompareInt(BoardItem1.Count, BoardItem2.Count)
+    else
 		Result := CompareDate(BoardItem1.RoundDate, BoardItem2.RoundDate);
-	else
-		Result := CompareInt(BoardItem1.No, BoardItem2.No)
-	end;
 
 	if not SortOrder then
 		Result := Result * -1;
@@ -76,35 +65,34 @@ var
 begin
 	ThreadItem1 := TThreadItem(List.Objects[ Item1 ]);
 	ThreadItem2 := TThreadItem(List.Objects[ Item2 ]);
-	case TGikoBoardColumnID( SortIndex ) of
-		gbcTitle:
+	case SortIndex of
+		0:
 			begin
 				if SortNoFlag then
 					Result := CompareInt(ThreadItem1.No, ThreadItem2.No)
 				else
 					Result := AnsiCompareText(ThreadItem1.Title, ThreadItem2.Title)
 			end;
-
-		gbcAllCount:			Result := CompareInt(ThreadItem1.AllResCount, ThreadItem2.AllResCount);
-		gbcLocalCount:		Result := CompareInt(ThreadItem1.Count, ThreadItem2.Count);
-		gbcNonAcqCount:
+		1: Result := CompareInt(ThreadItem1.AllResCount, ThreadItem2.AllResCount);
+		2:
 			begin
-				if ThreadItem1.IsLogFile and ThreadItem2.IsLogFile then
-					Result := CompareInt(ThreadItem1.AllResCount - ThreadItem1.Count, ThreadItem2.AllResCount - ThreadItem2.Count)
-				else if ThreadItem1.IsLogFile then
-					Result := 1
-				else if ThreadItem2.IsLogFile then
-					Result := -1
+				if SortNonAcquiredCountFlag then
+					if ThreadItem1.IsLogFile and ThreadItem2.IsLogFile then
+						Result := CompareInt(ThreadItem1.AllResCount - ThreadItem1.Count, ThreadItem2.AllResCount - ThreadItem2.Count)
+					else if ThreadItem1.IsLogFile then
+						Result := 1
+					else if ThreadItem2.IsLogFile then
+						Result := -1
+					else
+						Result := 0
 				else
-					Result := 0;
+					Result := CompareInt(ThreadItem1.Count, ThreadItem2.Count);
 			end;
-
-		gbcNewCount: 			Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);
-		gbcUnReadCount: 	Result := 0;
-		gbcRoundName: 		Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);
-		gbcRoundDate:	Result := CompareDateTime(ThreadItem1.RoundDate, ThreadItem2.RoundDate); {gbcLastModified:}
-		gbcCreated:				Result := CompareDateTime(ThreadItem1.CreateDate, ThreadItem2.CreateDate);
-		gbcLastModified:	Result := CompareDateTime(ThreadItem1.LastModified, ThreadItem2.LastModified); {gbcLastModified:}
+		3: Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);
+		4: Result := 0;
+		5: Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);
+		6: Result := CompareDateTime(ThreadItem1.RoundDate, ThreadItem2.RoundDate);
+		7: Result := CompareDateTime(ThreadItem1.CreateDate, ThreadItem2.CreateDate);
 	else
 		Result := 0;
 	end;

--- a/YofUtils.pas
+++ b/YofUtils.pas
@@ -9,8 +9,7 @@ interface
 uses
 //==================================================
 
-	Classes, SysUtils,
-	Windows;
+	Classes, SysUtils;
 
 procedure ExtractHttpFields(
 	const chrSep : TSysCharSet;
@@ -40,61 +39,11 @@ function MatchesMask(
 	const filename, mask : string
 ) : boolean;
 
-/// ƒƒ^ƒLƒƒƒ‰ƒNƒ^‚𐳋K•\Œ»ˆµ‚¢‚É‚È‚ç‚È‚¢‚悤‚É’uŠ·
+// ƒƒ^ƒLƒƒƒ‰ƒNƒ^‚𐳋K•\Œ»ˆµ‚¢‚É‚È‚ç‚È‚¢‚悤‚É’uŠ·
 function RegExpEncode(
 	const text : string
 ) : string;
 
-{*!
-\brief		•\Ž¦ƒƒbƒZ[ƒW‚̐®Œ`
-\param		msg				•\Ž¦‚·‚郁ƒbƒZ[ƒW
-\param		elements	’uŠ·’PŒê
-
-msg ‚Ì’†‚Ì’uŠ·‚³‚ê‚é’PŒê‚Í '^”ԍ†' ‚Å•\‚³‚êA
-elements ‚͉üs‚É‚æ‚Á‚Ä’PŒê•ª‚¯‚³‚ê‚Ü‚·B<br>
-
-<pre><code>
-elements := IntToStr( 10 ) + #10 + 'hoge';
-m := MessageStyle(
-	'^0 ŒÂ‚́g^1h‚ð’uŠ·‚µ‚Ü‚µ‚½B',
-	elements );
-</code></pre>
-
-‚ŏo—Í‚³‚ê‚é m ‚́u10 ŒÂ‚́ghogeh‚ð’uŠ·‚µ‚Ü‚µ‚½Bv‚Æ‚È‚è‚Ü‚·B
-*}
-function MessageStyle(
-	const msg				: string;
-	const elements	: string
-) : string; overload;
-
-function MessageStyle(
-	const msg				: string;
-	const elements	: TStringList
-) : string; overload;
-
-type
-	/// Mode ’l‚ª‚¨‚©‚µ‚¢
-	EMappedFileModeError = class( Exception );
-	/// ƒ}ƒbƒsƒ“ƒO‚ÉŽ¸”s
-	EMappedFileMappingError = class( Exception );
-
-	/// ƒƒ‚ƒŠƒ}ƒbƒvƒhEƒtƒ@ƒCƒ‹ ƒNƒ‰ƒX
-	TMappedFile = class( TObject )
-	private
-		FFileHandle			: THandle;
-		FMappingHandle	: THandle;
-		FSize						: Longword;
-		FViewAddress		: Pointer;
-	public
-		constructor Create( const filePath : string; mode : Longword = fmOpenRead );
-		destructor	Destroy; override;
-
-		/// ƒTƒCƒY‚̎擾
-		property		Size		: Longword	read FSize;
-		/// ƒAƒhƒŒƒX‚̎擾
-		property		Memory	: Pointer		read FViewAddress;
-	end;
-
 //==================================================
 const
 //==================================================
@@ -104,8 +53,6 @@ const
 implementation
 //==================================================
 
-uses MojuUtils;
-
 // ‚Æ‚è‚ ‚¦‚¸‚Ì‘ã—p•i‚È‚Ì‚Å chrWhite ‚ðl—¶‚µ‚Ä‚¢‚È‚¢‚±‚Æ‚É’ˆÓIII
 procedure ExtractHttpFields(
 	const chrSep : TSysCharSet;
@@ -420,97 +367,4 @@ begin
 
 end;
 
-function MessageStyle(
-	const msg				: string;
-	const elements	: string
-) : string;
-var
-	list						: TStringList;
-begin
-
-	list := TStringList.Create;
-	try
-		list.Text := elements;
-		Result := MessageStyle( msg, list );
-	finally
-		list.Free;
-	end;
-
-end;
-
-function MessageStyle(
-	const msg				: string;
-	const elements	: TStringList
-) : string;
-var
-	i								: Integer;
-begin
-
-	Result := msg;
-	for i := elements.Count - 1 downto 0 do
-		Result := CustomStringReplace( Result, '^' + IntToStr( i ), elements[ i ], false );
-
-end;
-
-{ TMappedFile }
-
-{*!
-\brief	ƒƒ‚ƒŠƒ}ƒbƒvƒhƒtƒ@ƒCƒ‹‚̍쐬
-\param	filePath	ŠJ‚­ƒtƒ@ƒCƒ‹‚̃pƒX
-\param	mode			fmOpenRead (ƒfƒtƒHƒ‹ƒg) ‚Ü‚½‚Í fmOpenReadWrite
-*}
-constructor TMappedFile.Create( const filePath : string; mode : Longword = fmOpenRead );
-var
-	dwFileDesiredAccess	: DWORD;
-	flProtect						: DWORD;
-	dwViewDesiredAccess	: DWORD;
-begin
-
-	case mode of
-	fmOpenRead:
-		begin
-			dwFileDesiredAccess	:= GENERIC_READ;
-			flProtect						:= PAGE_READONLY;
-			dwViewDesiredAccess	:= FILE_MAP_READ;
-		end;
-
-	fmOpenReadWrite:
-		begin
-			dwFileDesiredAccess	:= GENERIC_READ or GENERIC_WRITE;
-			flProtect						:= PAGE_READWRITE;
-			dwViewDesiredAccess	:= FILE_MAP_WRITE;
-		end;
-
-	else
-		raise EMappedFileModeError.Create( 'ƒtƒ@ƒCƒ‹ƒI[ƒvƒ“‚̃‚[ƒh‚ª•s³‚Å‚·B' );
-	end;
-
-	FFileHandle := CreateFile(
-		PChar( filePath ), dwFileDesiredAccess, 0, nil, OPEN_EXISTING,
-		FILE_ATTRIBUTE_NORMAL, 0 );
-	if FFileHandle = INVALID_HANDLE_VALUE then
-		raise EFOpenError.Create( 'ƒtƒ@ƒCƒ‹‚̃I[ƒvƒ“‚ÉŽ¸”s‚µ‚Ü‚µ‚½B' );
-
-	FSize := GetFileSize( FFileHandle, nil );
-
-	FMappingHandle := CreateFileMapping(
-		FFileHandle, nil, flProtect, 0, 0, nil );
-	if FFileHandle = INVALID_HANDLE_VALUE then
-		raise EMappedFileMappingError.Create( 'ƒtƒ@ƒCƒ‹‚̃}ƒbƒsƒ“ƒO‚ÉŽ¸”s‚µ‚Ü‚µ‚½B' );
-
-	FViewAddress := MapViewOfFile( FMappingHandle, dwViewDesiredAccess, 0, 0, 0 );
-	if FViewAddress = nil then
-		raise EMappedFileMappingError.Create( 'ƒtƒ@ƒCƒ‹‚̃}ƒbƒsƒ“ƒO‚ÉŽ¸”s‚µ‚Ü‚µ‚½B' );
-
-end;
-
-destructor	TMappedFile.Destroy;
-begin
-
-	UnmapViewOfFile( FViewAddress );
-	CloseHandle( FMappingHandle );
-	CloseHandle( FFileHandle );
-
-end;
-
 end.

Binary files a/gikoNavi.res and b/gikoNavi.res differ

--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
-¡ƒMƒRƒiƒr Version1.00 ÊÞÀ49 Readme.txt
+¡ƒMƒRƒiƒr Version1.00 ÊÞÀ48 Readme.txt
 
 
 ------------------------------
@@ -41,7 +41,7 @@
 ------------------------------
 ƒoƒO‚â—v–]‚́AƒMƒRƒiƒrƒXƒŒƒbƒh‚Ŏ󂯕t‚¯‚Ä‚¨‚è‚Ü‚·B
 ƒMƒRƒiƒrƒTƒCƒgFhttp://gikonavi.sourceforge.jp/
-ƒMƒRƒiƒrƒXƒŒFhttp://pc5.2ch.net/test/read.cgi/software/1094289071/l50
+ƒMƒRƒiƒrƒXƒŒFhttp://pc5.2ch.net/test/read.cgi/software/1079685385/l50
 
 ------------------------------
 “]Ú‚ɂ‚¢‚Ä
@@ -89,21 +89,6 @@ Windows Server 2003 Enterprise Edition IE6
 ------------------------------
 —š—ð
 ------------------------------
-2004/10/XX
-  Version ÊÞÀ49
-  ‚¨‹C‚É“ü‚è‚̓ǂݍž‚݂̍‚‘¬‰»‚É‚æ‚é‹N“®ŽžŠÔ‚Ì’Zk
-  StatusBar‚ÉNGƒ[ƒhƒtƒ@ƒCƒ‹‚Ì–¼‘O‚ªo‚È‚¢•s‹ï‡‚̏C³
-  uŽw’肵‚½”ԍ†‚̃ŒƒX‚É”ò‚ԁv‹@”\’ljÁiƒL[Ý’è‚ŁAƒXƒŒƒbƒhƒJƒeƒSƒŠ‚̈ê”ԍŌãj
-  ƒƒO‚ðíœ‚µ‚½Û‚É–¢“ǃXƒŒƒbƒh” (UnRead) ‚Ì•\Ž¦‚ªXV‚³‚ê‚È‚¢ƒoƒO‚ðC³
-  ‚±‚±‚ɃŒƒX‚¾‚ƁAƒŒƒXƒGƒfƒBƒ^[‚̃Vƒ‡[ƒgƒJƒbƒgƒL[‚ªÝ’肳‚ê‚È‚¢•s‹ï‡‚̏C³
-  ‚ ‚ځ[‚ñŽž‚ɃRƒR‚Ü‚Å“Ç‚ñ‚¾‚ƐV’…ƒŒƒX‚𒲐®‚·‚é‚Ì‚É•s‹ï‡‚ª‚ ‚Á‚½‚̂ŏC³
-  ƒXƒŒƒbƒhˆê——‚Ì•\Ž¦ƒJƒ‰ƒ€‚̐ݒ肪‚Å‚«‚é‚悤‚É‚È‚Á‚½BuƒIƒvƒVƒ‡ƒ“v->uÚ×Ý’èv->uÚ×Ý’è2v
-  ƒfƒtƒHƒ‹ƒg‚ł̃ŒƒXƒAƒ“ƒJ[ƒ|ƒbƒvƒAƒbƒv‚ªŽíŽí‚ÌŒ`Ž®‚ɑΉž
-  ‚R‚¿‚á‚ñ‚Ë‚éi8‚¿‚á‚ñ‚Ë‚éj‚ð“o˜^‚·‚é‚Æ‚Q‚¿‚á‚ñ‚Ë‚é‚̔‚ª•\Ž¦‚³‚ê‚é•s‹ï‡‚̉ðÁ
-  ‚¨‹C‚É“ü‚è‚ŕҏW’†‚ɃXƒy[ƒXƒL[“ü—Í‚Ì•s‹ï‡‚̏C³
-  ‚µ‚½‚ç‚ÎJBBS‚̉ߋŽƒƒO‚ÉŠÖ‚·‚é•s‹ï‡‚̏C³
-  ƒXƒŒƒbƒh‚̃Šƒ“ƒN‚ŃŒƒX”Ô‚ª‚ ‚é‚à‚̂𓥂ñ‚¾‚Æ‚«‚ɁA‚»‚̃ŒƒX”ԍ†‚܂ŃXƒNƒ[ƒ‹‚·‚é‚悤‚É‚µ‚½B
-
 2004/09/05
   Version ÊÞÀ48
   ƒŒƒXƒ|ƒbƒvƒAƒbƒv‚ ‚ځ`‚ñ—LŒø‚É‚µ‚Ä‚¢‚Ä‚àA“§–¾‚ ‚ځ`‚ñ‚ð•\Ž¦‚·‚é•s‹ï‡‚̉ðÁ

--- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
@@ -3,7 +3,7 @@ library ShitarabaJBBSPlugIn;
 {
 	ShitarabaJBBSPlugIn
 	‚µ‚½‚ç‚Ώˆ—ƒ†ƒjƒbƒg
-	$Id: ShitarabaJBBSPlugIn.dpr,v 1.36 2004/09/30 11:49:44 h677 Exp $
+	$Id: ShitarabaJBBSPlugIn.dpr,v 1.30 2004/09/06 16:41:41 h677 Exp $
 }
 
 uses
@@ -33,7 +33,7 @@ type
 
 	private
 		function	Download : TDownloadState;
-		function	StorageDownload(AURL : string) : TDownloadState;
+		function	StorageDownload(Path, Document : string) : TDownloadState;
 		function	Write( inName : string; inMail : string; inMessage : string ) : TDownloadState;
 		function	GetRes( inNo : Integer ) : string;
 		function	GetDat( inNo : Integer ) : string;
@@ -281,8 +281,7 @@ var
 //	i			: Integer;
 const
 	BBS_HOST_OLD 	= 'jbbs.shitaraba.com';
-	BBS_HOST_OLD2   = 'jbbs.livedoor.com';
-	BBS_HOST		= 'jbbs.livedoor.jp';
+	BBS_HOST 			= 'jbbs.livedoor.com';
 	THREAD_MARK	= '/bbs/read.cgi';
 begin
 
@@ -291,7 +290,7 @@ begin
 		uri			:= TIdURI.Create( inURL );
 		uriList	:= TStringList.Create;
 		try
-			if (uri.Host = BBS_HOST_OLD) or (uri.Host = BBS_HOST_OLD2) then
+			if uri.Host = BBS_HOST_OLD then
 				uri.Host := BBS_HOST;
 				
 			ExtractHttpFields( ['/'], [], uri.Path, uriList );
@@ -350,13 +349,12 @@ var
 
 	found					: Integer;
 	found2				: Integer;
-	pos					: Integer;
 	board					: string;
 const
 	CATEGORY_INPUT	= 'ƒJƒeƒSƒŠ‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢';
 	KEYWORD_INPUT		= 'ŒŸõ‚·‚é”–¼‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢';
 	SAVEPATH_SELECT	= '•Û‘¶‚·‚éƒtƒ@ƒCƒ‹–¼‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢';
-	BBS_HOST	 			= 'http://jbbs.livedoor.jp/';
+	BBS_HOST	 			= 'http://jbbs.livedoor.com/';
 label
 	NextBoard;
 begin
@@ -439,12 +437,8 @@ begin
 
 					saveText.Add( board );
 NextBoard:
-					found := AnsiPos( '<a ', downResult );
+		 		 	found := AnsiPos( '<a ', downResult );
 				end;
-				pos := saveText.IndexOf('JBBS=/');
-				if pos > 0 then
-					saveText.Delete(pos);
-
 				saveText.SaveToFile( savepath );
 				saveText.Free;
 			end else begin
@@ -505,14 +499,22 @@ begin
 	uriList := TStringList.Create;
 	try
 		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		if uriList[ 5 ] = 'l100' then begin
-			FileName	:= uriList[ 4 ] + '.dat';
-			FilePath	:= MyLogFolder + uriList[ 2 ] + '\' + uriList[ 3 ] + '\' + uriList[ 4 ] + '.dat';
-			IsLogFile	:= FileExists( FilePath );
-		end else begin
-			FileName	:= uriList[ 5 ] + '.dat';
-			FilePath	:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
+		if (AnsiPos('.html', uri.Document) = 0) then begin //’ʏí
+			if uriList[ 5 ] = 'l100' then begin
+				FileName	:= uriList[ 4 ] + '.dat';
+				FilePath	:= MyLogFolder + uriList[ 2 ] + '\' + uriList[ 3 ] + '\' + uriList[ 4 ] + '.dat';
+				IsLogFile	:= FileExists( FilePath );
+			end else begin
+				FileName	:= uriList[ 5 ] + '.dat';
+				FilePath	:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
+				IsLogFile	:= FileExists( FilePath );
+			end;
+		end else begin	//‰ß‹ŽƒƒO
+			//http://jbbs.livedoor.com/game/1578/storage/1086710948.html
+			FileName	:= Copy(uri.Document, 1, Length(uri.Document) - 5) + '.dat';
+			FilePath	:= MyLogFolder + CustomStringReplace(CustomStringReplace(uri.Path, '/storage', ''), '/', '\') + FileName;
 			IsLogFile	:= FileExists( FilePath );
+
 		end;
 	finally
 		uri.Free;
@@ -549,109 +551,115 @@ var
 	logStream			: TFileStream;
 	uri						: TIdURI;
 	uriList				: TStringList;
-	datURL, tmpURL				: string;
-	tmpText: string;
+	datURL				: string;
+		tmpText: string;
 begin
 
 	Result := dsError;
 
 	uri := TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
-	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		FileName := uriList[ 5 ] + '.dat';
-		// http://jbbs.livedoor.com/bbs/rawmode.cgi/game/1578/1067968274/l100
-		// protocol://host/1/2/3/4/5/uriList.Count - 1
-		if MyLogFolder = '' then begin
-			// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
-			FilePath 			:= TemporaryFile;
-			FIsTemporary	:= True;
-		end else begin
-			FilePath			:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
-			FIsTemporary	:= False;
-		end;
-	finally
+	if(( AnsiPos('.html', uri.Document) >0 ) and ( AnsiPos('/storage/', uri.Path) > 0 )) then begin
+		//‰ß‹ŽƒƒO
+		Result := StorageDownload(uri.Path, uri.Document);
 		uri.Free;
-		uriList.Free;
-	end;
+	end else begin
+		//Œ»Ý¶‚«‚Ä‚éƒXƒŒƒbƒh
+		uriList := TStringList.Create;
+		try
+			ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
+			FileName := uriList[ 5 ] + '.dat';
+			// http://jbbs.livedoor.com/bbs/rawmode.cgi/game/1578/1067968274/l100
+			// protocol://host/1/2/3/4/5/uriList.Count - 1
+			if MyLogFolder = '' then begin
+				// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
+				FilePath 			:= TemporaryFile;
+				FIsTemporary	:= True;
+			end else begin
+				FilePath			:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
+				FIsTemporary	:= False;
+			end;
+		finally
+			uri.Free;
+			uriList.Free;
+		end;
 
-	// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
-	ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
+		// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
+		ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
 
-	// “ÆŽ©‚Ƀ_ƒEƒ“ƒ[ƒh‚âƒtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
-	// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
-	modified	:= LastModified;
-	datURL		:= ReadURL + IntToStr( Count + 1 ) + '-'; // V’…‚Ì‚Ý
-	responseCode := InternalDownload( PChar( datURL ), modified, tmp, 0 );
+		// “ÆŽ©‚Ƀ_ƒEƒ“ƒ[ƒh‚âƒtƒBƒ‹ƒ^ƒŠƒ“ƒO‚ðs‚í‚È‚¢ê‡‚Í
+		// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
+		modified	:= LastModified;
+		datURL		:= ReadURL + IntToStr( Count + 1 ) + '-'; // V’…‚Ì‚Ý
+		responseCode := InternalDownload( PChar( datURL ), modified, tmp, 0 );
 
-	try
-		if (responseCode = 200) or (responseCode = 206) then begin
-			downResult := TStringList.Create;
-			try
-								tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ',' );
-				downResult.Text := EUCtoSJIS( tmpText );
-								ArrangeDownloadData(Count, downResult);
-				if downResult.Count > 0 then begin
-					if FileExists( FilePath ) then
-						logStream := TFileStream.Create( FilePath, fmOpenReadWrite or fmShareDenyWrite )
-					else
-						logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite );
-					try
-						logStream.Position	:= logStream.Size;
-						logStream.Write( PChar( downResult.Text )^, Length( downResult.Text ) );
-					finally
-						logStream.Free;
-					end;
+		try
+			if (responseCode = 200) or (responseCode = 206) then begin
+				downResult := TStringList.Create;
+				try
+									tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ',' );
+					downResult.Text := EUCtoSJIS( tmpText );
+									ArrangeDownloadData(Count, downResult);
+					if downResult.Count > 0 then begin
+						if FileExists( FilePath ) then
+							logStream := TFileStream.Create( FilePath, fmOpenReadWrite or fmShareDenyWrite )
+						else
+							logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite );
+						try
+							logStream.Position	:= logStream.Size;
+							logStream.Write( PChar( downResult.Text )^, Length( downResult.Text ) );
+						finally
+							logStream.Free;
+						end;
 
-					if Count = 0 then
-											// V‹K
-						Result := dsComplete
-					else
-						// ’Ç‹L
-						Result := dsDiffComplete;
+						if Count = 0 then
+												// V‹K
+							Result := dsComplete
+						else
+							// ’Ç‹L
+							Result := dsDiffComplete;
 
-										Size					:= Size + Length( downResult.Text );
-					// CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè
-					LastModified	:= Now;
+											Size					:= Size + Length( downResult.Text );
+						// CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè
+						LastModified	:= Now;
 
 
 
-					NewReceive		:= Count + 1;
-					Count					:= Count + downResult.Count;
-					NewResCount		:= downResult.Count;
+						NewReceive		:= Count + 1;
+						Count					:= Count + downResult.Count;
+						NewResCount		:= downResult.Count;
 
 
 
-				end else begin
-					Result := dsNotModify;
+					end else begin
+						Result := dsNotModify;
+					end;
+				finally
+					downResult.Free;
 				end;
-			finally
-				downResult.Free;
-			end;
-		end else if responseCode = 302 then begin
-			//http://jbbs.shitaraba.com/bbs/read.cgi/game/3477/1077473358/
-			//http://jbbs.shitaraba.com/game/bbs/read.cgi?BBS=3477&KEY=1077473358
-			//http://jbbs.shitaraba.com/game/3477/storage/1077473358.html
-			//‰ß‹ŽƒƒO
-			//tmpURL := URL;
-			if Assigned( InternalPrint ) then
-				InternalPrint( '‰ß‹ŽƒƒO‘qŒÉ“ü‚è' );
-			uri := TIdURI.Create( ReadURL );
-			uriList := TStringList.Create;
-			try
-				ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-				tmpURL := uri.Protocol + '://' + uri.Host +
-						'/' + uriList[3] + '/' + uriList[4] + '/storage/' + uriList[ 5 ] + '.html';
-			finally
-				uriList.Free;
+			end else if responseCode = 302 then begin
+				//http://jbbs.shitaraba.com/bbs/read.cgi/game/3477/1077473358/
+				//http://jbbs.shitaraba.com/game/bbs/read.cgi?BBS=3477&KEY=1077473358
+				//http://jbbs.shitaraba.com/game/3477/storage/1077473358.html
+				//‰ß‹ŽƒƒO
+				uri := TIdURI.Create( ReadURL );
+				uriList := TStringList.Create;
+				try
+					ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
+					URL := uri.Protocol + '://' + uri.Host +
+							'/' + uriList[3] + '/' + uriList[4] + '/storage/' + uriList[ 5 ] + '.html';
+				finally
+					uriList.Free;
+					uri.Free;
+				end;
+				uri := TIdURI.Create( ReadURL );
+				Result := StorageDownload(uri.Path, uri.Document);
 				uri.Free;
+			end else if responseCode = 304 then begin
+				Result := dsNotModify;
 			end;
-			Result := StorageDownload(tmpURL);
-		end else if responseCode = 304 then begin
-			Result := dsNotModify;
+		finally
+			DisposeResultString( tmp );
 		end;
-	finally
-		DisposeResultString( tmp );
 	end;
 
 end;
@@ -691,16 +699,17 @@ end;
 // ‰ß‹ŽƒƒO—pDownloadŠÖ”
 // *************************************************************************
 function	TShitarabaThreadItem.StorageDownload(
-	AURL : string
+	Path, Document : string
 ) : TDownloadState;
 var
 	modified			: Double;
 	tmp						: PChar;
-    uri : TIdURI;
-	uriList : TStringList;
 	downResult		: TStringList;
 	responseCode	: Longint;
 	logStream			: TFileStream;
+	//uri						: TIdURI;
+	//uriList				: TStringList;
+	datURL				: string;
 	tmpText, tmpLine, tmpTitle: string;
 	tmpHTML: TStringList;
 
@@ -709,24 +718,23 @@ var
 begin
 
 	Result := dsError;
-	uri := TIdURI.Create( ReadURL );
-	uriList := TStringList.Create;
+
+	//uri := TIdURI.Create( ReadURL );
 	try
-		ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-		FileName := uriList[ 5 ] + '.dat';
-		// http://jbbs.livedoor.com/bbs/rawmode.cgi/game/1578/1067968274/l100
-		// protocol://host/1/2/3/4/5/uriList.Count - 1
+		FileName := Copy(Document, 1, Length(Document) - 5) + '.dat';
 		if MyLogFolder = '' then begin
 			// ‚Ç‚±‚É•Û‘¶‚µ‚Ä‚¢‚¢‚Ì‚©•ª‚©‚ç‚È‚¢‚̂ňꎞƒtƒ@ƒCƒ‹‚É•Û‘¶
 			FilePath 			:= TemporaryFile;
 			FIsTemporary	:= True;
 		end else begin
-			FilePath			:= MyLogFolder + uriList[ 3 ] + '\' + uriList[ 4 ] + '\' + uriList[ 5 ] + '.dat';
+			FilePath	:= MyLogFolder
+							+ CustomStringReplace(CustomStringReplace(Path, '/storage', ''), '/', '\')
+							+ FileName;
+
 			FIsTemporary	:= False;
 		end;
 	finally
-		uri.Free;
-		uriList.Free;
+		//uri.Free;
 	end;
 
 	// •Û‘¶—p‚̃fƒBƒŒƒNƒgƒŠ‚ðŒ@‚é
@@ -738,7 +746,8 @@ begin
 	// InternalDownload ‚É”C‚¹‚邱‚Æ‚ªo—ˆ‚é
 	modified	:= LastModified;
 
-	responseCode := InternalDownload( PChar( AURL ), modified, tmp, 0 );
+	datURL		:= ReadURL;
+	responseCode := InternalDownload( PChar( datURL ), modified, tmp, 0 );
 
 	try
 		if (responseCode = 200) or (responseCode = 206) then begin
@@ -1149,8 +1158,7 @@ var
 	tmphost:	String;
 const
 	BBS_HOST_OLD 	= 'jbbs.shitaraba.com';
-	BBS_HOST_OLD2   = 'jbbs.livedoor.com';
-	BBS_HOST		= 'jbbs.livedoor.jp';
+	BBS_HOST 			= 'jbbs.livedoor.com';
 begin
 
 	uri			:= TIdURI.Create( ReadURL );
@@ -1160,15 +1168,22 @@ begin
 
 		tmphost := uri.Host;
 
-		if (tmphost = BBS_HOST_OLD) or (tmphost = BBS_HOST_OLD2) then
+		if tmphost = BBS_HOST_OLD then
 			tmphost := BBS_HOST;
 
-		FileName := uriList[ 5 ] + '.dat';
-		// http://jbbs.livedoor.com/bbs/read.cgi/computer/351/1090404452/l100
-		// http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1067968274/l100
-		// http://jbbs.livedoor.com/game/1000/subject.txt
-		Result		:= CreateResultString(
-			uri.Protocol + '://' + tmphost + '/' + uriList[ 3 ] + '/' + uriList[ 4 ] + '/' );
+		if( AnsiPos('.html', uri.Document) = 0 ) then begin //’ʏí
+			FileName := uriList[ 5 ] + '.dat';
+			// http://jbbs.livedoor.com/bbs/read.cgi/computer/351/1090404452/l100
+			// http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1067968274/l100
+			// http://jbbs.livedoor.com/game/1000/subject.txt
+			Result		:= CreateResultString(
+				uri.Protocol + '://' + tmphost + '/' + uriList[ 3 ] + '/' + uriList[ 4 ] + '/' );
+		end else begin
+			//http://jbbs.livedoor.com/game/1578/storage/1086710948.html
+			Result	:= CreateResultString(
+				uri.Protocol + '://' + tmphost + CustomStringReplace(uri.Path, '/storage', ''));
+		end;
+
 	finally
 		uri.Free;
 		uriList.Free;
@@ -1218,8 +1233,7 @@ var
 	dir, tmphost		: string;
 const
 	BBS_HOST_OLD 	= 'jbbs.shitaraba.com';
-	BBS_HOST_OLD2   = 'jbbs.livedoor.com';
-	BBS_HOST		= 'jbbs.livedoor.jp';
+	BBS_HOST 			= 'jbbs.livedoor.com';
 begin
 
 	foundPos := AnsiPos( '?', URL );
@@ -1232,7 +1246,7 @@ begin
 			dir := uriList[ 1 ];
 
 			tmphost := uri.Host;
-			if (tmphost = BBS_HOST_OLD) or (tmphost = BBS_HOST_OLD2)  then
+			if tmphost = BBS_HOST_OLD  then
 				tmphost := BBS_HOST;
 
 			ExtractHttpFields( ['&'], [], Copy( URL, foundPos + 1, MaxInt ), uriList );
@@ -1254,7 +1268,7 @@ begin
 			ExtractHttpFields( ['/'], [], uri.Path, uriList );
 
 			tmphost := uri.Host;
-			if (tmphost = BBS_HOST_OLD) or (tmphost = BBS_HOST_OLD2)  then
+			if tmphost = BBS_HOST_OLD  then
 				tmphost := BBS_HOST;
 
 			if( AnsiPos(THREAD_MARK, URL) > 0) and (uriList.Count > 5) then begin
@@ -1265,8 +1279,7 @@ begin
 			end else if AnsiPos(THREAD_MARK, URL) = 0 then begin
 			//ƒRƒR‚ʼnߋŽƒƒO‚©‚Ç‚¤‚©ƒ`ƒFƒbƒNH
 				if(AnsiPos('.html/', uri.Path) > 0) then begin
-					Result := uri.Protocol + '://' + tmphost + THREAD_MARK +
-						CustomStringReplace(CustomStringReplace(uri.Path, '/storage', ''), '.html/', '/') + 'l100';
+					Result := uri.Protocol + '://' + tmphost + Copy(uri.Path, 1, Length(uri.Path) - 1);
 				end else
 					Result := URL;
 			end;
@@ -1291,8 +1304,7 @@ var
 	dir, tmphost			: string;
 const
 	BBS_HOST_OLD 	= 'jbbs.shitaraba.com';
-	BBS_HOST_OLD2   = 'jbbs.livedoor.com';
-	BBS_HOST		= 'jbbs.livedoor.jp';
+	BBS_HOST 			= 'jbbs.livedoor.com';
 begin
 
 	foundPos := AnsiPos( '?', URL );
@@ -1305,7 +1317,7 @@ begin
 			dir := uriList[ 1 ];
 
 			tmphost := uri.Host;
-			if (tmphost = BBS_HOST_OLD) or (tmphost = BBS_HOST_OLD2)  then
+			if tmphost = BBS_HOST_OLD  then
 				tmphost := BBS_HOST;
 
 			ExtractHttpFields( ['&'], [], Copy( URL, foundPos + 1, MaxInt ), uriList );
@@ -1327,13 +1339,19 @@ begin
 			ExtractHttpFields( ['/'], [], uri.Path, uriList );
 
 			tmphost := uri.Host;
-			if (tmphost = BBS_HOST_OLD) or (tmphost = BBS_HOST_OLD2)  then
+			if tmphost = BBS_HOST_OLD  then
 				tmphost := BBS_HOST;
 			// http://jbbs.livedoor.com/bbs/read.cgi/game/1578/1067968274/l100
 			if( AnsiPos(THREAD_MARK, URL) > 0) and (uriList.Count > 5) then begin
 				Result :=
 					uri.Protocol + '://' + tmphost + '/bbs/rawmode.cgi/' +
 					uriList[ 3 ] + '/' + uriList[ 4 ] + '/' + uriList[ 5 ] + '/';
+			end else if AnsiPos(THREAD_MARK, URL) = 0 then begin
+			//ƒRƒR‚ʼnߋŽƒƒO‚©‚Ç‚¤‚©ƒ`ƒFƒbƒNH
+				if(AnsiPos('.html/', uri.Path) > 0) then begin
+					Result := uri.Protocol + '://' + tmphost + Copy(uri.Path, 1, Length(uri.Path) - 1);
+				end else
+					Result := URL;
 			end;
 		finally
 			uri.Free;
@@ -1415,8 +1433,7 @@ var
 	uriList			: TStringList;
 const
 	BBS_HOST_OLD 	= 'jbbs.shitaraba.com';
-	BBS_HOST_OLD2   = 'jbbs.livedoor.com';
-	BBS_HOST		= 'jbbs.livedoor.jp';
+	BBS_HOST 			= 'jbbs.livedoor.com';
 begin
 
 	inherited;
@@ -1433,7 +1450,7 @@ begin
 	uri			:= TIdURI.Create( SubjectURL );
 	uriList	:= TStringList.Create;
 	try
-		if (uri.Host = BBS_HOST_OLD) or (uri.Host = BBS_HOST_OLD2) then
+		if uri.Host = BBS_HOST_OLD then
 			uri.Host := BBS_HOST;
 		URL := uri.Protocol + '://' + uri.Host + uri.Path;
 

--- a/res/skin/skin30-2G/Header.html
+++ b/res/skin/skin30-2G/Header.html
@@ -15,7 +15,7 @@
 var start_time = new Date();
 //==========ƒOƒ[ƒoƒ‹•Ï”
 var anchorHead="";
-var skinName="skin30-2 v3.3.09xx";
+var skinName="skin30-2 v3.1.11xx";
 var browser="ƒMƒRƒiƒr";
 //==========ƒMƒRƒiƒr—pƒAƒ“ƒJ[‚Ì”»’èi0:ˆ—–³‚µ,1:ƒ|ƒbƒvƒAƒbƒv,2:ƒ{ƒ^ƒ“‘}“üj
 // ƒMƒRƒiƒr‚ł́AƒŒƒXƒAƒ“ƒJ[‚Í‘Š‘΃AƒhƒŒƒX‚Å‹Lq‚³‚ê‚é
@@ -27,22 +27,13 @@ function checkAnchor(href){if(!href){return(0)}
 //==========ƒŠƒ“ƒNÝ’è
 function addAnchor(inner,num){
  if(!t_url){threadurl()}
- var url=document.getElementsByName("ThreadURL")[0].content;
- if(url.match(/&/)){
-  return('<a href="../test/read.cgi?bbs='+t_bbs+'&key='+t_key+'&st='+inner+'&to='+inner+'&nofirst=true" target="_blank" onclick="blur()">'+num+'</a>')
- }else{
-  return('<a href="../test/read.cgi/'+t_bbs+'/'+t_key+'/'+inner+'" target="_blank" onclick="blur()">'+num+'</a>')
- }
+ return('<a href="../test/read.cgi/'+t_bbs+'/'+t_key+'/'+inner+'" target="_blank" onclick="blur()">'+num+'</a>')
 }
 // ƒXƒŒƒbƒhURL‚̎擾
 var t_url=false,t_domain,t_bbs,t_key;
 function threadurl(){
  var threadurl=document.getElementsByName("ThreadURL")[0].content;
- if(threadurl.match(/&/)){
-  threadurl.match(/bbs=(.*)&key=(\d*)/);
- }else{
-  threadurl.match(/^.*\/test\/read.cgi\/(.*)\/(.*)\//);
- }
+ threadurl.match(/^.*\/test\/read.cgi\/(.*)\/(.*)\//);
  t_url=true;
  t_bbs=RegExp.$1;
  t_key=RegExp.$2;

--- a/res/skin/skin30-2G/chie_event.js
+++ b/res/skin/skin30-2G/chie_event.js
@@ -2,8 +2,7 @@
 //ŠO•”ŠÖ”Ftohan
 //ŠO•”•Ï”FanchorHead,lightmode,getID,skinName,browser,dts
 //ƒOƒ[ƒoƒ‹•Ï”
-var buffer=1;     // ’ᑬ‰ñü‚â’ᑬƒ}ƒVƒ“‚̏ꍇ‚É‚Íbuffer‚̐”’l‚𑝂₷‚Æ‚æ‚萳Šm‚ɃWƒƒƒ“ƒvi1‘‚â‚·‚Æ0.1•b’x‚ê‚éj
-var newResJump=1; // V’…ƒŒƒXƒWƒƒƒ“ƒvi0:ƒuƒ‰ƒEƒU”C‚¹A1:“Ç—¹Žž‚̂݁A2:íŽžj–‚©‚¿‚ãAOpenJaneAtwintail‚݂̂̐ݒè
+var buffer=1; // ’ᑬ‰ñü‚â’ᑬƒ}ƒVƒ“‚̏ꍇ‚É‚Íbuffer‚̐”’l‚𑝂₷‚Æ‚æ‚萳Šm‚ɃWƒƒƒ“ƒvi1‘‚â‚·‚Æ0.1•b’x‚ê‚éj
 //========Clickˆ—¨search,‘¼
 	document.onclick = clickEvent;
 function clickEvent(){
@@ -41,19 +40,10 @@ function mouseOverEvent() {
   else if(e.innerText.match(/^‚ ‚ځ`‚ñ$/))                          {abonePopup(e);}
  }
  if(e.tagName=='A'){
-  if(!e.innerText.match(/%/)){ // URLƒGƒ“ƒR[ƒh‚Å‚ ‚肪‚¿‚È%‚ª‚È‚¯‚ê‚Î
-   e.href=e.href.replace(/>/g,"");
-   e.href=e.href.replace(/\/ime.nu/g,"");
-  }else{
-   try{
-    e.title=decodeURI(e.innerText);
-   }catch(err){
-     // ShiftJIS,EUC-JP‚̃fƒR[ƒh‚Í–Ê“|‚¾‚©‚ç‚‚¯‚È‚¢B
-   }
-  }
+  e.href=e.href.replace(/>/g,"");
+  e.href=e.href.replace(/\/ime.nu/g,"");
   if     (checkAnchor(e.href)==2){insButton(e);return;}
   else if(checkAnchor(e.href)==1){
-   if(event.shiftKey){if(e.rel){e.href=e.rel}return}
    // ‘½’iƒ|ƒbƒvƒAƒbƒv
    var aNum=parseInt(e.sourceIndex)+1;
    if(!document.getElementById("p"+aNum)){
@@ -106,10 +96,10 @@ function scroll_End(){document.getElementsByTagName("DL")[0].lastChild.scrollInt
 // IMG
 function imgCommand(mode,s){
  if(!waited){
-  var nHTML='<div id="command" onclick="clearCommand()"><input type="button" onclick="allImageLoad(\'all\')" value="‘SƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="allImageLoad(\'new\')" value="VƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="removeError()" value="Error‰æ‘œíœ"><br></div>';
+  var nHTML='<div id="command" onclick="clearCommand()"><input type="button" onclick="allImageLoad(\'all\')" value="‘SƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="allImageLoad(\'new\')" value="VƒŒƒXˆêŠ‡“Ǎž"><br></div>';
   event.srcElement.parentElement.insertAdjacentHTML('beforeEnd',nHTML);
   if(skinName.match(/30-2/)){
-   //if(!lightmode){document.getElementById("command").insertAdjacentHTML('afterBegin','<input type="button" onclick="changePanel()" value="ƒpƒlƒ‹Ø‘Ö"><br>')}
+   if(!lightmode){document.getElementById("command").insertAdjacentHTML('afterBegin','<input type="button" onclick="changePanel()" value="ƒpƒlƒ‹Ø‘Ö"><br>')}
    document.getElementById("command").insertAdjacentHTML('beforeEnd','<input type="button" onclick="changeMode()" value="ƒ‚[ƒhØ‘Ö">')
   }
   waited=true;
@@ -119,7 +109,7 @@ function imgCommand(mode,s){
 }
 function clearCommand(){
  waited=false;
- document.getElementById("command").removeNode(true);
+ event.srcElement.parentElement.removeNode(true);
 }
 //=========¶’·‰Ÿˆ—¨copyMenu()
 	document.onmousedown=mousedownEvent;
@@ -132,7 +122,6 @@ function mousedownEvent(){
   clickTimer=setTimeout("copyMenu()",500);
  }
 }
-
 //ƒRƒs[ƒƒjƒ…[¨colorChange(),search::copyText()
 function copyMenu(){
  clickCancel=true; clearTimeout(clickTimer);
@@ -176,53 +165,27 @@ function key(){
  }
 }
 
-//=========V’…ƒŒƒXŽæ“¾Œãˆ—i•W€ƒXƒLƒ“–¢‘Ήžƒuƒ‰ƒEƒU—pj©Timer–”‚ÍFooter‚©‚çŒÄ‚яo‚µ
-//=========‚©‚¿‚ãAABoneAƒ]ƒk‚Q
+//=========Loadi‘ã‘ցjˆ—iŠeFooter‚à‚µ‚­‚́AHeader‚ł̃‹[ƒv‚©‚çŒÄo‚µj
 var newResNum=parseInt(document.getElementsByName("GetRescount")[0].content)+1;
 var k=0;
-function loadEvent(num){ // Timer–”‚ÍFooter‚©‚ç
- //====V’…ƒŒƒXƒWƒƒƒ“ƒv
- if(newResJump==0){clearInterval(timerID);return} //uƒuƒ‰ƒEƒU”C‚¹v‚È‚çI—¹
- //V’…ƒŒƒX‚ÌŠJŽn”ԍ†‚ðŽæ“¾
- if     (browser=="‚©‚¿‚ã`‚µ‚á"){if(isNaN(newResNum)){while(dts[k]){if(dts[k].className=="new"){newResNum=parseInt(dts[k].firstChild.innerText);break;} k++;}}}
- else if(browser=="ƒzƒbƒgƒ]ƒk‚Q"){newResNum=num+1;}
+function loadEvent(){
+ //GetRescount‘ã‘Ö "”Žš‚Å‚È‚¯‚ê‚Î"
+ if(isNaN(newResNum)){while(dts[k]){if(dts[k].className=="new"){newResNum=parseInt(dts[k].firstChild.innerText);break;} k++; }}
+ //V’…ŠJŽnƒiƒ“ƒo[‚ðÝ’肵‚ăWƒƒƒ“ƒv
  var anc=document.anchors(anchorHead+newResNum);
- if(!anc || !anc.parentElement){return} // “§–¾‚ ‚ځ`‚ñ‚³‚ê‚Ä‚½‚çI—¹
- //V’…ƒŒƒXƒWƒƒƒ“ƒv
- scr=lightmode ? document.body : document.getElementById("dl");
- viewPos=scr.scrollTop+scr.clientHeight;// ƒXƒNƒ[ƒ‹Œã‚̉æ–ʉº•”ˆÊ’u
- endPos =anc.offsetTop+20;				// VƒŒƒXƒAƒ“ƒJ[ˆÊ’u
- //ÅŒã‚Ü‚Å“Ç—¹ or uí‚ɐV’…ƒWƒƒƒ“ƒvv‚È‚çƒWƒƒƒ“ƒv
- if(viewPos>endPos || newResJump==2){clearInterval(timerID);setTimeout("moveToNew("+newResNum+")",buffer*100)}
- else{firstNew=document.anchors(anchorHead+newResNum).parentElement.nextSibling;}
-}
-//=========V’…ƒŒƒXŽæ“¾Œãˆ—i•W€ƒXƒLƒ“‘Ήžƒuƒ‰ƒEƒU—pj©NewMark‚©‚çŒÄ‚яo‚µ
-//=========OpenJAtwin
-var scr,viewPos,endPos=0;
-function reloadEvent(){
- //====Šù“lj»
- var lastDt=dts[dts.length-2];if(!lastDt){return}// ‘S•”V’…‚È‚çI—¹
- while(lastDt && lastDt.className=="new"){lastDt.className="";lastDt=lastDt.previousSibling.previousSibling;}
- //====V’…ƒŒƒXƒWƒƒƒ“ƒv
- if(newResJump==0){return} //uƒuƒ‰ƒEƒU”C‚¹v‚È‚çI—¹
- var ancs=document.anchors;
- var newResNum=parseInt(ancs[ancs.length-1].name)+1;
- scr=lightmode ? document.body : document.getElementById("dl");
- viewPos=scr.scrollTop;
- endPos =scr.scrollHeight-scr.clientHeight-20;
- //ÅŒã‚Ü‚Å“Ç—¹ or uí‚ɐV’…ƒWƒƒƒ“ƒvv‚È‚çƒWƒƒƒ“ƒv
- if(viewPos>endPos || newResJump==2){setTimeout("moveToNew("+newResNum+")",buffer*100);} 
+ if(anc && anc.parentElement){
+  if(buffer==0){clearInterval(timerID);moveToNew(newResNum);}
+  else         {buffer--;}
+ }
 }
-
 // V’…ƒŒƒXˆÚ“®{V’…ƒŒƒX‚̈ʒu‚ð‹L‰¯
 var firstNew;
 function moveToNew(num){
  firstNew=getDTfromAnc(num);
- while(!firstNew){num--;firstNew=getDTfromAnc(num);} //‘Ώۂª“§–¾‚ ‚ځ`‚ñ‚Ȃ琔‚ðŒ¸‚ç‚·
- firstNew.scrollIntoView(true);
+ if(firstNew){firstNew.scrollIntoView(true);}
 }
 
-//=========DoubleClickˆ—¨defaultPopup()
+//=========DblClickˆ—¨defaultPopup()
 	document.ondblclick=defaultPopup;
 function defaultPopup(){
  var num=document.selection.createRange().text.replace(/\s$/,"");
@@ -237,17 +200,4 @@ function defaultPopup(){
   obj.innerText="ID:"+num;
   search(obj);
  }
-}
-
-//=========Copyˆ—
-//head‚©‚ç“Ç‚Þ‚Æbody‚ÍŒ©‚¦‚È‚¢‚̂ŁAê—pƒuƒ‰ƒEƒU‚Ì“ÁŽ¿‚ð—˜—p‚µ‚Äbody‚ÌŒã‚ë‚ɏ‘‚«o‚·
-//–{—ˆ‚Ç‚¨‚èhead‚ɏ‘‚«o‚·SkinManager‘΍ô‚Å”»’è‚ðˆê‚“ü‚ê‚é
-	if(document.body) document.write('<script type="text/javascript">document.body.oncopy=copyEvent</script>\n');
-function copyEvent(){
- var textarea=document.createElement("TEXTAREA");
- textarea.value=document.selection.createRange().text.replace(/\s(\r\n|$)/g,"\n");
- var copyText=textarea.createTextRange();
- copyText.execCommand("Copy");
- return false; 
-}
-
+}
\ No newline at end of file

--- a/res/skin/skin30-2G/chie_image.js
+++ b/res/skin/skin30-2G/chie_image.js
@@ -2,8 +2,7 @@
 // ŠO•”ŠÖ”FaddAnchor
 // ŠO•”•Ï”Fcp,tp,vp,dds
 //======‰æ‘œ“Ǎž‚̐ݒè
-var onMouseLoad=true;	// true:ƒJ[ƒ\ƒ‹‚ð‡‚í‚¹‚½‚¾‚¯Afalse:LOADƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚©‚ç
-var takeArisk=false; 	// true:‰æ‘œ“ǂݍž‚ÝŽž‚Ƀ‚[ƒhØ‘ցAfalse:Žè“®‚Ń‚[ƒhØ‘Ö
+var onMouseLoad=true;   // true:ƒJ[ƒ\ƒ‹‚ð‡‚í‚¹‚½‚¾‚¯Afalse:LOADƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚©‚ç
 //==========ƒOƒ[ƒoƒ‹•Ï”
 //==========‰æ‘œˆ—“™
 var lightmode = true;
@@ -69,13 +68,12 @@ function insButton(a,hRH) {
 // ‰æ‘œ“Ǎž
 function loadImage(btn,href){
  if(!panel){changePanel()}
- if(takeArisk && lightmode){changeMode()}
  if(btn.tagName!="A"){
   var thumbs = document.images;
   var l=thumbs.length;
   for(var i=l;i--;){if(thumbs[i].src==href){
    if(lightmode){tp.style.visibility="visible";viewed=true;}
-   //thumbs[i].scrollIntoView(true);
+   thumbs[i].scrollIntoView(true);
    imgOver(thumbs[i],100);
    return true;
   }}
@@ -105,7 +103,7 @@ function loadImage(btn,href){
 function imgResult(img){
  var btn=img.parentElement.children.item(2);
  if(event.type=="load"){btn.value='___'; img.style.display='block';}
- else                  {btn.value='NONE';btn.style.color='#C00';setTimeout("viewed=false",3000)}
+ else                  {btn.value='NONE';btn.style.color='#C00';}
 }
 // ƒTƒCƒY‚̐ؑÖ
 function changeSize(btn){
@@ -124,15 +122,6 @@ function changeSize(btn){
 }
 // ƒTƒ€ƒlƒCƒ‹‚̍폜
 function removeThumb(btn){btn.parentElement.removeNode(true);}
-function removeError(){
- if(tp){
-  var l=tp.childNodes.length;
-  for(var i=l;i--;){
-   var stateBtn=tp.childNodes[i].childNodes[2];
-   if(stateBtn.tagName=="BUTTON" && stateBtn.innerText=="NONE"){stateBtn.parentElement.removeNode(true);}
-  }
- }
-}
 // ‰æ‘œ•\Ž¦‚̐ؑÖ
 function changeView(mode,href){
  if(!href){href=event.srcElement.src}

--- a/res/skin/skin30-2G/chie_popup.js
+++ b/res/skin/skin30-2G/chie_popup.js
@@ -15,7 +15,7 @@ var pb;
 function namePopup(e,before,num,after){
  var hnum=tohan(num);
  //‚RŽü”NA‚SŽü”NASocket774A774KBA21‹ÖA[1-30]A‚ȂǂɑΉž
- if(before){if(hnum==5 || hnum==774 || hnum==4 || hnum==21 || hnum==1 || hnum==30){return}}
+ if(before){if(hnum==3 || hnum==774 || hnum==4 || hnum==21 || hnum==1 || hnum==30){return}}
  e.outerHTML = "<b>"+before+"</b><b>"+addAnchor(hnum,num)+"</b><b>"+after+"</b>";
 }
 //=========Žã‚ ‚ځ`‚ñ‚̃|ƒbƒvƒAƒbƒv

--- a/res/skin/skin30-2G/chie_search.js
+++ b/res/skin/skin30-2G/chie_search.js
@@ -110,7 +110,7 @@ function clearResult(obj){
   for(var i=l;i--;){
    var dt=eval(arrayElement); var dd=dt.nextSibling;
     //Live‹@”\’ljÁ - “§–¾‚ ‚ځ`‚ñ
-   if(browser=="Live2ch"){location.href='func:ABONECLEAR?'+dt.firstChild.innerText;}
+   if(browser=="Live2ch"){location.href='func:ABONECLEAR?'+dt.firstChild.innerText;continue;}
    dt.removeNode(true); dd.removeNode(true);
   }
  }
@@ -144,7 +144,7 @@ function findIt(word){
 
 //==========‹tŽQÆ
 function searchRef(obj){
- if(obj.name!='referred'){
+ if(obj.name!='reffered'){
   var num=obj.firstChild.innerText;
   var l=dds.length;
   var found = new Array;
@@ -171,7 +171,7 @@ function searchRef(obj){
    if(exist){
     var dt=dds[i].previousSibling.cloneNode(true);
     found.unshift(dt.outerHTML.replace(/name=.*?>/,">")+dd.outerHTML.replace(/<a name=.*>/i,""));
-    obj.name="referred";
+    obj.name="reffered";
    }
   }
   if(found.length){returnRef(obj.nextSibling,found)}
@@ -190,12 +190,13 @@ function returnRef(dd,found){
 function copyText(target){
  var num=event.srcElement.parentElement.name;
  var obj=getDTfromAnc(num);
+ var decoy=document.createDocumentFragment();
  var textarea=document.createElement("TEXTAREA");
- var message=obj.nextSibling.innerText.replace(/\s(\r\n|$)/g,"\n");
- if     (target=="res") {textarea.value=obj.firstChild.innerText+" F"+obj.childNodes[1].innerText+" F"+obj.lastChild.innerText+"\n"+message;}
+ if     (target=="res") {textarea.value=obj.firstChild.innerText+" F"+obj.childNodes[1].innerText+" F"+obj.lastChild.innerText+"\n"+obj.nextSibling.innerText+"\n";}
  else if(target=="name"){textarea.value=obj.childNodes[1].innerText+"\n";}
- else if(target=="id")  {textarea.value="ID:"+(obj.lastChild.innerText.split(/ID:/))[1]+"\n";}
- var copyText=textarea.createTextRange();
+ else if(target=="id")  {textarea.value=obj.lastChild.innerText.substr(15)+"\n";}
+ decoy.appendChild(textarea);
+ var copyText=decoy.getElementsByTagName("TEXTAREA")[0].createTextRange();
  copyText.execCommand("Copy")
  event.srcElement.parentElement.removeNode(true);
 }

--- a/res/skin/skin30-3G/Header.html
+++ b/res/skin/skin30-3G/Header.html
@@ -15,11 +15,11 @@
 var start_time = new Date();
 //==========ƒOƒ[ƒoƒ‹•Ï”
 var anchorHead="";
-var skinName="skin30-3 v3.3.09xx";
+var skinName="skin30-3 v3.1.11xx";
 var browser="ƒMƒRƒiƒr";
 //==========ƒMƒRƒiƒr—pƒAƒ“ƒJ[‚Ì”»’èi0:ˆ—–³‚µ,1:ƒ|ƒbƒvƒAƒbƒv,2:ƒ{ƒ^ƒ“‘}“üj
 // ƒMƒRƒiƒr‚ł́AƒŒƒXƒAƒ“ƒJ[‚Í‘Š‘΃AƒhƒŒƒX‚Å‹Lq‚³‚ê‚é
-function checkAnchor(href){if(!href){return(0)}
+function checkAnchor(href){
  if     (href.match(/decoy:|about:blank/)){return(1)}
  else if(href.match(/menu:|read\.cgi|2ch\.net\/.*\/kako/)){return(0)}
  else{return(2)}
@@ -27,22 +27,13 @@ function checkAnchor(href){if(!href){return(0)}
 //==========ƒŠƒ“ƒNÝ’è
 function addAnchor(inner,num){
  if(!t_url){threadurl()}
- var url=document.getElementsByName("ThreadURL")[0].content;
- if(url.match(/&/)){
-  return('<a href="../test/read.cgi?bbs='+t_bbs+'&key='+t_key+'&st='+inner+'&to='+inner+'&nofirst=true" target="_blank" onclick="blur()">'+num+'</a>')
- }else{
-  return('<a href="../test/read.cgi/'+t_bbs+'/'+t_key+'/'+inner+'" target="_blank" onclick="blur()">'+num+'</a>')
- }
+ return('<a href="../test/read.cgi/'+t_bbs+'/'+t_key+'/'+inner+'" target="_blank" onclick="blur()">'+num+'</a>')
 }
 // ƒXƒŒƒbƒhURL‚̎擾
 var t_url=false,t_domain,t_bbs,t_key;
 function threadurl(){
  var threadurl=document.getElementsByName("ThreadURL")[0].content;
- if(threadurl.match(/&/)){
-  threadurl.match(/bbs=(.*)&key=(\d*)/);
- }else{
-  threadurl.match(/^.*\/test\/read.cgi\/(.*)\/(.*)\//);
- }
+ threadurl.match(/^.*\/test\/read.cgi\/(.*)\/(.*)\//);
  t_url=true;
  t_bbs=RegExp.$1;
  t_key=RegExp.$2;

--- a/res/skin/skin30-3G/chie_event.js
+++ b/res/skin/skin30-3G/chie_event.js
@@ -2,8 +2,7 @@
 //ŠO•”ŠÖ”Ftohan
 //ŠO•”•Ï”FanchorHead,lightmode,getID,skinName,browser,dts
 //ƒOƒ[ƒoƒ‹•Ï”
-var buffer=1;     // ’ᑬ‰ñü‚â’ᑬƒ}ƒVƒ“‚̏ꍇ‚É‚Íbuffer‚̐”’l‚𑝂₷‚Æ‚æ‚萳Šm‚ɃWƒƒƒ“ƒvi1‘‚â‚·‚Æ0.1•b’x‚ê‚éj
-var newResJump=1; // V’…ƒŒƒXƒWƒƒƒ“ƒvi0:ƒuƒ‰ƒEƒU”C‚¹A1:“Ç—¹Žž‚̂݁A2:íŽžj–‚©‚¿‚ãAOpenJaneAtwintail‚݂̂̐ݒè
+var buffer=1; // ’ᑬ‰ñü‚â’ᑬƒ}ƒVƒ“‚̏ꍇ‚É‚Íbuffer‚̐”’l‚𑝂₷‚Æ‚æ‚萳Šm‚ɃWƒƒƒ“ƒvi1‘‚â‚·‚Æ0.1•b’x‚ê‚éj
 //========Clickˆ—¨search,‘¼
 	document.onclick = clickEvent;
 function clickEvent(){
@@ -41,19 +40,10 @@ function mouseOverEvent() {
   else if(e.innerText.match(/^‚ ‚ځ`‚ñ$/))                          {abonePopup(e);}
  }
  if(e.tagName=='A'){
-  if(!e.innerText.match(/%/)){ // URLƒGƒ“ƒR[ƒh‚Å‚ ‚肪‚¿‚È%‚ª‚È‚¯‚ê‚Î
-   e.href=e.href.replace(/>/g,"");
-   e.href=e.href.replace(/\/ime.nu/g,"");
-  }else{
-   try{
-    e.title=decodeURI(e.innerText);
-   }catch(err){
-     // ShiftJIS,EUC-JP‚̃fƒR[ƒh‚Í–Ê“|‚¾‚©‚ç‚‚¯‚È‚¢B
-   }
-  }
+  e.href=e.href.replace(/>/g,"");
+  e.href=e.href.replace(/\/ime.nu/g,"");
   if     (checkAnchor(e.href)==2){insButton(e);return;}
   else if(checkAnchor(e.href)==1){
-   if(event.shiftKey){if(e.rel){e.href=e.rel}return}
    // ‘½’iƒ|ƒbƒvƒAƒbƒv
    var aNum=parseInt(e.sourceIndex)+1;
    if(!document.getElementById("p"+aNum)){
@@ -106,10 +96,10 @@ function scroll_End(){document.getElementsByTagName("DL")[0].lastChild.scrollInt
 // IMG
 function imgCommand(mode,s){
  if(!waited){
-  var nHTML='<div id="command" onclick="clearCommand()"><input type="button" onclick="allImageLoad(\'all\')" value="‘SƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="allImageLoad(\'new\')" value="VƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="removeError()" value="Error‰æ‘œíœ"><br></div>';
+  var nHTML='<div id="command" onclick="clearCommand()"><input type="button" onclick="allImageLoad(\'all\')" value="‘SƒŒƒXˆêŠ‡“Ǎž"><br><input type="button" onclick="allImageLoad(\'new\')" value="VƒŒƒXˆêŠ‡“Ǎž"><br></div>';
   event.srcElement.parentElement.insertAdjacentHTML('beforeEnd',nHTML);
   if(skinName.match(/30-2/)){
-   //if(!lightmode){document.getElementById("command").insertAdjacentHTML('afterBegin','<input type="button" onclick="changePanel()" value="ƒpƒlƒ‹Ø‘Ö"><br>')}
+   if(!lightmode){document.getElementById("command").insertAdjacentHTML('afterBegin','<input type="button" onclick="changePanel()" value="ƒpƒlƒ‹Ø‘Ö"><br>')}
    document.getElementById("command").insertAdjacentHTML('beforeEnd','<input type="button" onclick="changeMode()" value="ƒ‚[ƒhØ‘Ö">')
   }
   waited=true;
@@ -119,7 +109,7 @@ function imgCommand(mode,s){
 }
 function clearCommand(){
  waited=false;
- document.getElementById("command").removeNode(true);
+ event.srcElement.parentElement.removeNode(true);
 }
 //=========¶’·‰Ÿˆ—¨copyMenu()
 	document.onmousedown=mousedownEvent;
@@ -132,7 +122,6 @@ function mousedownEvent(){
   clickTimer=setTimeout("copyMenu()",500);
  }
 }
-
 //ƒRƒs[ƒƒjƒ…[¨colorChange(),search::copyText()
 function copyMenu(){
  clickCancel=true; clearTimeout(clickTimer);
@@ -176,53 +165,27 @@ function key(){
  }
 }
 
-//=========V’…ƒŒƒXŽæ“¾Œãˆ—i•W€ƒXƒLƒ“–¢‘Ήžƒuƒ‰ƒEƒU—pj©Timer–”‚ÍFooter‚©‚çŒÄ‚яo‚µ
-//=========‚©‚¿‚ãAABoneAƒ]ƒk‚Q
+//=========Loadi‘ã‘ցjˆ—iŠeFooter‚à‚µ‚­‚́AHeader‚ł̃‹[ƒv‚©‚çŒÄo‚µj
 var newResNum=parseInt(document.getElementsByName("GetRescount")[0].content)+1;
 var k=0;
-function loadEvent(num){ // Timer–”‚ÍFooter‚©‚ç
- //====V’…ƒŒƒXƒWƒƒƒ“ƒv
- if(newResJump==0){clearInterval(timerID);return} //uƒuƒ‰ƒEƒU”C‚¹v‚È‚çI—¹
- //V’…ƒŒƒX‚ÌŠJŽn”ԍ†‚ðŽæ“¾
- if     (browser=="‚©‚¿‚ã`‚µ‚á"){if(isNaN(newResNum)){while(dts[k]){if(dts[k].className=="new"){newResNum=parseInt(dts[k].firstChild.innerText);break;} k++;}}}
- else if(browser=="ƒzƒbƒgƒ]ƒk‚Q"){newResNum=num+1;}
+function loadEvent(){
+ //GetRescount‘ã‘Ö "”Žš‚Å‚È‚¯‚ê‚Î"
+ if(isNaN(newResNum)){while(dts[k]){if(dts[k].className=="new"){newResNum=parseInt(dts[k].firstChild.innerText);break;} k++; }}
+ //V’…ŠJŽnƒiƒ“ƒo[‚ðÝ’肵‚ăWƒƒƒ“ƒv
  var anc=document.anchors(anchorHead+newResNum);
- if(!anc || !anc.parentElement){return} // “§–¾‚ ‚ځ`‚ñ‚³‚ê‚Ä‚½‚çI—¹
- //V’…ƒŒƒXƒWƒƒƒ“ƒv
- scr=lightmode ? document.body : document.getElementById("dl");
- viewPos=scr.scrollTop+scr.clientHeight;// ƒXƒNƒ[ƒ‹Œã‚̉æ–ʉº•”ˆÊ’u
- endPos =anc.offsetTop+20;				// VƒŒƒXƒAƒ“ƒJ[ˆÊ’u
- //ÅŒã‚Ü‚Å“Ç—¹ or uí‚ɐV’…ƒWƒƒƒ“ƒvv‚È‚çƒWƒƒƒ“ƒv
- if(viewPos>endPos || newResJump==2){clearInterval(timerID);setTimeout("moveToNew("+newResNum+")",buffer*100)}
- else{firstNew=document.anchors(anchorHead+newResNum).parentElement.nextSibling;}
-}
-//=========V’…ƒŒƒXŽæ“¾Œãˆ—i•W€ƒXƒLƒ“‘Ήžƒuƒ‰ƒEƒU—pj©NewMark‚©‚çŒÄ‚яo‚µ
-//=========OpenJAtwin
-var scr,viewPos,endPos=0;
-function reloadEvent(){
- //====Šù“lj»
- var lastDt=dts[dts.length-2];if(!lastDt){return}// ‘S•”V’…‚È‚çI—¹
- while(lastDt && lastDt.className=="new"){lastDt.className="";lastDt=lastDt.previousSibling.previousSibling;}
- //====V’…ƒŒƒXƒWƒƒƒ“ƒv
- if(newResJump==0){return} //uƒuƒ‰ƒEƒU”C‚¹v‚È‚çI—¹
- var ancs=document.anchors;
- var newResNum=parseInt(ancs[ancs.length-1].name)+1;
- scr=lightmode ? document.body : document.getElementById("dl");
- viewPos=scr.scrollTop;
- endPos =scr.scrollHeight-scr.clientHeight-20;
- //ÅŒã‚Ü‚Å“Ç—¹ or uí‚ɐV’…ƒWƒƒƒ“ƒvv‚È‚çƒWƒƒƒ“ƒv
- if(viewPos>endPos || newResJump==2){setTimeout("moveToNew("+newResNum+")",buffer*100);} 
+ if(anc && anc.parentElement){
+  if(buffer==0){clearInterval(timerID);moveToNew(newResNum);}
+  else         {buffer--;}
+ }
 }
-
 // V’…ƒŒƒXˆÚ“®{V’…ƒŒƒX‚̈ʒu‚ð‹L‰¯
 var firstNew;
 function moveToNew(num){
  firstNew=getDTfromAnc(num);
- while(!firstNew){num--;firstNew=getDTfromAnc(num);} //‘Ώۂª“§–¾‚ ‚ځ`‚ñ‚Ȃ琔‚ðŒ¸‚ç‚·
- firstNew.scrollIntoView(true);
+ if(firstNew){firstNew.scrollIntoView(true);}
 }
 
-//=========DoubleClickˆ—¨defaultPopup()
+//=========DblClickˆ—¨defaultPopup()
 	document.ondblclick=defaultPopup;
 function defaultPopup(){
  var num=document.selection.createRange().text.replace(/\s$/,"");
@@ -237,17 +200,4 @@ function defaultPopup(){
   obj.innerText="ID:"+num;
   search(obj);
  }
-}
-
-//=========Copyˆ—
-//head‚©‚ç“Ç‚Þ‚Æbody‚ÍŒ©‚¦‚È‚¢‚̂ŁAê—pƒuƒ‰ƒEƒU‚Ì“ÁŽ¿‚ð—˜—p‚µ‚Äbody‚ÌŒã‚ë‚ɏ‘‚«o‚·
-//–{—ˆ‚Ç‚¨‚èhead‚ɏ‘‚«o‚·SkinManager‘΍ô‚Å”»’è‚ðˆê‚“ü‚ê‚é
-	if(document.body) document.write('<script type="text/javascript">document.body.oncopy=copyEvent</script>\n');
-function copyEvent(){
- var textarea=document.createElement("TEXTAREA");
- textarea.value=document.selection.createRange().text.replace(/\s(\r\n|$)/g,"\n");
- var copyText=textarea.createTextRange();
- copyText.execCommand("Copy");
- return false; 
-}
-
+}
\ No newline at end of file

--- a/res/skin/skin30-3G/chie_popup.js
+++ b/res/skin/skin30-3G/chie_popup.js
@@ -15,7 +15,7 @@ var pb;
 function namePopup(e,before,num,after){
  var hnum=tohan(num);
  //‚RŽü”NA‚SŽü”NASocket774A774KBA21‹ÖA[1-30]A‚ȂǂɑΉž
- if(before){if(hnum==5 || hnum==774 || hnum==4 || hnum==21 || hnum==1 || hnum==30){return}}
+ if(before){if(hnum==3 || hnum==774 || hnum==4 || hnum==21 || hnum==1 || hnum==30){return}}
  e.outerHTML = "<b>"+before+"</b><b>"+addAnchor(hnum,num)+"</b><b>"+after+"</b>";
 }
 //=========Žã‚ ‚ځ`‚ñ‚̃|ƒbƒvƒAƒbƒv

--- a/res/skin/skin30-3G/chie_search.js
+++ b/res/skin/skin30-3G/chie_search.js
@@ -110,7 +110,7 @@ function clearResult(obj){
   for(var i=l;i--;){
    var dt=eval(arrayElement); var dd=dt.nextSibling;
     //Live‹@”\’ljÁ - “§–¾‚ ‚ځ`‚ñ
-   if(browser=="Live2ch"){location.href='func:ABONECLEAR?'+dt.firstChild.innerText;}
+   if(browser=="Live2ch"){location.href='func:ABONECLEAR?'+dt.firstChild.innerText;continue;}
    dt.removeNode(true); dd.removeNode(true);
   }
  }
@@ -144,7 +144,7 @@ function findIt(word){
 
 //==========‹tŽQÆ
 function searchRef(obj){
- if(obj.name!='referred'){
+ if(obj.name!='reffered'){
   var num=obj.firstChild.innerText;
   var l=dds.length;
   var found = new Array;
@@ -171,7 +171,7 @@ function searchRef(obj){
    if(exist){
     var dt=dds[i].previousSibling.cloneNode(true);
     found.unshift(dt.outerHTML.replace(/name=.*?>/,">")+dd.outerHTML.replace(/<a name=.*>/i,""));
-    obj.name="referred";
+    obj.name="reffered";
    }
   }
   if(found.length){returnRef(obj.nextSibling,found)}
@@ -190,12 +190,13 @@ function returnRef(dd,found){
 function copyText(target){
  var num=event.srcElement.parentElement.name;
  var obj=getDTfromAnc(num);
+ var decoy=document.createDocumentFragment();
  var textarea=document.createElement("TEXTAREA");
- var message=obj.nextSibling.innerText.replace(/\s(\r\n|$)/g,"\n");
- if     (target=="res") {textarea.value=obj.firstChild.innerText+" F"+obj.childNodes[1].innerText+" F"+obj.lastChild.innerText+"\n"+message;}
+ if     (target=="res") {textarea.value=obj.firstChild.innerText+" F"+obj.childNodes[1].innerText+" F"+obj.lastChild.innerText+"\n"+obj.nextSibling.innerText+"\n";}
  else if(target=="name"){textarea.value=obj.childNodes[1].innerText+"\n";}
- else if(target=="id")  {textarea.value="ID:"+(obj.lastChild.innerText.split(/ID:/))[1]+"\n";}
- var copyText=textarea.createTextRange();
+ else if(target=="id")  {textarea.value=obj.lastChild.innerText.substr(15)+"\n";}
+ decoy.appendChild(textarea);
+ var copyText=decoy.getElementsByTagName("TEXTAREA")[0].createTextRange();
  copyText.execCommand("Copy")
  event.srcElement.parentElement.removeNode(true);
 }