Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Frage zur Virtual Tree View

    Delphi
    by mason, 9. Feb 2005
  Ich kenn mich mit den Malereien nicht so aus - aber eine einfache Lösung wäre Folgendes im OnAfterItemPaint:
  procedure TForm1.VTAfterItemPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
  var r: TRect;
  begin
  if (VT.GetNodeLevel(Node) = 0) and (VT.AbsoluteIndex(Node) > 0) then begin
  r.Left := ItemRect.Left;
  r.Right := ItemRect.Right;
  ...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Frage zur Virtual Tree View

    Delphi
    by mason, 9. Feb 2005
  Wenn die Nodes generell ausgeklappt bleiben sollen, also auch, wenn man auf das - daneben klickt, dann kannst du einfach im Ereignis OnExpanding die Variable Allowed auf false setzen:
  procedure TMyForm.VTCollapsing(Sender: TBaseVirtualTree; Node: PVirtualNode; var Allowed: Boolean);
  begin
  Allowed := false;
  end;
  Wenn allerdings nur bei einem Doppelklick nichts passieren soll, fällt mir nur...