Suche bestimmte Menü-Komponente (ähnlich TPageControl)

[CodeX]

Kennt jemand eine Komponente, die sich wie TPageControl bedienen lässt und dabei folgende Menüdarstellung bietet?

http://img338.imageshack.us/img338/8886/menuyd0.png
(Beispiel aus True Launch Bar)

[Dani]

Mit TJvPageList und TJvPageListTreeView sollte es kein Problem sein: http://homepages.codegear.com/jedi/jvcl/

[CodeX]

Ich habe damit ein bisschen herumgespielt, bekomme das aber nicht hin, dass die ganze Zeile angewählt wird. Es wird immer nur das Wort blau unterlegt.
http://img120.imageshack.us/img120/2849/menu2vo4.png

Gibt's da einen Trick?

edit: achja, RowSelect ... OK, Danke, ich bin glücklich

[CodeX]

So, nun wollte ich wieder drauf zurückgreifen, habe aber ein Problem bei der Darstellung der kleinen Bildchen neben dem Text.

Wenn ich eine normale TImageList verwende (bmp, ico), kann ich keinen Alpha-Channel verwenden und der Rand der Grafiken sieht entsprechend schlecht aus:
http://img519.imageshack.us/img519/5...reeviewhc2.png

Habe das nun auch mit einer TPngImageList versucht, aber da wird überhaupt keine Trasparenz übernommen:
http://img76.imageshack.us/img76/243...reeviewql2.png

Dabei möchte ich lediglich ein Ergebnis wie im Eingansposting gezeigt, erreichen...
TJvPageListTreeView + TJvPageList war bis jetzt meine Hoffnung, aber die bescheidenen Ergebnisse bei den Bildern sieht man ja oben.

Gibt es da noch einen Kniff? Oder eine ganz andere Möglichkeit?

[Bernhard Geyer]

Zitat von CodeX:

Wenn ich eine normale TImageList verwende (bmp, ico), ... und der Rand der Grafiken sieht entsprechend schlecht aus:
http://img519.imageshack.us/img519/5...reeviewhc2.png

Dein Icon muß für sowas vorbereitet sein (z.b. dünner schwarzer Rand um relevante Elemente des Icons).

[Sherlock]

Das mit dem hässlichen Rand um die Grafiken kenne ich auch (nicht mit dieser Komponente)...ich musste bisher immer auf ein Bildbearbeitungsprogramm zurückgreifen Wenn einer einen Tipp hat...ich bin gespannt auf eine alternative Lösung.

Edit: Bernhard entmutigt mich grad ein stückweit.

Sherlock

[CodeX]

Zitat von Bernhard Geyer:

Dein Icon muß für sowas vorbereitet sein (z.b. dünner schwarzer Rand um relevante Elemente des Icons).

Aber wie im Eingangsposting gezeigt, muss es doch auch anders gehen! Die haben sogar noch nette Schatteneffekte verwendet, weil einfach ein Alphachannel korrekt verarbeitet wurde. Muss also irgendwie gehen. Die Frage ist nur wie?

[alzaimar]

Alles handgebissen. Du verwendest zwei unterschiedliche Icons/BMP's. Dafür gibts in den TTreeNode-Objekten die Eigenschaft 'SelectedIndex'. Die schlaue Frage ist nun: Gibt es ein Tool, das Dir automatisch die kleinen Schatten erzeugt.... Ja, so schwer ist das nicht: Alle Farben<>Hintergrund = grau. Das ist der Schatten und wird etwas versetzt auf die Bitmap gemalt. Darüber dann das Original-Bitmap. Kannste beinahe zur Laufzeit machen...

[shmia]

Man kann das mit Delphi Bordmitteln so einigermassen nachbilden.
Die linke Seite:
Hier nimmt man ein TTreeview und setzt ShowRoot=False.
Man setzt Align auf alLeft oder wenn es auf die Optik ankommt setzt man das Treeview auf ein Panel, damit es nicht die gesamte linke Fläche ausfüllen muss.
Die rechte Seite
Man nimmt ein TPageControl und erzeugt für jedes Item im TreeView eine eigene Seite.
Zur Laufzeit schaltet man dann alle Reiter unsichtbar:

Delphi-Quellcode:

for i := PageControl1.PageCount - 1 downto 0 do
begin
  PageControl1.Pages[i].TabVisible := False;
  PageControl1.Pages[i].Visible := True;
end;

Man macht dies nicht schon zur Entwicklungszeit, da man sonst leichte Schwierigkeiten hat, die Seiten umzuschalten.
PageControl.Align wird auf alClient gesetzt.

Jetzt muss man nur noch das PageControl mit dem Treeview synchron laufen lassen.

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  PageControl1.ActivePageIndex := Node.Index;

  // Bei allen Seiten ausser der aktiven Seite Enabled auf False setzen, damit
  // man mit der Tabulator-Taste nicht durch unsichtbar Controls durchsteppt.
  for i := PageControl1.PageCount - 1 downto 0 do
  begin
     PageControl1.Pages[i].Enabled := PageControl1.Pages[i] = PageControl1.ActivePage;
  end;
end;

[RavenIV]

Zitat von shmia:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  PageControl1.ActivePageIndex := Node.Index;

  // Bei allen Seiten ausser der aktiven Seite Enabled auf False setzen, damit
  // man mit der Tabulator-Taste nicht durch unsichtbar Controls durchsteppt.
  for i := PageControl1.PageCount - 1 downto 0 do
  begin
     PageControl1.Pages[i].Enabled := PageControl1.Pages[i] = PageControl1.ActivePage;
  end;
end;

Wieso setzt Du nicht PageControl1.TabStop auf False?
Dann wird das per <TAB> erst garnicht angesprungen.