|
This is one of the fundamental string tree events which must always be handled. The string tree will fire this event every time when it needs to know about the text of a specific node and column. This is mainly the case when the node appears in the visible area of the tree view (in other words it is not scrolled out of view) but also on some other occasions, including streaming, drag and drop and calculating the width of the node. The node text is distinguished between two text types: - Normal text: If TextType is ttNormal return the main node caption for the specified column.
- Static text: All text that you return when TextType is ttStatic will be displayed right beside the normal text (or left to it if the column''''s BidiMode is not bdLeftToRight, i.e. the column has right-to-left layout). Static text is used only for informational purposes; it cannot be selected or dragged and if the column is not wide enough to show all text it will not be shortened with an ellipsis (...) as normal text. The string tree will only query for static text if the StringOptions (see TreeOptions) include toShowStaticText. This is off by default.
When this event is fired the text parameter will always be initialized with the value of property DefaultText. To handle the event get your node data and then extract the string for the appropriate column and TextType. NotesBe sure that your event handler only contains absolutely necessary code. This event will be fired very often - easily a few hundred times for medium sized trees with some columns defined when the tree is repainted completely. For example it is far too slow to use Locate() on some Dataset, a database query result or table, and then get the text from some TField. This may only work with in-memory tables or a client dataset. When you initialize your node data do some caching and use these cached values to display the data. ************************************************************************************************************) for i:=0 to stringlist.Count div 5 -1 do
begin
case Column of
0:CellText:=stringlist[node.index * 5];
1:CellText:=stringlist[node.index * 5+1];
2:CellText:=stringlist[node.index * 5+2];
3:CellText:=stringlist[node.index * 5+3];
4:CellText:=stringlist[node.index * 5+4];
end;
end; end; //这个函数居然可以不用也可以连数据库，奇怪？ procedure TMMSLibraryForm.DataTreeInitNode(Sender: TBaseVirtualTree;
ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
var
Data: ^Int64;
begin
// Data := Sender.GetNodeData(Node);
// Data^ := Node.Index;
end; end.
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
