| 962 |
procedure SetBrowserTabState; |
procedure SetBrowserTabState; |
| 963 |
// property Favorite: TFavorite read FFavorite write FFavorite; |
// property Favorite: TFavorite read FFavorite write FFavorite; |
| 964 |
procedure SetToolBarPopup; |
procedure SetToolBarPopup; |
| 965 |
|
procedure ShowFavoriteAddDialog( Item : TObject ); |
| 966 |
published |
published |
| 967 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 968 |
end; |
end; |
| 5717 |
end; |
end; |
| 5718 |
end; |
end; |
| 5719 |
|
|
| 5720 |
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.ShowFavoriteAddDialog( Item : TObject ); |
| 5721 |
var |
var |
| 5722 |
Dlg: TFavoriteAddDialog; |
Dlg: TFavoriteAddDialog; |
| 5723 |
|
i, b: Integer; |
| 5724 |
|
ThreadItem: TThreadItem; |
| 5725 |
|
Board: TBoard; |
| 5726 |
|
FavThread: TFavoriteThreadItem; |
| 5727 |
|
FavBoard: TFavoriteBoardItem; |
| 5728 |
|
begin |
| 5729 |
|
|
| 5730 |
|
b := FavoriteTreeView.Items.Count - 1; |
| 5731 |
|
if Item is TBoard then begin |
| 5732 |
|
for i := 0 to b do begin |
| 5733 |
|
if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteBoardItem then begin |
| 5734 |
|
FavBoard := TFavoriteBoardItem( FavoriteTreeView.Items.Item[ i ].Data ); |
| 5735 |
|
Board := BBS2ch.FindBBSID(FavBoard.BBSID); |
| 5736 |
|
|
| 5737 |
|
if Board = Item then begin |
| 5738 |
|
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
| 5739 |
|
Exit; |
| 5740 |
|
Break; |
| 5741 |
|
end; |
| 5742 |
|
end; |
| 5743 |
|
end; |
| 5744 |
|
|
| 5745 |
|
Dlg := TFavoriteAddDialog.Create(Self); |
| 5746 |
|
try |
| 5747 |
|
Dlg.SetBoard( TBoard(Item) ); |
| 5748 |
|
Dlg.ShowModal; |
| 5749 |
|
finally |
| 5750 |
|
Dlg.Free; |
| 5751 |
|
end; |
| 5752 |
|
end else if Item is TThreadItem then begin |
| 5753 |
|
for i := 0 to b do begin |
| 5754 |
|
if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteThreadItem then begin |
| 5755 |
|
FavThread := TFavoriteThreadItem( FavoriteTreeView.Items.Item[ i ].Data ); |
| 5756 |
|
Board := BBS2ch.FindBBSID(FavThread.BBSID); |
| 5757 |
|
if Board <> nil then |
| 5758 |
|
if not Board.IsThreadDatRead then |
| 5759 |
|
GikoSys.ReadSubjectFile(Board); |
| 5760 |
|
ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); |
| 5761 |
|
|
| 5762 |
|
if ThreadItem = Item then begin |
| 5763 |
|
if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then |
| 5764 |
|
Exit; |
| 5765 |
|
Break; |
| 5766 |
|
end; |
| 5767 |
|
end; |
| 5768 |
|
end; |
| 5769 |
|
|
| 5770 |
|
Dlg := TFavoriteAddDialog.Create(Self); |
| 5771 |
|
try |
| 5772 |
|
Dlg.SetThreadItem( TThreadItem(Item) ); |
| 5773 |
|
Dlg.ShowModal; |
| 5774 |
|
finally |
| 5775 |
|
Dlg.Free; |
| 5776 |
|
end; |
| 5777 |
|
end; |
| 5778 |
|
|
| 5779 |
|
SetLinkBar; |
| 5780 |
|
|
| 5781 |
|
end; |
| 5782 |
|
|
| 5783 |
|
procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject); |
| 5784 |
begin |
begin |
| 5785 |
Dlg := TFavoriteAddDialog.Create(Self); |
ShowFavoriteAddDialog(GetActiveContent); |
|
try |
|
|
Dlg.SetThreadItem(GetActiveContent); |
|
|
Dlg.ShowModal; |
|
|
finally |
|
|
Dlg.Free; |
|
|
end; |
|
|
SetLinkBar; |
|
| 5786 |
end; |
end; |
| 5787 |
|
|
| 5788 |
procedure TGikoForm.FavoriteClick(Sender: TObject); |
procedure TGikoForm.FavoriteClick(Sender: TObject); |
| 5835 |
end; |
end; |
| 5836 |
|
|
| 5837 |
procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject); |
|
var |
|
|
Dlg: TFavoriteAddDialog; |
|
| 5838 |
begin |
begin |
| 5839 |
if TObject(ListView.Selected.Data) is TBoard then begin |
if TObject(ListView.Selected.Data) is TBoard then |
| 5840 |
Dlg := TFavoriteAddDialog.Create(Self); |
ShowFavoriteAddDialog(TObject(ListView.Selected.Data)); |
|
try |
|
|
Dlg.SetBoard(TBoard(ListView.Selected.Data)); |
|
|
Dlg.ShowModal; |
|
|
finally |
|
|
Dlg.Free; |
|
|
end; |
|
|
end; |
|
|
SetLinkBar; |
|
| 5841 |
end; |
end; |
| 5842 |
|
|
| 5843 |
procedure TGikoForm.BoardFavoriteAddActionUpdate(Sender: TObject); |
procedure TGikoForm.BoardFavoriteAddActionUpdate(Sender: TObject); |
| 5846 |
end; |
end; |
| 5847 |
|
|
| 5848 |
procedure TGikoForm.ThreadFavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.ThreadFavoriteAddActionExecute(Sender: TObject); |
|
var |
|
|
Dlg: TFavoriteAddDialog; |
|
| 5849 |
begin |
begin |
| 5850 |
if TObject(ListView.Selected.Data) is TThreadItem then begin |
if TObject(ListView.Selected.Data) is TThreadItem then |
| 5851 |
Dlg := TFavoriteAddDialog.Create(Self); |
ShowFavoriteAddDialog(TObject(ListView.Selected.Data)); |
|
try |
|
|
Dlg.SetThreadItem(TThreadItem(ListView.Selected.Data)); |
|
|
Dlg.ShowModal; |
|
|
finally |
|
|
Dlg.Free; |
|
|
end; |
|
|
end; |
|
|
SetLinkBar; |
|
| 5852 |
end; |
end; |
| 5853 |
|
|
| 5854 |
procedure TGikoForm.ThreadFavoriteAddActionUpdate(Sender: TObject); |
procedure TGikoForm.ThreadFavoriteAddActionUpdate(Sender: TObject); |
| 5857 |
end; |
end; |
| 5858 |
|
|
| 5859 |
procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject); |
procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject); |
|
var |
|
|
Dlg: TFavoriteAddDialog; |
|
| 5860 |
begin |
begin |
| 5861 |
if TObject(TreeView.Selected.Data) is TBoard then begin |
ShowFavoriteAddDialog(TObject(TreeView.Selected.Data)); |
|
Dlg := TFavoriteAddDialog.Create(Self); |
|
|
try |
|
|
Dlg.SetBoard(TBoard(TreeView.Selected.Data)); |
|
|
Dlg.ShowModal; |
|
|
finally |
|
|
Dlg.Free; |
|
|
end; |
|
|
end else if TObject(TreeView.Selected.Data) is TThreadItem then begin |
|
|
Dlg := TFavoriteAddDialog.Create(Self); |
|
|
try |
|
|
Dlg.SetThreadItem(TThreadItem(TreeView.Selected.Data)); |
|
|
Dlg.ShowModal; |
|
|
finally |
|
|
Dlg.Free; |
|
|
end; |
|
|
end; |
|
|
SetLinkBar; |
|
| 5862 |
end; |
end; |
| 5863 |
|
|
| 5864 |
procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject); |