HeaderControl Scroll

[MasterEvil]

Hallo,

ich hab ein Problem mit dem HeaderControl.
Ich benutze dies zusammen mit einem VirtualTreeView.

Wenn man nun im VirtualTreeView die Columns breiter hat, als das Control breit ist, kann man beim Tree scrollen (Balken erscheinen).
Nun muss das HeaderControl mit scrollen.
Dafür hab ich einfach das OnScroll Event vom VirtualTreeView benutzt und gebe die Werte an das HeaderControl weiter:

Delphi-Quellcode:

procedure TForm1.VirtualStringTreeScroll(Sender: TBaseVirtualTree; DeltaX, DeltaY: Integer);
begin
  HeaderControl.ScrollBy(DeltaX,DeltaY);
end;

Dann scrollt das HeaderControl auch, nur leider macht es dabei Grafikfehler. An den Rändern wird nicht vernünftig neu gezeichnet.
Wenn ich nun aber nach dem ScrollBy ein Refresh, Repaint oder Invalidate mache, scrollt er nicht mehr!!!
Es bewegt sich einfach nichts. Ich nehme an, weil er beim neuzeichnen die Scroll-Werte vergisst, es dann zwar neuzeichnet, aber mit den Ursprungswerten :(

Hat eventuell jemand eine Idee? Wäre sehr dankbar ;)

Gruß,
Steffen

[messie]

Zitat:

Zitat von MasterEvil

Ich nehme an, weil er beim neuzeichnen die Scroll-Werte vergisst, es dann zwar neuzeichnet, aber mit den Ursprungswerten :(

Beim Neuzeichnen wird sicher auch das align berücksichtigt, und das Control steht als Standard auf alTop.

Eine weniger schöne Methode, die aber funktioniert, ist mir der property left zu arbeiten. Beim VirtualStringTreeScroll also:

Delphi-Quellcode:

HeaderControl1.Left := HeaderControl1.Left -1* DeltaX;
HeaderControl1.Width := HeaderControl1.Width + DeltaX;

Wie gesagt, nicht gerade edel...

Grüße, Messie

[MasterEvil]

Hallo messie,

danke für deine Antwort.
Die war mir allerdings etwas unsauber ;)

Ganz schick ist meine jetzige Lösung zwar auch nicht ...
Hab das HeaderControl in eine ScrollBox gelegt und scrolle dann die Box mit dem Header.

Funktioniert jedenfalls :D

Gruß,
Steffen