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.204 by yoffy, Sun Mar 7 08:18:42 2004 UTC revision 1.205 by yoffy, Sun Mar 7 08:46:55 2004 UTC
# Line 466  type Line 466  type
466                  N52: TMenuItem;                  N52: TMenuItem;
467                  N53: TMenuItem;                  N53: TMenuItem;
468                  SearchBoardName: TMenuItem;                  SearchBoardName: TMenuItem;
469                  N55: TMenuItem;      TreeSelectLogDeleteSeparator: TMenuItem;
470                  TreeSelectSearchBoardName: TAction;                  TreeSelectSearchBoardName: TAction;
471                  CabinetFavoriteAction: TAction;                  CabinetFavoriteAction: TAction;
472                  N54: TMenuItem;                  N54: TMenuItem;
# Line 522  type Line 522  type
522      N64: TMenuItem;      N64: TMenuItem;
523      dummy1: TMenuItem;      dummy1: TMenuItem;
524      Browser: TWebBrowser;      Browser: TWebBrowser;
525        TreeSelectLogDeletePopupMenu: TMenuItem;
526        N65: TMenuItem;
527                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
528                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
529                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 5115  var Line 5117  var
5117  begin  begin
5118          TmpTreeNode := FClickNode;          TmpTreeNode := FClickNode;
5119          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5120          if TObject(TmpTreeNode.Data) is TBoard then begin          if TObject(TmpTreeNode.Data) is TBoard then
5121                  Board := TBoard(TmpTreeNode.Data);                  Board := TBoard(TmpTreeNode.Data)
5122            else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then
5123                    Board := TFavoriteBoardItem(TmpTreeNode.Data).Item;
5124    
5125            if Board <> nil then
5126                  DownloadList(Board);                  DownloadList(Board);
         end;  
5127  end;  end;
5128    
5129  procedure TGikoForm.TreeSelectThreadReloadExecute(Sender: TObject);  procedure TGikoForm.TreeSelectThreadReloadExecute(Sender: TObject);
# Line 5128  var Line 5133  var
5133  begin  begin
5134          TmpTreeNode := FClickNode;          TmpTreeNode := FClickNode;
5135          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5136          if TObject(TmpTreeNode.Data) is TThreadItem then begin          if TObject(TmpTreeNode.Data) is TThreadItem then
5137                  ThreadItem := TThreadItem(TmpTreeNode.Data);                  ThreadItem := TThreadItem(TmpTreeNode.Data)
5138            else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then
5139                    ThreadItem := TFavoriteThreadItem(TmpTreeNode.Data).Item;
5140    
5141            if ThreadItem <> nil then
5142                  DownloadContent(ThreadItem);                  DownloadContent(ThreadItem);
         end;  
