ScrollBy en un treeview

[aram2r]

Código Delphi [-]
procedure TFormPrincipal.EquiposStartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
  Label44.Caption:=equipos.Selected.Parent.Text;
end;

procedure TFormPrincipal.EquiposDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  TargetNode, SourceNode: TTreeNode;
begin
  TargetNode := equipos.GetNodeAt (X, Y);
  if (Source = Sender) and (TargetNode <> nil) then
  begin
    Accept := True;
    SourceNode := equipos.Selected;
    while (TargetNode.Parent <> nil) and
        (TargetNode <> SourceNode) do
      TargetNode := TargetNode.Parent;
    if TargetNode = SourceNode then
      Accept := False;
  end
  else
    Accept := False;
  if y > (equipos.Top+equipos.Width) then
  begin
    equipos.ScrollBy(0,-2);
  end;
end;

procedure TFormPrincipal.EquiposDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  TargetNode, SourceNode: TTreeNode;
begin
  TargetNode := equipos.GetNodeAt (X, Y);
  if TargetNode <> nil then
  begin
    SourceNode := equipos.Selected;
    SourceNode.MoveTo (TargetNode, naAddChildFirst);
    TargetNode.Expand (False);
    equipos.Selected := TargetNode;
  end;
end;

procedure TFormPrincipal.EquiposMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  TargetNode, SourceNode: TTreeNode;
begin
  TargetNode := equipos.GetNodeAt (X, Y);
  if (TargetNode.ImageIndex<>0 ) and (TargetNode.ImageIndex<>7) then
    equipos.BeginDrag (False);
end;

He comprobado a ver si lo hace automaticamente pero no he obtenido resultados el dragdrop es de un mismo nodo del treeview que lo quiero cambiar de posicion.

Adjunto una imagen, perdon por la calidad pero esta un poco limitado el tamaño para subir archivos

[[Lepe]]

Alguna vez lo hice así:

Código Delphi [-]
procedure TFormPrincipal.EquiposDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin

  //mas codigo que no influye

  if y > (TreeView.Top+TreeView.Height) - 10 then
  begin
    TreeView.ScrollBy(0,-2);
  end;
end;

Lo único que he añadido es el "- 10" porque si el ratón, mientras se arrastra un item, se sale fuera del Treeview, ya no responde el evento dragover, es lógico, el ratón está fuera del Treeview.

De esta forma, cuando el ratón está a 10 pixeles en el lado inferior del treeview, es cuando se ejecuta el Scroll automático.

Saludos

[aram2r]

Trabajo en Delphi 7 en Windows 2000, y no hay manera he abierto un proyecto nuevo he puesto un treeview en el centro de un form, lo he rellenado de items hasta que sobraran para hacer escroll...he puesto un boton al lado con el codigo

Código Delphi [-]
 
TreeView1.ScrollBy(0,-2);

y cuando le doy la barra de escroll que deberia bajar no hace nada, el contenido se mueve pero los items se quedan como con lineas como cuando se te queda colgado windows y mueves una ventana y deja estela...pero en verdad no se mueven no se una cosa muy rara alguien podria probar estos pasos y decirme si le pasa esto o si funciona y es problema mio...o que??

[[Lepe]]

Empezado por Ayuda de delphi

A positive DeltaY value scrolls the contents down; a negative value scrolls the contents up.

2 pixeles también es muy poco, de momento ponle 10

El efecto que dices, es por falta de repintado, llama al método Treeview1.Repaint. Es un poco raro, pero en fins. Yo uso BDS2006 ahora mismo, así que no te sirve mis pruebas.

Saludos