Forum: Programmieren allgemein
by Zodi,
10. Nov 2017
Eigentlich will ich nur meine normale Rutine so umändern das si stat die normale ListView eben die VirtualStringTree befüllt.
procedure AddList;
var
Data: PTreeData;
XNode: PVirtualNode;
Rand: Integer;
ListItem: TListItem;
Forum: Programmieren allgemein
by Zodi,
10. Nov 2017
Wie benutzt man denn diese 2 Befehle wenn man ne VirtualStringTree benutzt.
Beispiel ist für ne normale ListView Komponente.
ListItem := form1.ListView1.FindCaption(0, EntryString, False, True, False);
for I := form1.ListView1.Items.Count - 1 downto 0 do
weil FindCaption und Items fehlen bei der VirtualStringTree.
Forum: Programmieren allgemein
by Zodi,
10. Nov 2017
Hat super funktioniert danke :-D
Forum: Programmieren allgemein
by Zodi,
9. Nov 2017
Ha jetzt in der Procedure GetImageIndexEx den ImageIndex eingetragen und das funktioniert und die icons werden angezeigt.
procedure TForm1.VSTGetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: TImageIndex);
begin
ImageIndex := 1;
end;
Allerdings bekomme ich nach paar Sekunden folgende...
Forum: Programmieren allgemein
by Zodi,
9. Nov 2017
Hi Delphianer
Ich habe eine VirtualStringTree mit 2 Columns die ich befülle.
procedure TForm1.VSTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
NodeDataSize := SizeOf(TTreeData);
end;
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);