spezielle listbox

[sh17]

Ich gehe mal davon aus, dass Du ein paar Zeilen mit VirtualTreeView erzeugt hast.

Mehrzeilig geht dann so:

Delphi-Quellcode:

procedure TMeinVST.OnInitNode(
  Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
begin
  Include(InitialStates, ivsMultiline);
end;

procedure TMeinVST.OnGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
  Celltext := 'Zeile 1'+#13#10+'Zeile 2';
end;

procedure TMeinVST.OnMeasureItem(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  var NodeHeight: Integer);
begin
  NodeHeight := meinVST.ComputeNodeHeight(TargetCanvas, Node, 0)+5;
end;

procedure TForm1.OnButtonClick(Sender : TObject);
begin
  meinVst.RootNodeCount := 5;
end;