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.141 by yoffy, Mon Nov 24 12:04:27 2003 UTC revision 1.142 by yoffy, Mon Nov 24 17:15:20 2003 UTC
# Line 229  type Line 229  type
229                  K2: TMenuItem;                  K2: TMenuItem;
230                  AllTabCloseAction: TAction;                  AllTabCloseAction: TAction;
231                  A5: TMenuItem;                  A5: TMenuItem;
                 N18: TMenuItem;  
232                  A6: TMenuItem;                  A6: TMenuItem;
233                  C1: TMenuItem;                  C1: TMenuItem;
234                  V1: TMenuItem;                  V1: TMenuItem;
235                  N19: TMenuItem;                  N19: TMenuItem;
236                  D1: TMenuItem;                  D1: TMenuItem;
237                  D2: TMenuItem;                  D2: TMenuItem;
                 N20: TMenuItem;  
238                  MessageImageList: TImageList;                  MessageImageList: TImageList;
239                  ProgressBar: TProgressBar;                  ProgressBar: TProgressBar;
240                  ArrangeAction: TAction;                  ArrangeAction: TAction;
# Line 287  type Line 285  type
285                  ItemImage: TImage;                  ItemImage: TImage;
286                  BrowserNameLabel: TLabel;                  BrowserNameLabel: TLabel;
287                  ActiveLogDeleteAction: TAction;                  ActiveLogDeleteAction: TAction;
                 N24: TMenuItem;  
