| 849 |
FLinkToolButtonMouseDownX, FLinkToolButtonMouseDownY: Integer; |
FLinkToolButtonMouseDownX, FLinkToolButtonMouseDownY: Integer; |
| 850 |
FLinkToolButtonMouseUpTime: TDateTime; |
FLinkToolButtonMouseUpTime: TDateTime; |
| 851 |
|
|
| 852 |
|
DropSpaceNode: TTreeNode; |
| 853 |
|
|
| 854 |
procedure SetBoardTreeNode; |
procedure SetBoardTreeNode; |
| 855 |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
| 856 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 6498 |
procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); |
procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); |
| 6499 |
var |
var |
| 6500 |
Node: TTreeNode; |
Node: TTreeNode; |
| 6501 |
|
bound: TRect; |
| 6502 |
|
height: Integer; |
| 6503 |
begin |
begin |
| 6504 |
|
|
| 6505 |
|
{$IFDEF DEBUG} |
| 6506 |
|
if Sender = FavoriteTreeView then begin |
| 6507 |
|
Node := FavoriteTreeView.GetNodeAt(X, Y); |
| 6508 |
|
bound := Node.DisplayRect( False ); |
| 6509 |
|
height := bound.Bottom - bound.Top; |
| 6510 |
|
if (bound.Top + height / 2) <= Y then |
| 6511 |
|
Node := FavoriteTreeView.GetNodeAt(X, Y + height); |
| 6512 |
|
|
| 6513 |
|
if Node = nil then |
| 6514 |
|
Exit; |
| 6515 |
|
|
| 6516 |
|
if DropSpaceNode <> nil then |
| 6517 |
|
if DropSpaceNode.AbsoluteIndex = Node.AbsoluteIndex then |
| 6518 |
|
Exit; |
| 6519 |
|
|
| 6520 |
|
DropSpaceNode.Free; |
| 6521 |
|
|
| 6522 |
|
DropSpaceNode := FavoriteDM.TreeView.Items.AddChildObject(Node.Parent, '', nil ); |
| 6523 |
|
DropSpaceNode.MoveTo( Node, naInsert ); |
| 6524 |
|
DropSpaceNode.ImageIndex := -1; |
| 6525 |
|
DropSpaceNode.SelectedIndex := -1; |
| 6526 |
|
end; |
| 6527 |
|
{$ENDIF} |
| 6528 |
|
|
| 6529 |
if Source = FavoriteTreeView then begin |
if Source = FavoriteTreeView then begin |
| 6530 |
if FavoriteTreeView.Selected = FavoriteTreeView.Items.GetFirstNode then begin |
if FavoriteTreeView.Selected = FavoriteTreeView.Items.GetFirstNode then begin |
| 6531 |
Accept := False; |
Accept := False; |
| 7662 |
procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X, |
procedure TGikoForm.FavoriteTreeViewDragDrop(Sender, Source: TObject; X, |
| 7663 |
Y: Integer); |
Y: Integer); |
| 7664 |
var |
var |
| 7665 |
|
bound: TRect; |
| 7666 |
SenderNode: TTreeNode; |
SenderNode: TTreeNode; |
| 7667 |
|
height: Integer; |
| 7668 |
begin |
begin |
| 7669 |
|
|
| 7670 |
SenderNode := FavoriteTreeView.GetNodeAt(X, Y); |
SenderNode := FavoriteTreeView.GetNodeAt(X, Y); |
| 7671 |
|
bound := SenderNode.DisplayRect( False ); |
| 7672 |
|
height := bound.Bottom - bound.Top; |
| 7673 |
|
if (bound.Top + height / 2) <= Y then |
| 7674 |
|
SenderNode := FavoriteTreeView.GetNodeAt(X, Y + height); |
| 7675 |
FavoriteDragDrop( SenderNode, Source ); |
FavoriteDragDrop( SenderNode, Source ); |
| 7676 |
|
|
| 7677 |
end; |
end; |