Displaying what I want in a treeview node.

I want to control what text is being painted in a TreeView component. This is so I can add a rem like statment to the end of each node's text area, but I don't want this rem statment to be displayed. I'm Updating my component "PathTreeView" to do this.

I know that I can use the "OnCustomDrawItem" but the example that comes with D5 shows that I would have to handle the complet drawing of the node when I only just want to handle the text display. Is there a way to get around this and let the default drawing of the indents, lines, images and buttons be handled default and only edit the text display when it get's to it?

Giving the points for a example to learn from.

Thanks PPaul
PPaulAsked:
Who is Participating?
 
mocartsCommented:
hi, PPaul :)
just use #0 char delimiter for Text property:

implementation

function GetHiddenNodeText(node: TTreeNode): string;
var
  i: integer;
begin
  Result := node.Text;
  i := pos(#0, Result);
  if i > 0 then
    Result := Copy(Result, i+1, Length(Result)-1)
  else
    Result := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  nd: TTreeNode;
begin
  nd := TreeView1.Items.Add(nil, 'some simple text'+#0+'some hidden text');
  TreeView1.Items.AddChild(nd, 'Child1'+#0+'Child1HiddenData1');
  TreeView1.Items.AddChild(nd, 'Child2'+#0+'Child2HiddenData1');
  TreeView1.Items.AddChild(nd, 'Child3'+#0+'Child3HiddenData1');
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  Caption := GetHiddenNodeText(node);
end;

wbr, mo.
0
 
PPaulAuthor Commented:
That is cool... and it works.. but I found one problem with it... I'm giving you the points anyway.. The problem is that when you save the contents of the treeview to a file with SaveToFile, and then try to load it back in, it stops righ on the first #0, so the rest of the tree is not loaded in. Is there another code that can be used that will still give teh same hidden text but save to a file also?

Thanks

 
0
 
mocartsCommented:
try this solution (also possible to save virtually all other properties of TTreeNode):
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20558338.html

wbr, mo.
0
 
PPaulAuthor Commented:
ok thanks... I'll lok at it.. you've been a big help :)

Thanks
PPaul
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.