spezielle listbox

[Timi-loader]

hallo

kennt jemand eine komponente mit der man sone listbox machen kann wie z.b. bei drahtlose netzwerkverbindungen?
also so eine mit mehr details und einem großen bild für jedes element und mehrzeilig und wenn mans anklickt wird detailsreicher und größer.

mfg

[mkinzler]

Schau die mal den Virtual TreeView an

[Timi-loader]

wie man damit was ausfährt wär dann klar. aber wie kann ich da mehrere zeilen text in ein item reinbringen? wills ebend genau wie bei windows da die drahtlosnetzwerkanzeige haben.

mfg

[mkinzler]

Sollte gehen. Schau die doch mal das Advanced demo an:
http://www.soft-gems.net/index.php?o...d=12&Itemid=33

[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;