| 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; |
| 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; |
| 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); |
| 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 |
|
|
| 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をコピー |
| 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 |
|
|
| 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 |