| 3717 |
// SetContent(ThreadItem); |
// SetContent(ThreadItem); |
| 3718 |
FHistoryList.Move(i, 0); |
FHistoryList.Move(i, 0); |
| 3719 |
if FTreeType = gttHistory then |
if FTreeType = gttHistory then |
| 3720 |
if TreeView.TopItem <> TreeView.Items[ i ] then |
if TreeView.Items.GetFirstNode <> TreeView.Items[ i ] then |
| 3721 |
TreeView.Items[ i ].MoveTo( TreeView.TopItem, naInsert ); |
TreeView.Items[ i ].MoveTo( TreeView.Items.GetFirstNode, naInsert ); |
| 3722 |
Result := false; |
Result := false; |
| 3723 |
Exit; |
Exit; |
| 3724 |
end; |
end; |
| 3725 |
end; |
end; |
| 3733 |
|
|
| 3734 |
if FTreeType = gttHistory then begin |
if FTreeType = gttHistory then begin |
| 3735 |
Node := TreeView.Items.Add( nil, favItem.Title ); |
Node := TreeView.Items.Add( nil, favItem.Title ); |
| 3736 |
Node.MoveTo( TreeView.TopItem, naInsert ); |
Node.MoveTo( TreeView.Items.GetFirstNode, naInsert ); |
| 3737 |
{ |
{ |
| 3738 |
if favItem.NewArrival then begin |
if favItem.NewArrival then begin |
| 3739 |
Node.ImageIndex := ITEM_ICON_THREADNEW1; |
Node.ImageIndex := ITEM_ICON_THREADNEW1; |
| 3899 |
FTreeType := gtt2ch; |
FTreeType := gtt2ch; |
| 3900 |
HistoryToolBar.Hide; |
HistoryToolBar.Hide; |
| 3901 |
SetBoardTreeNode( inBBS ); |
SetBoardTreeNode( inBBS ); |
| 3902 |
TreeView.TopItem.Expanded := True; //?c???[?g?b?v???????J?? |
TreeView.Items.GetFirstNode.Expanded := True; //?c???[?g?b?v???????J?? |
| 3903 |
//?c???[??g?b?v?????I???? |
//?c???[??g?b?v?????I???? |
| 3904 |
if GetActiveList = nil then |
if GetActiveList = nil then |
| 3905 |
TreeView.Selected := TreeView.Items[0] |
TreeView.Selected := TreeView.Items[0] |
| 3956 |
FTreeType := gtt2ch; |
FTreeType := gtt2ch; |
| 3957 |
HistoryToolBar.Hide; |
HistoryToolBar.Hide; |
| 3958 |
SetBoardTreeNode( inBBS ); |
SetBoardTreeNode( inBBS ); |
| 3959 |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
TreeView.Items.GetFirstNode.Expanded := True; //ツリートップ項目だけを開く |
| 3960 |
//ツリーのトップ項目を選択する |
//ツリーのトップ項目を選択する |
| 3961 |
if GetActiveList = nil then begin |
if GetActiveList = nil then begin |
| 3962 |
try |
try |
| 7743 |
begin |
begin |
| 7744 |
|
|
| 7745 |
LinkToolButton := TLinkToolButton( Sender ); |
LinkToolButton := TLinkToolButton( Sender ); |
| 7746 |
SenderNode := TreeNodeDataFind( FavoriteTreeView.TopItem, LinkToolButton.Data ); |
SenderNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data ); |
| 7747 |
|
|
| 7748 |
FavoriteDragDrop( SenderNode, Source ); |
FavoriteDragDrop( SenderNode, Source ); |
| 7749 |
|
|
| 8813 |
CabinetHistoryAction.Checked := False; |
CabinetHistoryAction.Checked := False; |
| 8814 |
|
|
| 8815 |
// お気に入りのツリーを展開 |
// お気に入りのツリーを展開 |
| 8816 |
FavoriteTreeView.TopItem.Expanded := True; |
FavoriteTreeView.Items.GetFirstNode.Expanded := True; |
| 8817 |
|
|
| 8818 |
end; |
end; |
| 8819 |
|
|
| 8914 |
|
|
| 8915 |
LinkToolButton := TLinkToolButton( Source ); |
LinkToolButton := TLinkToolButton( Source ); |
| 8916 |
//ShowMessage(LinkToolButton.Text); |
//ShowMessage(LinkToolButton.Text); |
| 8917 |
SourceNode := TreeNodeDataFind( FavoriteTreeView.TopItem, LinkToolButton.Data ); |
SourceNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data ); |
| 8918 |
FavoriteMoveTo( SenderNode, SourceNode ); |
FavoriteMoveTo( SenderNode, SourceNode ); |
| 8919 |
|
|
| 8920 |
end else if Source = BrowserTab then begin |
end else if Source = BrowserTab then begin |
| 10035 |
end;} |
end;} |
| 10036 |
|
|
| 10037 |
WM_XBUTTONDOWN: |
WM_XBUTTONDOWN: |
| 10038 |
case Msg.wParam shr 16 of |
case Msg.wParam shr 16 of |
| 10039 |
XBUTTON1: |
XBUTTON1: |
| 10040 |
begin |
begin |
| 10041 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 10042 |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
| 10043 |
UpBoardAction.Execute; |
UpBoardAction.Execute; |
| 10044 |
Handled := True; |
Handled := True; |
| 10045 |
Break; |
end; |
| 10046 |
end; |
end; |
| 10047 |
end; |
if not Handled then begin |
| 10048 |
if IsDialogMessage( ListView.Handle, Msg ) then begin |
if IsDialogMessage( ListView.Handle, Msg ) then begin |
| 10049 |
UpFolderAction.Execute; |
UpFolderAction.Execute; |
| 10050 |
Handled := True; |
Handled := True; |
| 10051 |
end; |
end; |
| 10052 |
end; |
end; |
| 10053 |
XBUTTON2: |
end; |
| 10054 |
|
XBUTTON2: |
| 10055 |
end; |
end; |
| 10056 |
end; |
end; |
| 10057 |
end; |
end; |