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.104 by h677, Fri Nov 14 17:29:59 2003 UTC revision 1.105 by yoffy, Fri Nov 14 19:01:15 2003 UTC
# Line 1090  begin Line 1090  begin
1090          //アドレス履歴読み込み          //アドレス履歴読み込み
1091          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);          AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1092    
1093      // 外部板プラグインをロード(ReadBoardFile より先に行うこと)
1094      InitializeBoardPlugIns;
1095    
1096          EnabledCloseButton := True;          EnabledCloseButton := True;
1097          BoardGroup.BBS2ch.ReadBoardFile;                //ボードファイル読込          BoardGroup.BBS2ch.ReadBoardFile;                //ボードファイル読込
1098  //      SetBoardTreeNode;                                                                               //ツリーにボード追加  //      SetBoardTreeNode;                                                                               //ツリーにボード追加
# Line 1410  begin Line 1413  begin
1413          StatusBar.Panels[2].Text := s;          StatusBar.Panels[2].Text := s;
1414          StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);          StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1415          StatusBarResize(Sender);          StatusBarResize(Sender);
   
   // 外部板プラグインをロード  
   InitializeBoardPlugIns;  
1416  end;  end;
1417    
1418  //  //
# Line 5915  var Line 5915  var
5915          i, bound : Integer;          i, bound : Integer;
5916  begin  begin
5917    
5918            //===== プラグイン
5919          try          try
5920                  bound := High( BoardPlugIns );                  bound := High( BoardPlugIns );
5921                  for i := Low( BoardPlugIns ) to bound do begin                  for i := Low( BoardPlugIns ) to bound do begin
# Line 5924  begin Line 5925  begin
5925                                          Board := TBoard.Create;                                          Board := TBoard.Create;
5926                                          Board.Insert( 0, ThreadItem );                                          Board.Insert( 0, ThreadItem );
5927                                          InsertBrowserTab( ThreadItem );                                          InsertBrowserTab( ThreadItem );
5928                                          DownloadContent( ThreadItem );            if not ThreadItem.IsLogFile then
5929                                                    DownloadContent( ThreadItem );
5930    
5931                                          Exit;                                          Exit;
5932                                  end;                                  end;
# Line 7559  var Line 7561  var
7561          msg : String;          msg : String;
7562          CurItem : TTreeNode;          CurItem : TTreeNode;
7563          next : boolean;          next : boolean;
         position : Integer;  
7564  begin  begin
7565          if InputQuery('板名検索','板名の入力',s) then begin          if InputQuery('板名検索','板名の入力',s) then begin
7566                  next := true;                  next := true;
# Line 7668  begin Line 7669  begin
7669                  Node.ImageIndex := 15;                  Node.ImageIndex := 15;
7670                  Node.SelectedIndex := 15;                  Node.SelectedIndex := 15;
7671          end else if Source is TFavoriteBoardItem then begin          end else if Source is TFavoriteBoardItem then begin
7672            FavoBoardItem := TFavoriteBoardItem( Source );
7673        Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID );
7674        if Board <> nil then
7675          if not Board.IsThreadDatRead then
7676            GikoSys.ReadSubjectFile(Board);
7677                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source);                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source);
7678                  Node.ImageIndex := 15;                  Node.ImageIndex := 15;
7679                  Node.SelectedIndex := 15;                  Node.SelectedIndex := 15;
# Line 7681  begin Line 7687  begin
7687                  Node.ImageIndex := 16;                  Node.ImageIndex := 16;
7688                  Node.SelectedIndex := 16;                  Node.SelectedIndex := 16;
7689          end else if Source is TFavoriteThreadItem then begin          end else if Source is TFavoriteThreadItem then begin
7690            FavoThreadItem := TFavoriteThreadItem( Source );
7691        Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID );
7692        if Board <> nil then
7693          if not Board.IsThreadDatRead then
7694            GikoSys.ReadSubjectFile(Board);
7695        ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID );
7696                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source);                  Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source);
7697                  Node.ImageIndex := 16;                  Node.ImageIndex := 16;
7698                  Node.SelectedIndex := 16;                  Node.SelectedIndex := 16;
# Line 7986  begin Line 7998  begin
7998  end;  end;
7999    
8000  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
 var  
         ThreadItem: TThreadItem;  
         FavThread: TFavoriteThreadItem;  
         Board: TBoard;  
         APoint: TPoint;  
         HitTest: THitTests;  
8001  begin  begin
8002    
8003          FClickNode := FavoriteTreeView.Selected;          FClickNode := FavoriteTreeView.Selected;

Legend:
Removed from v.1.104  
changed lines
  Added in v.1.105

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