Thema: Delphi HeaderControl Scroll

Einzelnen Beitrag anzeigen

Benutzerbild von MasterEvil
MasterEvil

Registriert seit: 12. Feb 2005
Ort: Hannover
234 Beiträge
 
Delphi 7 Enterprise
 
#1

HeaderControl Scroll

  Alt 30. Mai 2007, 10:47
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
  Mit Zitat antworten Zitat