288                  D3: TMenuItem;                  D3: TMenuItem;
289                  N25: TMenuItem;                  N25: TMenuItem;
290                  N26: TMenuItem;                  N26: TMenuItem;
# Line 511  type Line 508  type
508                  ToolButton22: TToolButton;                  ToolButton22: TToolButton;
509                  ToolButton23: TToolButton;                  ToolButton23: TToolButton;
510                  ToolButton24: TToolButton;                  ToolButton24: TToolButton;
511                    N6: TMenuItem;
512                    N17: TMenuItem;
513                    FavoriteTreeViewBrowseBoardAction: TAction;
514                    FavoriteTreeViewBrowseThreadAction: TAction;
515                    FavoriteTreeBrowseBoardPopupMenu: TMenuItem;
516                    FavoriteTreeBrowseThreadPopupMenu: TMenuItem;
517                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
518                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
519                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 810  type Line 813  type
813                  procedure ExportFavoriteFileAccept(Sender: TObject);                  procedure ExportFavoriteFileAccept(Sender: TObject);
814                  procedure ExportFavoriteFileBeforeExecute(Sender: TObject);                  procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
815                  procedure CabinetBBSActionExecute(Sender: TObject);                  procedure CabinetBBSActionExecute(Sender: TObject);
816                    procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
817                    procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
818          private          private
819                  { Private 宣言 }                  { Private 宣言 }
820    
# Line 4479  var Line 4484  var
4484  begin  begin
4485          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent;
4486          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
4487          GikoSys.OpenBrowser(ThreadItem.URL, gbtAuto);          GikoSys.OpenBrowser(ThreadItem.ParentBoard.URL, gbtAuto);
4488  end;  end;
4489    
4490  //(Thread)URLをコピー  //(Thread)URLをコピー
# Line 8167  begin Line 8172  begin
8172                  FavoriteTreeDeletePopupMenu.Enabled := False;                  FavoriteTreeDeletePopupMenu.Enabled := False;
8173                  FavoriteTreeRenamePopupMenu.Enabled := False;                  FavoriteTreeRenamePopupMenu.Enabled := False;
8174                  FavoriteTreeNewFolderPopupMenu.Enabled := False;                  FavoriteTreeNewFolderPopupMenu.Enabled := False;
8175                  FavoriteTreeReloadPopupMenu.Enabled := False;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := False;
8176                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8177                  FavoriteTreeURLCopyPopupMenu.Enabled := False;                  FavoriteTreeURLCopyPopupMenu.Enabled := False;
8178                  FavoriteTreeNameCopyPopupMenu.Enabled := False;                  FavoriteTreeNameCopyPopupMenu.Enabled := False;
8179                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;
8180                    FavoriteTreeReloadPopupMenu.Enabled := False;
8181                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8182          end else if FClickNode.IsFirstNode then begin          end else if FClickNode.IsFirstNode then begin
8183                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
8184                  FavoriteTreeDeletePopupMenu.Enabled := False;                  FavoriteTreeDeletePopupMenu.Enabled := False;
8185                  FavoriteTreeRenamePopupMenu.Enabled := False;                  FavoriteTreeRenamePopupMenu.Enabled := False;
8186                  FavoriteTreeNewFolderPopupMenu.Enabled := True;                  FavoriteTreeNewFolderPopupMenu.Enabled := True;
8187                  FavoriteTreeReloadPopupMenu.Enabled := False;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := False;
8188                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8189                  FavoriteTreeURLCopyPopupMenu.Enabled := False;                  FavoriteTreeURLCopyPopupMenu.Enabled := False;
8190                  FavoriteTreeNameCopyPopupMenu.Enabled := False;                  FavoriteTreeNameCopyPopupMenu.Enabled := False;
8191                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;
8192                    FavoriteTreeReloadPopupMenu.Enabled := False;
8193                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8194          end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin          end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
8195                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
8196                  FavoriteTreeDeletePopupMenu.Enabled := True;                  FavoriteTreeDeletePopupMenu.Enabled := True;
8197                  FavoriteTreeRenamePopupMenu.Enabled := False;                  FavoriteTreeRenamePopupMenu.Enabled := False;
8198                  FavoriteTreeNewFolderPopupMenu.Enabled := True;                  FavoriteTreeNewFolderPopupMenu.Enabled := True;
8199                  FavoriteTreeReloadPopupMenu.Enabled := False;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := False;
8200                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8201                  FavoriteTreeURLCopyPopupMenu.Enabled := False;                  FavoriteTreeURLCopyPopupMenu.Enabled := False;
8202                  FavoriteTreeNameCopyPopupMenu.Enabled := False;                  FavoriteTreeNameCopyPopupMenu.Enabled := False;
8203                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;
8204                    FavoriteTreeReloadPopupMenu.Enabled := False;
8205                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8206          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin          end else if TObject(FClickNode.Data) is TFavoriteFolder then begin
8207                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
8208                  FavoriteTreeDeletePopupMenu.Enabled := True;                  FavoriteTreeDeletePopupMenu.Enabled := True;
8209                  FavoriteTreeRenamePopupMenu.Enabled := True;                  FavoriteTreeRenamePopupMenu.Enabled := True;
8210                  FavoriteTreeNewFolderPopupMenu.Enabled := True;                  FavoriteTreeNewFolderPopupMenu.Enabled := True;
8211                  FavoriteTreeReloadPopupMenu.Enabled := False;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := False;
8212                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8213                  FavoriteTreeURLCopyPopupMenu.Enabled := False;                  FavoriteTreeURLCopyPopupMenu.Enabled := False;
8214                  FavoriteTreeNameCopyPopupMenu.Enabled := False;                  FavoriteTreeNameCopyPopupMenu.Enabled := False;
8215                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;
8216                    FavoriteTreeReloadPopupMenu.Enabled := False;
8217                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8218          end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin          end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin
8219                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
8220                  FavoriteTreeDeletePopupMenu.Enabled := True;                  FavoriteTreeDeletePopupMenu.Enabled := True;
8221                  FavoriteTreeRenamePopupMenu.Enabled := True;                  FavoriteTreeRenamePopupMenu.Enabled := True;
8222                  FavoriteTreeNewFolderPopupMenu.Enabled := True;                  FavoriteTreeNewFolderPopupMenu.Enabled := True;
8223                  FavoriteTreeReloadPopupMenu.Enabled := True;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := True;
8224                    FavoriteTreeBrowseThreadPopupMenu.Enabled := True;
8225                  FavoriteTreeURLCopyPopupMenu.Enabled := True;                  FavoriteTreeURLCopyPopupMenu.Enabled := True;
8226                  FavoriteTreeNameCopyPopupMenu.Enabled := True;                  FavoriteTreeNameCopyPopupMenu.Enabled := True;
8227                  FavoriteTreeNameURLCopyPopupMenu.Enabled := True;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := True;
8228                    FavoriteTreeReloadPopupMenu.Enabled := True;
8229                  FavoriteTreeLogDeletePopupMenu.Enabled := True;                  FavoriteTreeLogDeletePopupMenu.Enabled := True;
8230          end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin          end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin
8231                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
8232                  FavoriteTreeDeletePopupMenu.Enabled := True;                  FavoriteTreeDeletePopupMenu.Enabled := True;
8233                  FavoriteTreeRenamePopupMenu.Enabled := True;                  FavoriteTreeRenamePopupMenu.Enabled := True;
8234                  FavoriteTreeNewFolderPopupMenu.Enabled := True;                  FavoriteTreeNewFolderPopupMenu.Enabled := True;
8235                  FavoriteTreeReloadPopupMenu.Enabled := True;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := True;
8236                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8237                  FavoriteTreeURLCopyPopupMenu.Enabled := True;                  FavoriteTreeURLCopyPopupMenu.Enabled := True;
8238                  FavoriteTreeNameCopyPopupMenu.Enabled := True;                  FavoriteTreeNameCopyPopupMenu.Enabled := True;
8239                  FavoriteTreeNameURLCopyPopupMenu.Enabled := True;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := True;
8240                    FavoriteTreeReloadPopupMenu.Enabled := True;
8241                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8242          end else begin          end else begin
8243                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;                  FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
8244                  FavoriteTreeDeletePopupMenu.Enabled := False;                  FavoriteTreeDeletePopupMenu.Enabled := False;
8245                  FavoriteTreeRenamePopupMenu.Enabled := False;                  FavoriteTreeRenamePopupMenu.Enabled := False;
8246                  FavoriteTreeNewFolderPopupMenu.Enabled := False;                  FavoriteTreeNewFolderPopupMenu.Enabled := False;
8247                  FavoriteTreeReloadPopupMenu.Enabled := False;                  FavoriteTreeBrowseBoardPopupMenu.Enabled := False;
8248                    FavoriteTreeBrowseThreadPopupMenu.Enabled := False;
8249                  FavoriteTreeURLCopyPopupMenu.Enabled := False;                  FavoriteTreeURLCopyPopupMenu.Enabled := False;
8250                  FavoriteTreeNameCopyPopupMenu.Enabled := False;                  FavoriteTreeNameCopyPopupMenu.Enabled := False;
8251                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;                  FavoriteTreeNameURLCopyPopupMenu.Enabled := False;
8252                    FavoriteTreeReloadPopupMenu.Enabled := False;
8253                  FavoriteTreeLogDeletePopupMenu.Enabled := False;                  FavoriteTreeLogDeletePopupMenu.Enabled := False;
8254          end;          end;
8255    
# Line 8694  begin Line 8713  begin
8713    
8714  end;  end;
8715    
8716    procedure TGikoForm.FavoriteTreeViewBrowseThreadActionExecute(
8717            Sender: TObject);
8718    var
8719            threadItem      : TThreadItem;
8720    begin
8721    
8722            if FClickNode = nil then Exit;
8723    
8724            if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
8725    
8726                    threadItem := TFavoriteThreadItem( FClickNode.Data ).Item;
8727                    if threadItem = nil then
8728                            Exit;
8729                    GikoSys.OpenBrowser( threadItem.URL, gbtAuto );
8730    
8731            end;
8732    
8733    end;
8734    
8735    procedure TGikoForm.FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
8736    var
8737            threadItem      : TThreadItem;
8738            boardItem               : TBoard;
8739    begin
8740    
8741            if FClickNode = nil then Exit;
8742    
8743            if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
8744    
8745                    threadItem := TFavoriteThreadItem( FClickNode.Data ).Item;
8746                    if threadItem = nil then
8747                            Exit;
8748                    GikoSys.OpenBrowser( threadItem.ParentBoard.URL, gbtAuto );
8749    
8750            end else if (TObject(FClickNode.Data) is TFavoriteBoardItem) then begin
8751    
8752                    boardItem := TFavoriteBoardItem( FClickNode.Data ).Item;
8753                    if threadItem = nil then
8754                            Exit;
8755                    GikoSys.OpenBrowser( boardItem.URL, gbtAuto );
8756    
8757            end;
8758    
8759    end;
8760    
8761  initialization  initialization
8762                                  OleInitialize(nil);                                  OleInitialize(nil);
8763  finalization  finalization

Legend:
Removed from v.1.141  
changed lines
  Added in v.1.142

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