Commit: b7c226108fead3d5e914be8fed6ce2815f32e061 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: b7c226108fead3d5e914be8fed6ce2815f32e061 (tree)
• Time: 2006-12-31 13:23:28
• Author: h677 <h677>
• Commiter: h677

Log Message

HistoryListにメソッドを移動

Change Summary

• modified: Giko.pas
• modified: HistoryList.pas

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -725,7 +725,6 @@ type
 		procedure ShowBBSTree( inBBS : TBBS );
 		procedure ShowBBSTreeOld( inBBS : TBBS );
 		procedure ShowHistoryTree;
-		procedure SetHistoryTreeNode;
 		procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
 		procedure SetBrowserTabState;
 		procedure SetToolBarPopup;
@@ -848,8 +847,6 @@ const
 	DandD_THRESHOLD	= 5;	//D&D‚Ì臒lipixcel)
 	//ƒvƒŒƒrƒ…[ƒtƒ@ƒCƒ‹–¼
 	HTML_FILE_NAME 	= 'temp_preview.html';
-	ITEM_ICON_THREADLOG1		= 6;		//ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
-	ITEM_ICON_THREADLOG2		= 7;		//ƒXƒŒƒAƒCƒRƒ“iƒƒO‚ ‚èj
 	//ƒƒbƒZ[ƒWID
 	USER_TREECLICK					= WM_USER + 2000;
 	USER_RESIZED            = WM_USER + 2001;
@@ -3182,43 +3179,11 @@ begin
 		FTreeType := gttHistory;
 		HistoryToolBar.Show;
 		FavoriteToolBar.Hide;
-		SetHistoryTreeNode;
+        FHistoryList.SetTreeNode( TreeView );
 		CabinetSelectToolButton.Caption := '—š—ðƒŠƒXƒg';
 	end;
 end;
 
-procedure TGikoForm.SetHistoryTreeNode;
-var
-	i: Integer;
-	Node: TTreeNode;
-	Item: TFavoriteThreadItem;
-begin
-	TreeView.Items.BeginUpdate;
-	try
-		TreeView.Items.Clear;
-		for i := 0 to FHistoryList.Count - 1 do begin
-			Item := TFavoriteThreadItem(FHistoryList[i]);
-			Node := TreeView.Items.Add(nil, Item.Title);
-			{
-			if Item.Item.NewArrival then begin
-				Node.ImageIndex := ITEM_ICON_THREADNEW1;
-				Node.SelectedIndex := ITEM_ICON_THREADNEW2;
-			end else begin
-				Node.ImageIndex := ITEM_ICON_THREADLOG1;
-				Node.SelectedIndex := ITEM_ICON_THREADLOG2;
-			end;
-			}
-			// •‰‰×‚ð‚©‚¯‚½‚­‚È‚¢‚Ì‚Å NewArrival ‚̃`ƒFƒbƒN‚ðs‚í‚È‚¢
-			// ¦Item.Item ƒvƒƒpƒeƒB‚Í dat ‚̓ǂݍž‚Ý‚ð•K—v‚Æ‚·‚é
-			Node.ImageIndex := ITEM_ICON_THREADLOG1;
-			Node.SelectedIndex := ITEM_ICON_THREADLOG2;
-			Node.Data := Item;
-		end;
-	finally
-		TreeView.Items.EndUpdate;
-	end;
-end;
-
 procedure TGikoForm.SelectTreeNode(Item: TObject; CallEvent: Boolean);
 var
 	ChangeEvent: TTVChangedEvent;

--- a/HistoryList.pas
+++ b/HistoryList.pas
@@ -19,6 +19,8 @@ type
         procedure SaveToFile(const FileName: String);
         procedure LoadFromFile(const FileName: String;
             TreeView : TTreeView; TreeType: TGikoTreeType);
+        procedure SetTreeNode( TreeView : TTreeView );
+
     end;
 
 
@@ -223,5 +225,37 @@ begin
 {$ENDIF}
 
 end;
+procedure THistoryList.SetTreeNode(
+    TreeView : TTreeView );
+var
+	i: Integer;
+	Node: TTreeNode;
+	Item: TFavoriteThreadItem;
+begin
+	TreeView.Items.BeginUpdate;
+	try
+		TreeView.Items.Clear;
+		for i := 0 to Self.Count - 1 do begin
+			Item := TFavoriteThreadItem(Self[i]);
+			Node := TreeView.Items.Add(nil, Item.Title);
+			{
+			if Item.Item.NewArrival then begin
+				Node.ImageIndex := ITEM_ICON_THREADNEW1;
+				Node.SelectedIndex := ITEM_ICON_THREADNEW2;
+			end else begin
+				Node.ImageIndex := ITEM_ICON_THREADLOG1;
+				Node.SelectedIndex := ITEM_ICON_THREADLOG2;
+			end;
+			}
+			// •‰‰×‚ð‚©‚¯‚½‚­‚È‚¢‚Ì‚Å NewArrival ‚̃`ƒFƒbƒN‚ðs‚í‚È‚¢
+			// ¦Item.Item ƒvƒƒpƒeƒB‚Í dat ‚̓ǂݍž‚Ý‚ð•K—v‚Æ‚·‚é
+			Node.ImageIndex := ITEM_ICON_THREADLOG1;
+			Node.SelectedIndex := ITEM_ICON_THREADLOG2;
+			Node.Data := Item;
+		end;
+	finally
+		TreeView.Items.EndUpdate;
+	end;
+end;
 
 end.