ScrollBy en un treeview
 

Hola amigos gracias por leer este post, estoy intentando realizar sceollby en un treeview pero parece ser que no funciona se quedan todos los datos como mezclados o sin actualizar como si no refrescara la imagen, y la barra de scroll en realidad no se mueve, cuando actualizo manualmente esta donde mismo estaba al principio.......el unico codigo que utilizo para esto es el siguiente (lo he puesto dentro de un boton para probarlo):

Código Delphi [-]
procedure TFormPrincipal.Button1Click(Sender: TObject);
begin
  TreeView.ScrollBy(0,-2);
end;

La finalidad de mi busqueda es conseguir que cuando arrastro dentro del TreeView si bajo y quedan mas nodos que haga automaticamente scroll (no se si hay otra solucion posible?????????????????????)
seria algo asi:

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) then
  begin
    TreeView.ScrollBy(0,-2);
  end;
end;

Hola,

Es extraño. No sé a qué te refieres cuando dices "arrastro al Treeview", pero, generalmente, cuando "arrastras con el cursor del ratón" algún elemento dentro de un componente de este tipo, el mismo "se mueve" si hay algo "abajo" para dejarte "soltar" lo que arrastras donde te sea menester.

Por otro lado, obviamente, si has preguntado, es que has hecho pruebas y yo estoy pudiendo parecerte estúpido. No es eso. Digo que no es mi intención, vaya. Por otro lado, lo que acaso puedas hacer, si es que "arrastras" elementos que al cabo se añadirán al "TreeView", es hacer que esos elementos arrastrados sean visibles, estén donde estén...

Creo que para esto podrías hacer que el nodo que recogiera estuviera visible con un método conque creo recordar que cuentan dichos nodos: "MakeVisible". De todos modos... tengo la sensación de que lo que he dicho no va a servirte de mucho... lo lamento de veras.

este es el codigo completo
 

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

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

no hay manera no se si es mi pc o que
 

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?? :confused: :confused: :confused: :confused: :confused:

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