TreeView und scrollen wie?

[ibp]

Hallo,

da Problem ist, wenn ich einen Knoten im Baum per drag&drop verschieben möchte, das Ziel aber ausserhalb des sichtbaren bereichs im Baum liegt, wie kann ich automatisch die Baumansicht
dann nach oben bzw. unten scrollen?
Gibt es da ein Befehl? Habe nichts gefunden in der OH.
MfG
René

[Sharky]

Morsche ibp,

wird nicht automatisch gescrollt wenn Du mit dem Cursor in den oberen bzw. unteren Bereicht des Treeview kommst?

[ibp]

nö - eine idee woran es liegen könnte ?

[ibp]

hat jemand eine ahnung woran es liegen könnte?

[ibp]

[phXql]

gibts da nich sowas wie TreeItem.MakeVisible oder .EnsureVisible? Hab grad kein delphi zu hand, deswegen kann ich jetzt nich nachschauen..

[MrKnogge]

Aber bei MakeVisible, müsstest du ja wissen welches du sichtbar machen möchtest,
also müsstest du immer das item herausfinden, welches gerade unter dem unteren Rand bzw. über dem oberen Rand liegt.

Aber wenn du den vertikalen Scrollbalken anzeigen lässt, kannst du scrollen, indem du mit der Maus über einen der beiden Pfeile bist.

PS:
Was das pushen angeht, so reicht es glaub wenn du nach 24-48 Stunden ohne Antwort pushst.

[ibp]

der vertikale scrollbalken ist zu sehen.
wenn ich das drag&drop item per maus bewege und erneut über den scrollbalken die maus drücke,
dann ist das item da wo es vorher war. ist bei zb word auch so.
nur dort scrollt der text/baum, wenn man mit dem aktivierten item an den oberen oder unteren rand kommt von alleine!
das will ich auch haben! warum geht dem nicht?

und zum pushen, es ist dringend daher

[edit=Sharky]Ob dringend oder nicht. Das pushen ist bei uns, wie bekannt, nicht erwünscht Mfg, Sharky[/edit]

[kico]

im Dragover event folgendes einfügen:

Delphi-Quellcode:

if y < 15 then SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEUP, 0)
else if TreeView.Height - y < 15 then SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

dann sollte es funktionieren...

[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]

[ibp]

funzt leider nicht ...