TButton in VirtualTreeView einfügen

[Bacardifeeling]

Hallo liebe DP'ler

Ich möchte einen Button in eine Spalte eines Virtual String Tree's einfügen.

Leider tappe ich mit meinen Lösungsansätzen völlig im Dunkeln.
Alles was funktioniert ist die Erstellung des buttons zu Laufzeit.

Jedoch wird der Button bei jeder frischen Zeile in der ersten Zeile dargestellt, quasi "übermalt".

Bin für jeden Lösungsansatz dankbar.


MfG

Bacardifeeling

[chaosben]

Tja, ich nutze in einem VirtualStringTree eine Combobox, die sich in diesem Falle ja kaum von einem Button unterscheidet.
Du könntest dir zur Laufzeit pro Node einen Button erstellen und ihn in den Daten, die du zu den Nodes speicherst hinterlegen. Schlussendlich richtest du ihn bei jedem OnDrawNode für jeden Knoten per Hand an der richtigen Stelle aus (PaintInfo.ContentRect). Ach ja .. und Button.Parent=TreeView

[Bacardifeeling]

Danke Ben,
Leider finde ich in den Ereignissen meines VST kein "OnDrawNode".

Nichts desto Trotz wäre mir ein kleines Code Beispiel sehr hilfreich...

MfG
Bacardifeeling

[chaosben]

Sorry, verguckt .... das war eine TVirtualDrawTree ...
Guck mal unter OnAfterCellPaint. ... Aber damit hab ich noch nicht gearbeitet.

[Bacardifeeling]

hat vielleicht jemand anders eine Idee?

Der Button wird im "OnInitNode" erzeugt und bei "BeforeCellPaint" zugewiesen.

MfG
Bacardifeeling

[Bacardifeeling]

*push*

[generic]

pushen ist erst *nach* 24 stunden erwünscht.

aber hier eine mögliche lösung.

[Bacardifeeling]

Zitat:

Zitat von generic

pushen ist erst *nach* 24 stunden erwünscht.

[..]

vielleicht ist dir aufgefallen, daß mein letzter Post zu diesem Thema 7 Tage (c.a. 168 Std. :wink: ) zurückliegt, glaube das reicht um einen *push* zu rechtfertigen. :-D

Deine Lösung werde ich mir jetzt erstmal anschauen, danke für die Hilfe.

MfG
Bacardifeeling

[Bacardifeeling]

Vielen Dank Generic

... für den Code, werde das in mein VST einbauen... hat sehr gut geholfen :thumb:
Damit, denke ich, kann dieser Thread auch geschlossen werden.

MfG
Bacardifeeling

[generic]

aufgrund eine pn anfrage von bar.

hier nochmal eine demo zum löschen der knoten.
hab etwas mehr object orientierte programmierung reingebracht.
aber nach wie vor hat das demo charakter!

gruss

[Natia]

Hallo leute, das Thema ist schon alt aber kein ding :P

@Bacardifeeling
wie machst du wenn Node.State = vsExpanded ist?
Ich meine, Ich kann Button zum Tree hinfügen, aber es bleibt sichtbar, wenn ich den Parent minimiziere.

Hat jemand irgendein Lösung dafür?

Danke im Voraus.

[Aviator]

Es gibt die Events OnCollapsing und OnCollapsed. Da solltest du ansetzen. Im OnCollapsing könntest du die Buttons entsprechend wieder unsichtbar schalten oder freigeben. Wenn du sie frei gibst, dann musst du sie natürlich im OnExpanding wieder erstellen.

[Natia]

Danke für die Hilfe, es hat mir sehr geholfen :thumb: :)

[Natia]

Hallo noch einmal

Am OnCollapsing un am OnExpanded habe ich erfolgreich mein Button gezeigt/versteckt.

Das problem ist jetzt aber nur, wenn ich den oberen Node minimisiere, geht der undere nach oben(so sei es)....aber Buttons bleiben darunter://

Mein InitNode(wo ich Buttons erzeuge)

Code:

 Data.RefreshButton := TButton.Create(nil);
    Data.RefreshButton.Parent := VST;
    Data.RefreshButton.Height := VST.DefaultNodeHeight;
    Data.RefreshButton.Caption := 'Refresh';
    R := Sender.GetDisplayRect(Node, 2, False);
    Data.RefreshButton.BoundsRect := R;
    Data.RefreshButton.Visible := True;
    Data.RefreshButton.Enabled := True;
    Data.RefreshButton.Node := Node;
    Data.RefreshButton.OnClick := RefreshbtnClick;
    Sender.SetNodeData<TService>(Node, Service);
    Node.CheckType := ctNone;

OnCollapsing event:

Code:

  if Assigned(Node) then
  begin
    Child := Sender.GetFirstChild(Node);
    while Assigned(Child) do
    begin
      Data := Sender.GetNodeData<TService>(Child);
      Data.RefreshButton.Visible := False;
      Child := Sender.GetNextSibling(Child);
    end;
  end;

OnExpanded event:

Code:

  if Assigned(Node) then
  begin
    Child := Sender.GetFirstChild(Node);
    while Assigned(Child) do
    begin
      Data := Sender.GetNodeData<TService>(Child);
      R := Sender.GetDisplayRect(Child, 2, False);
      Data.RefreshButton.BoundsRect := R;
      Data.RefreshButton.Visible := True;
      Child := Sender.GetNextSibling(Child);
    end;
  end;

gruss