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]

:cat:

[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? :wall:

und zum pushen, es ist dringend daher :angle:

[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 ... :pale:

[ibp]

ooops... funz doch, man sollte bei zwei treeviews das event auch dem richtigen zuordnen.
thnx @ kico

.. hast du auch noch ne idee parat für folgendes ...

wenn nun beim drag der baum gescrollt wird, dann bleibt eine spur ähnlich einer mausspur im treeview sichtbar, das ist net jut ?

[sieppl]

Zitat:

Zitat von ibp

.. hast du auch noch ne idee parat für folgendes ...

wenn nun beim drag der baum gescrollt wird, dann bleibt eine spur ähnlich einer mausspur im treeview sichtbar, das ist net jut ?

konntest du das problem mittlerweile lösen? kannst du diese posten?

[ibp]

...nein leider noch nicht !

[sieppl]

kann man beim scrollen nicht eine message an den treeview absetzen, die diesen zum neuzeichnen auffordert? habe jetzt leider den befehl nicht parat..

[ibp]

... so funktionierts !

Delphi-Quellcode:

  // scrollen vom treeview wenn drag richtung rand gezogen wird
  if y < 60 then // hoch
  begin
    SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEUP, 0); // scrollen erzwingen
    TreeView.Invalidate // wegen verschmieren der graphik
  end // if
  else if TreeView.Height - y < 60 then // runter
  begin
    SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEDOWN, 0); // scrollen erzwingen
    TreeView.Invalidate // wegen verschmieren der graphik
  end; // else if

und das ganze im treeview OnDragOver ereignis

gruß rené

[sieppl]

Einfach super! :hello:

[madina]

Hallo,

gibt es auch mal ein "SB_LINELEFT und SB_LINERIGHT" ??

mfg

[ibp]

jupp es gibt : WM_HSCROLL und SB_LINELEFT, SB_LINERIGHT