| 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; |
| 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); |
| 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); |
| 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); |
| 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; |
| 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; |
| 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; |
| 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; |
| 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; |
| 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 |
|
|
| 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 |
| 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); |