Stammtisch #2 vom 10. Dez 2007

[Daniel]

Anbei ein Code, um einen grundlegenden VST im Quellcode zu erzeugen.

Delphi-Quellcode:

var
vst: TVirtualStringTree;

vst := TVirtualStringTree.Create(Self);
with vst do
begin
Name := 'vst';
Parent := Self;
Left := 8;
Top := 8;
Width := 441;
Height := 209;
Header.AutoSizeIndex := 0;
Header.Font.Charset := DEFAULT_CHARSET;
Header.Font.Color := clWindowText;
Header.Font.Height := -11;
Header.Font.Name := 'Tahoma';
Header.Font.Style := [];
Header.Options := [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible];
TabOrder := 0;
TreeOptions.AutoOptions := [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes];
OnCompareNodes := vstCompareNodes;
OnFreeNode := vstFreeNode;
OnGetText := vstGetText;
OnHeaderClick := vstHeaderClick;
with Columns.Add do begin
Position := 0;
WideText := 'Anzahl';
end;
with Columns.Add do begin
Position := 1;
Width := 150;
WideText := 'Bezeichnung';
end;
with Columns.Add do begin
Position := 2;
WideText := 'Preis';
end;
with Columns.Add do begin
Position := 3;
WideText := 'Gesamtpreis';
end;
WideDefaultText := '';
end;