Delphi Erste Schritte mit der Virtual ListView

Thema durchsuchen

Ansicht

Themen-Optionen

Erste Schritte mit der Virtual ListView

Ein Thema von TheMiller · begonnen am 5. Dez 2007 · letzter Beitrag vom 5. Dez 2007

Vorheriger Beitrag

Nächster Beitrag

Nuclear-Ping

(Gast)

n/a Beiträge

Re: Erste Schritte mit der Virtual ListView

5. Dez 2007, 23:29

In OnInitNode musst du noch die Unterstützung für MultiLine setzen.

markieren

Delphi-Quellcode:

			procedure TDatabaseContentEditor.DatabaseItemsInitNode(

  Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;

  var InitialStates: TVirtualNodeInitStates);

begin

  Sender.NodeHeight[Node] := 84;

  if (FCheckSupport) then

    Node.CheckType := ctCheckBox

  else Node.CheckType := ctNone;

  Include(InitialStates, ivsMultiline);

end;