TShellTreeView, Pfad lesen setzen [gelöst]

[corpsman]

Ho,

manchmal blick ichs einfach nicht.

Ich will eine TShellTreeView benutzen, mit der man so wunderschön die Ordnerstruckturen "browsen" kann. Nur leider finde ich einfach nicht den Eintrag wo ich den aktuellen Ordner lesen / setzen kann.

Könnt ihr mir den evtl verraten ?

[theo]

Meinst du das Basisverzeichnis setzen?
http://bugs.freepascal.org/view.php?id=13735" onclick="window.open(this.href);return false;

[corpsman]

ne ich meine das "aktuelle" verzeichniss

also inklusive der Unterverzeichnisse

[theo]

Ich versteh dich nicht so ganz.

Also den Ausgewählten Node kannst du z.B. so erhalten.

Code: Alles auswählen

Caption:=ShellTreeView1.Selected.Text+' bzw. '+ShellTreeView1.Selected.GetTextPath;

Das Ausgew. Verz. setzen ist glaub ich nicht direkt unterstützt.
Ich fürchte da muss man sich durchhangeln wie z.B. (wählt das erste Unterverz von /home aus und öffnet es, nur ein dummes Bsp.).

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var ANode:TTreenode;
begin
 ANode:=ShellTreeView1.TopItem;
 Repeat
  ANode:=ANode.GetNext;
 Until (ANode=nil) or (ANode.Text='home');
 Anode.Expanded:=True;
 ANode:=ANode.GetFirstChild;
 Anode.Expanded:=True;
 Anode.Selected:=true;
end;

[corpsman]

genau das meinte ich .

Danke

[theo]

Ich hab mal noch eben eine Procedure für das öffnen von Unterverz. gehackt.

Code: Alles auswählen

Procedure ShellTreeViewSetTextPath(STV:TShelltreeview; Path:String);
Var Str: TStringList;
  ANode: TTreeNode;
  i: integer;
Begin
  If Not DirectoryExistsUTF8(Path) Then Exit;
 
  Str := TStringList.Create;
  Str.Delimiter := PathDelim;       
  Str.DelimitedText := Path;
 
  For i:=Str.Count-1 Downto 0 Do
    If Str[i]='' Then Str.Delete(i);
 
  {$ifdef windows}
    Str[0]:=Str[0]+PathDelim;
  {$endif}
 
  STV.BeginUpdate;
  ANode := STV.TopItem;
 
  For i:=0 To Str.Count-1 Do
    Begin
      While (ANode<>Nil) And (ANode.Text<>Str[i]) Do
        Begin
          ANode := ANode.GetNextSibling;
        End;
      If Anode<>Nil Then
        Begin
          Anode.Expanded := True;
          ANode.Selected := True;        
          Anode := ANode.GetFirstChild;
        End
      Else Exit;
    End;
 
  STV.EndUpdate;
End;

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellTreeViewSetTextPath(ShellTreeView1,'/home/theo/Documents');
end;

[corpsman]

Jungs ihr seid spitze, vielen Dank,

evtl haben wir Glück und ein entwickler von Lazarus liest das und fügt diese wirklich sinnvollen Methoden an die TShellTreeView mit an .

ich hab nun nur noch ein Problem :

Wenn ich in TForm.create den Pfad setze geht das nicht, weil die Schelltreeview da die Ordner Informationen noch nicht hat. Wie "stöst man das einlesen der Ordnerinformationen also an ?

Ich hab mir mal erlaubt, die Variablen in der Schleife noch frei zu geben :

Code: Alles auswählen

Procedure ShellTreeViewSetTextPath(STV: TShelltreeview; Path: String);
Var
  Str: TStringList;
  ANode: TTreeNode;
  i: integer;
Begin
  If Not DirectoryExistsUTF8(Path) Then Exit;
 
  Str := TStringList.Create;
  Str.Delimiter := PathDelim;
  Str.DelimitedText := Path;
 
  For i := Str.Count - 1 Downto 0 Do
    If Str[i] = '' Then Str.Delete(i);
 
{$IFDEF windows}
  Str[0] := Str[0] + PathDelim;
{$ENDIF}
 
  STV.BeginUpdate;
  ANode := STV.TopItem;
 
  For i := 0 To Str.Count - 1 Do Begin
    While (ANode <> Nil) And (ANode.Text <> Str[i]) Do Begin
      ANode := ANode.GetNextSibling;
    End;
    If Anode <> Nil Then Begin
      Anode.Expanded := True;
      ANode.Selected := True;
      Anode := ANode.GetFirstChild;
    End
    Else Begin
      STV.EndUpdate;
      str.free;
      Exit;
 
    End;
  End;
  str.free;
  STV.EndUpdate;
End;

[theo]

Jungs ihr seid spitze, vielen Dank,

Also ich bin nur ein Junge..

Wenn ich in TForm.create den Pfad setze geht das nicht, weil die Schelltreeview da die Ordner Informationen noch nicht hat. Wie "stöst man das einlesen der Ordnerinformationen also an ?

In OnShow

Ich hab mir mal erlaubt, die Variablen in der Schleife noch frei zu geben :

Stimmt.

[corpsman]

also ich hab das nun mit einer Blocking variable in onPaint gemacht.

Wird das onShow nur ein einziges mal ausgeführt, ? oder auch öfters so wie onPaint ?

[theo]

also ich hab das nun mit einer Blocking variable in onPaint gemacht.

Wird das onShow nur ein einziges mal ausgeführt, ? oder auch öfters so wie onPaint ?

Afaik wird OnShow ausgef., wenn sich die "visible" Eigenschaft des Formulars ändert, also bei einem Hauptformular praktisch nur einmal.
Ein Flag (Blocking variable) kann aber auch da letzte Zweifel beseitigen.

[RSE]

Afaik wird OnShow ausgef., wenn sich die "visible" Eigenschaft des Formulars ändert

Korrekt. Bei einem Formular kann das also nur passieren, wenn du es zwischendurch versteckst und später wieder anzeigst. Das macht eigentlich nur Sinn, wenn du ein Icon in der Systray (alternative Bezeichnung: DNU - Dings neben der Uhr ) hast und dorthin "minimieren" willst. Damit wird nämlich im Endeffekt nur das Hauptfenster versteckt und beim späteren "wiederherstellen" wieder angezeigt -> OnShow wird erneut ausgeführt. Daher ist eine Initialisierung im OnShow auch besser. Hast du eine Behandlungsroutine für OnPaint, dann wird die ständig aufgerufen (das heißt Stack schaufeln, deine Bedingung prüfen, Stack zurückschaufeln), und das an einer zeitkritischen Stelle (Wenns zu lange dauert, kann es flackern).

[corpsman]

Danke für die Erklärung, ich hab das Problem mit den DNU nennt sich glaubig trayicons, also mach ichs in onShow mit Blocking und alles ist 1a *happy*