Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
|
Re: VST und Gruppenbildung
5. Sep 2009, 17:05
Delphi-Quellcode:
procedure TSearchResultForm.VST_SearchResultGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
var
daten: TObject;
begin
daten := VST_SearchResult.GetNodeData(Node)^;
case Column of
0: if daten is TOSearchResult then
CellText := IntToStr(TOSearchResult(daten).Number);
1: begin
if daten is TOParentPos then
CellText := TOParentPos(daten).Position
else if daten is TOSearchResult then
CellText := TOSearchResult(daten).Kategorie;
end;
2: begin
if daten is TOParentPos then
CellText := TOParentPos(daten).TextSnip
else if daten is TOSearchResult then
CellText := TOSearchResult(daten).Ueberschrift;
end;
end;
end;
|
|
Zitat
|