Virtual Breadcrumb Bar

[Codehunter]

Die VBC ist ein kleines Addon zum VirtualTreeView. Sie bildet die so genannte Breadcrumb-Leiste nach, welche seit Windows Vista z.B. im Datei-Explorer anstelle der früheren Adressleiste angezeigt wird.

Eine Demo mit Kommentaren ist im Download enthalten. Die Demo lässt sich direkt zusammen mit dem .groupproj kompilieren und starten. Die Breadcrumb-Komponente muss dafür nicht in der IDE installiert sein.

Es gibt ein paar zusätzliche Features wie die Freitexteingabe um entweder eine direkte Pfadeingabe zu ermöglichen oder aber die Leiste als Freitext-Suchfeld zu benutzen.

Delphi-Quellcode:

// ** UPDATE 1.0.6 **
//
// - Added AutoChangeNode Property
// - Added CrumbCount Function
// - Added OnChange Event
// - Added OnUpdate Event
// - Improved drawing
// - Moved 'DrawDropdownGlyph' from TVirtualBreadcrumbButton
//     to TVirtualBreadcrumbItem
// - Bug fixed: Showing second Application Window on Superbar when Dropdown
// - Bug fixed: Redraw when changing CaptionEditMode
// - Bug fixed: Overridden EditString in OnBeforeEdit

[Daniel]

Sehr schöne Komponente.

Eine Kleinigkeit ist mir hier aufgefallen: Wähle ich im Dropdown des Breadcrumb einen Knoten aus, passen im Treeview Selektion und Fokus nicht zusammen.

[Codehunter]

Guter Hinweis, wird gleich korrigiert!

[cookie22]

Sieht gut aus.

Die Readme.txt ist leer.

[Codehunter]

Zitat von cookie22:

Sieht gut aus.

Die Readme.txt ist leer.

Siehste. Hast doch gar kein Readme gebraucht

Spaß beiseite, da hat sich wohl die falsche Datei eingeschlichen. Werde ich für die v1.0.4 korrigieren.

[Aviator]

Hallo Codehunter,

ich wollte für mein aktuelles Projekt deine BreadCrumb Komponente verwenden. Dabei sind mir einige Dinge aufgefallen die du in einem Update vielleicht abändern könntest:

• Neuere Versionen des VirtualTreeViews benutzen einen anderen Datentyp speziell für den Index eines Images [System.UITypes.TImageIndex]
• Die Komponente hat anscheinend ein Problem damit, wenn man kein Alignment angibt. In deiner Demo setzt du Align auf alTop. Mache ich das nicht, dann wird die Leiste nicht angezeigt.
• Beim Installieren der Komponente verlangt diese die VirtualTreesR.bpl In neuen Versionen gibt es aber nur noch eine VirtualTreesDR.bpl wenn ich das richtig gesehen habe. Bin beim Entwickeln von eigenen Packages nicht so drin und kann die Komponente deshalb nicht installieren und nur zur Laufzeit generieren.

Anbei noch ein Beispiel aus deiner Unit die nur noch mit TImageIndex funktioniert. Es gibt noch einige weitere Stellen die dir der Compiler aber anzeigen wird.

Vorher:

Delphi-Quellcode:

procedure TVirtualBreadcrumb.DoGetImageIndex(Node: PVirtualNode; var Index: Integer);
var
  Ghosted: Boolean;
begin
  if Assigned(FOnGetImageIndex) then begin
    FOnGetImageIndex(FTreeView, Node, ikNormal, FTextColumn, Ghosted, Index);
  end;
end;

Nachher:

Delphi-Quellcode:

procedure TVirtualBreadcrumb.DoGetImageIndex(Node: PVirtualNode; var Index: TImageIndex);
var
  Ghosted: Boolean;
begin
  if Assigned(FOnGetImageIndex) then begin
    FOnGetImageIndex(FTreeView, Node, ikNormal, FTextColumn, Ghosted, Index);
  end;
end;

Genauere Tests konnte ich noch nicht machen, werde aber berichten, falls mir noch etwas auffallen sollte.