HistoryListにメソッドを移動

[gikonavigoeson/gikonavi.git] / HistoryList.pas

diff --git a/HistoryList.pas b/HistoryList.pas
index 6866be7..3241d17 100644 (file)
--- 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;
+                       }
+                       // \95\89\89×\82ð\82©\82¯\82½\82­\82È\82¢\82Ì\82Å NewArrival \82Ì\83`\83F\83b\83N\82ð\8ds\82í\82È\82¢
+                       // \81¦Item.Item \83v\83\8d\83p\83e\83B\82Í dat \82Ì\93Ç\82Ý\8d\9e\82Ý\82ð\95K\97v\82Æ\82·\82é
+                       Node.ImageIndex := ITEM_ICON_THREADLOG1;
+                       Node.SelectedIndex := ITEM_ICON_THREADLOG2;
+                       Node.Data := Item;
+               end;
+       finally
+               TreeView.Items.EndUpdate;
+       end;
+end;
 
 end.