Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HistoryList.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by h677, Sun Dec 31 01:29:28 2006 UTC revision 1.2 by h677, Sun Dec 31 04:23:28 2006 UTC
# Line 19  type Line 19  type
19          procedure SaveToFile(const FileName: String);          procedure SaveToFile(const FileName: String);
20          procedure LoadFromFile(const FileName: String;          procedure LoadFromFile(const FileName: String;
21              TreeView : TTreeView; TreeType: TGikoTreeType);              TreeView : TTreeView; TreeType: TGikoTreeType);
22            procedure SetTreeNode( TreeView : TTreeView );
23    
24      end;      end;
25    
26    
# Line 223  begin Line 225  begin
225  {$ENDIF}  {$ENDIF}
226    
227  end;  end;
228    procedure THistoryList.SetTreeNode(
229        TreeView : TTreeView );
230    var
231            i: Integer;
232            Node: TTreeNode;
233            Item: TFavoriteThreadItem;
234    begin
235            TreeView.Items.BeginUpdate;
236            try
237                    TreeView.Items.Clear;
238                    for i := 0 to Self.Count - 1 do begin
239                            Item := TFavoriteThreadItem(Self[i]);
240                            Node := TreeView.Items.Add(nil, Item.Title);
241                            {
242                            if Item.Item.NewArrival then begin
243                                    Node.ImageIndex := ITEM_ICON_THREADNEW1;
244                                    Node.SelectedIndex := ITEM_ICON_THREADNEW2;
245                            end else begin
246                                    Node.ImageIndex := ITEM_ICON_THREADLOG1;
247                                    Node.SelectedIndex := ITEM_ICON_THREADLOG2;
248                            end;
249                            }
250                            // 負荷をかけたくないので NewArrival のチェックを行わない
251                            // ※Item.Item プロパティは dat の読み込みを必要とする
252                            Node.ImageIndex := ITEM_ICON_THREADLOG1;
253                            Node.SelectedIndex := ITEM_ICON_THREADLOG2;
254                            Node.Data := Item;
255                    end;
256            finally
257                    TreeView.Items.EndUpdate;
258            end;
259    end;
260    
261  end.  end.

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26