5143  end;  end;
5144    
5145  procedure TGikoForm.TreeSelectURLCopyExecute(Sender: TObject);  procedure TGikoForm.TreeSelectURLCopyExecute(Sender: TObject);
# Line 5143  begin Line 5151  begin
5151          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5152          if TObject(TmpTreeNode.Data) is TBoard then begin          if TObject(TmpTreeNode.Data) is TBoard then begin
5153                  s := TBoard(TmpTreeNode.Data).URL + #13#10;                  s := TBoard(TmpTreeNode.Data).URL + #13#10;
5154            end else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then begin
5155                    s := TFavoriteBoardItem(TmpTreeNode.Data).URL + #13#10;
5156          end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin          end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin
5157                  s := TThreadItem(TmpTreeNode.Data).URL + #13#10;                  s := TThreadItem(TmpTreeNode.Data).URL + #13#10;
5158            end else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then begin
5159                    s := TFavoriteThreadItem(TmpTreeNode.Data).URL + #13#10;
5160          end;          end;
5161          Clipboard.AsText := s;          Clipboard.AsText := s;
5162  end;  end;
# Line 5158  begin Line 5170  begin
5170          TreeView.Selected := FClickNode;          TreeView.Selected := FClickNode;
5171          if TObject(TmpTreeNode.Data) is TBoard then begin          if TObject(TmpTreeNode.Data) is TBoard then begin
5172                  s := TBoard(TmpTreeNode.Data).Title + #13#10 + TBoard(TmpTreeNode.Data).URL + #13#10;                  s := TBoard(TmpTreeNode.Data).Title + #13#10 + TBoard(TmpTreeNode.Data).URL + #13#10;
5173            end else if TObject(TmpTreeNode.Data) is TFavoriteBoardItem then begin
5174                    s := TFavoriteBoardItem(TmpTreeNode.Data).Item.Title + #13#10 + TFavoriteBoardItem(TmpTreeNode.Data).URL + #13#10;
5175          end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin          end else if (TObject(TmpTreeNode.Data) is TThreadItem) then begin
5176                  s := TThreadItem(TmpTreeNode.Data).Title + #13#10 + TThreadItem(TmpTreeNode.Data).URL + #13#10;                  s := TThreadItem(TmpTreeNode.Data).Title + #13#10 + TThreadItem(TmpTreeNode.Data).URL + #13#10;
5177            end else if TObject(TmpTreeNode.Data) is TFavoriteThreadItem then begin
5178                    s := TFavoriteThreadItem(TmpTreeNode.Data).Item.Title + #13#10 + TFavoriteThreadItem(TmpTreeNode.Data).URL + #13#10;
5179          end;          end;
5180          Clipboard.AsText := s;          Clipboard.AsText := s;
5181  end;  end;
# Line 5175  begin Line 5191  begin
5191                  TreeSelectURLPupupMenu.Visible := False;                  TreeSelectURLPupupMenu.Visible := False;
5192                  TreeSelectNameURLPupupMenu.Visible := False;                  TreeSelectNameURLPupupMenu.Visible := False;
5193                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
5194                    TreeSelectLogDeleteSeparator.Visible := False;
5195                    TreeSelectLogDeletePopupMenu.Visible := False;
5196          end else if TObject(FClickNode.Data) is TBoard then begin          end else if TObject(FClickNode.Data) is TBoard then begin
5197                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
5198                  TreeSelectBoardPupupMenu.Visible := True;                  TreeSelectBoardPupupMenu.Visible := True;
# Line 5182  begin Line 5200  begin
5200                  TreeSelectURLPupupMenu.Visible := True;                  TreeSelectURLPupupMenu.Visible := True;
5201                  TreeSelectNameURLPupupMenu.Visible := True;                  TreeSelectNameURLPupupMenu.Visible := True;
5202                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
5203                    TreeSelectLogDeleteSeparator.Visible := False;
5204                    TreeSelectLogDeletePopupMenu.Visible := False;
5205            end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin
5206                    TreeSelectThreadPupupMenu.Visible := False;
5207                    TreeSelectBoardPupupMenu.Visible := True;
5208                    TPMSep01.Visible := True;
5209                    TreeSelectURLPupupMenu.Visible := True;
5210                    TreeSelectNameURLPupupMenu.Visible := True;
5211                    TreeSelectFavoriteAddPupupMenu.Visible := True;
5212                    TreeSelectLogDeleteSeparator.Visible := False;
5213                    TreeSelectLogDeletePopupMenu.Visible := False;
5214          end else if (TObject(FClickNode.Data) is TThreadItem) then begin          end else if (TObject(FClickNode.Data) is TThreadItem) then begin
5215                  TreeSelectThreadPupupMenu.Visible := True;                  TreeSelectThreadPupupMenu.Visible := True;
5216                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 5189  begin Line 5218  begin
5218                  TreeSelectURLPupupMenu.Visible := True;                  TreeSelectURLPupupMenu.Visible := True;
5219                  TreeSelectNameURLPupupMenu.Visible := True;                  TreeSelectNameURLPupupMenu.Visible := True;
5220                  TreeSelectFavoriteAddPupupMenu.Visible := True;                  TreeSelectFavoriteAddPupupMenu.Visible := True;
5221                    TreeSelectLogDeleteSeparator.Visible := True;
5222                    TreeSelectLogDeletePopupMenu.Visible := True;
5223            end else if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
5224                    TreeSelectThreadPupupMenu.Visible := True;
5225                    TreeSelectBoardPupupMenu.Visible := False;
5226                    TPMSep01.Visible := True;
5227                    TreeSelectURLPupupMenu.Visible := True;
5228                    TreeSelectNameURLPupupMenu.Visible := True;
5229                    TreeSelectFavoriteAddPupupMenu.Visible := True;
5230                    TreeSelectLogDeleteSeparator.Visible := True;
5231                    TreeSelectLogDeletePopupMenu.Visible := True;
5232          end else begin          end else begin
5233                  TreeSelectThreadPupupMenu.Visible := False;                  TreeSelectThreadPupupMenu.Visible := False;
5234                  TreeSelectBoardPupupMenu.Visible := False;                  TreeSelectBoardPupupMenu.Visible := False;
# Line 5196  begin Line 5236  begin
5236                  TreeSelectURLPupupMenu.Visible := False;                  TreeSelectURLPupupMenu.Visible := False;
5237                  TreeSelectNameURLPupupMenu.Visible := False;                  TreeSelectNameURLPupupMenu.Visible := False;
5238                  TreeSelectFavoriteAddPupupMenu.Visible := False;                  TreeSelectFavoriteAddPupupMenu.Visible := False;
5239                    TreeSelectLogDeleteSeparator.Visible := False;
5240                    TreeSelectLogDeletePopupMenu.Visible := False;
5241          end;          end;
5242  end;  end;
5243    
# Line 6096  var Line 6138  var
6138  begin  begin
6139    
6140          b := FavoriteTreeView.Items.Count - 1;          b := FavoriteTreeView.Items.Count - 1;
6141            if Item is TFavoriteBoardItem then
6142                    Item := TFavoriteBoardItem( Item ).Item
6143            else if Item is TFavoriteThreadItem then
6144                    Item := TFavoriteThreadItem( Item ).Item;
6145    
6146          if Item is TBoard then begin          if Item is TBoard then begin
6147                  Board := TBoard( Item );                  Board := TBoard( Item );
6148                  for i := 0 to b do begin                  for i := 0 to b do begin
# Line 6219  end; Line 6266  end;
6266    
6267  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);
6268  begin  begin
6269          ShowFavoriteAddDialog(TObject(TreeView.Selected.Data));          ShowFavoriteAddDialog(TObject(FClickNode.Data));
6270  end;  end;
6271    
6272  procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject);

Legend:
Removed from v.1.204  
changed lines
  Added in v.1.205

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