Bei TShellTreeView scrollen erkennen

[Flogo]

Tachchen,
Ich versuch ein Programm zu schreiben, dass die Verteilung des Festplattenplatzes auf die Ordner übersichtlich anzeigt (ich will wissen warum meine Platten dauernd voll sind).
Dazu hab ich ein ShellTreeView genommen und Progressbars daneben gestellt. Mein Problem bei der Sache ist folgendes:
Wie kann ich erkennen wie weit die ShellTreeView runtergescrollt ist also welcher Index zu welcher Progressbar gehört?

[neolithos]

TopItem gibt erstmal den ersten sichtbaren Eintrag an.

Wird das TreeView gescrollt so wird eine WM_VSCROLL-Nachricht abgeschickt, die du durch einen Hook via WindowProc mithören kannst.

Falls das noch nicht Hilft gib laut!

[Flogo]

*LAUT*
Ok das mit TopItem hat funktioniert (thx) aber wie geht das mit dem Hook :shock:

[Flogo]

Zu früh gefreut :( Es schien alles zu klappen aber mir ist aufgefallen, dass die Indizes nicht mehr stimmen wenn man einen Ordner mal "ausgeklappt" hat und dann wieder schliest

Code:

[u]Zustand 1:[/u]

Im Bild:            Im Prog:

+C:\                 C:\
 |
 +Programme          C:\Programme
 | |
 | +POrdner1         C:\Programme\POrdner1
 | |
 | +POrdner2         C:\Programme\POrdner2
 |
 +Windows            C:\Windows

[u]Zustand 2:[/u]

+C:\                 C:\
 |
 +Programme          C:\Programme
 |
 +Windows            C:\Programme\POrdner1
   |           
   +WOrdner1         C:\Programme\POrdner2
   |                      
   +WOrdner2         C:\Windows

Ich hoffe jemand versteht das gekrackel

[neolithos]

Erstmal noch ein anderer Weg zur Lösung.
Wie wär es vielleicht mit selberzeichnen neben den Einträgen!


nun zum Hook:

Entweder du Leitest das TShellTreeView-Control ab und überschreibst den Message-Handler


oder
du Hook's (Hack's dich an den Message-Handler an)

Delphi-Quellcode:

  TMyForm = clas
  ...
  private
    pOldShlTree : TWndMethod; // new    
    procedure ShlTree(var Message: TMessage); 
  
procedure TMyForm.FormCreate(...);
begin
  ...
  pOldShlTree := tvwShlTree.WindowProc; // new
  tvwShlTree.WindowProc := ShlTree;
  ...
end;

procedure TMyForm.ShlTree(var Message: TMessage); 
begin
  pOldShlTree(Message);
  with Message do
    case Msg of
         WM_VSCROLL:
           ...; // wenn man den wParam auswertet kann man noch steuern
// wann neu ausgerichtet werden soll
    end;
end;

[Flogo]

Habs immer noch nicht verstanden Mein Code sieht jetzt so aus

Code:

procedure TForm1.ShlTree(var Message: TMessage);
begin
  if Message.Msg = WM_VSCROLL then ShowProgress;
  inherited;
end;

aber er sagt schon beim starten "unable to insert item"

[neolithos]

Erst mal hab ich oben ein kleine Berichtigung gemacht! Vielleicht ändert das schon manches! Wenn nicht wäre ein wenig mehr info hilfreich :) !

[Flogo]

Yep das wars danke :hello: hätte mir eigentlich denken können dass ein inherited bei einer ersetzten Methode nicht geht