ScrollBy en un treeview

[aram2r]

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):


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:

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;

[dec]

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.

[aram2r]

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í:
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

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:

[Lepe]

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