Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.623 by h677, Sun Dec 31 01:29:28 2006 UTC revision 1.624 by h677, Sun Dec 31 04:23:28 2006 UTC
# Line 725  type Line 725  type
725                  procedure ShowBBSTree( inBBS : TBBS );                  procedure ShowBBSTree( inBBS : TBBS );
726                  procedure ShowBBSTreeOld( inBBS : TBBS );                  procedure ShowBBSTreeOld( inBBS : TBBS );
727                  procedure ShowHistoryTree;                  procedure ShowHistoryTree;
                 procedure SetHistoryTreeNode;  
728                  procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);                  procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
729                  procedure SetBrowserTabState;                  procedure SetBrowserTabState;
730                  procedure SetToolBarPopup;                  procedure SetToolBarPopup;
# Line 848  const Line 847  const
847          DandD_THRESHOLD = 5;    //D&Dの閾値(pixcel)          DandD_THRESHOLD = 5;    //D&Dの閾値(pixcel)
848          //プレビューファイル名          //プレビューファイル名
849          HTML_FILE_NAME  = 'temp_preview.html';          HTML_FILE_NAME  = 'temp_preview.html';
         ITEM_ICON_THREADLOG1            = 6;            //スレアイコン(ログあり)  
         ITEM_ICON_THREADLOG2            = 7;            //スレアイコン(ログあり)  
850          //メッセージID          //メッセージID
851          USER_TREECLICK                                  = WM_USER + 2000;          USER_TREECLICK                                  = WM_USER + 2000;
852          USER_RESIZED            = WM_USER + 2001;          USER_RESIZED            = WM_USER + 2001;
# Line 3182  begin Line 3179  begin
3179                  FTreeType := gttHistory;                  FTreeType := gttHistory;
3180                  HistoryToolBar.Show;                  HistoryToolBar.Show;
3181                  FavoriteToolBar.Hide;                  FavoriteToolBar.Hide;
3182                  SetHistoryTreeNode;          FHistoryList.SetTreeNode( TreeView );
3183                  CabinetSelectToolButton.Caption := '履歴リスト';                  CabinetSelectToolButton.Caption := '履歴リスト';
3184          end;          end;
3185  end;  end;
3186    
 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 のチェックを行わない  
                         // ※Item.Item プロパティは dat の読み込みを必要とする  
                         Node.ImageIndex := ITEM_ICON_THREADLOG1;  
                         Node.SelectedIndex := ITEM_ICON_THREADLOG2;  
                         Node.Data := Item;  
                 end;  
         finally  
                 TreeView.Items.EndUpdate;  
         end;  
 end;  
   
3187  procedure TGikoForm.SelectTreeNode(Item: TObject; CallEvent: Boolean);  procedure TGikoForm.SelectTreeNode(Item: TObject; CallEvent: Boolean);
3188  var  var
3189          ChangeEvent: TTVChangedEvent;          ChangeEvent: TTVChangedEvent;

Legend:
Removed from v.1.623  
changed lines
  Added in v.1.624

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