Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.73 by yoffy, Mon Sep 29 17:50:53 2003 UTC revision 1.74 by yoffy, Mon Sep 29 18:47:50 2003 UTC
# Line 849  type Line 849  type
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;
# Line 6496  end; Line 6498  end;
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;
# Line 7633  end; Line 7662  end;
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;

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26