Steema Central

Hi

I had to change the source code of teetree by dding the line shown below,
because when I assign a image index to a tree node, the image is correctly assigned but the image index itself never
changes and I need to know the image index later so I made a small change in
their code (added line 6788).

Rgds

Peter

procedure TTreeNodeShape.SetImageListIndex(const Value:Integer);
begin
if FImageListIndex<>Value then
begin
FImageListIndex:=Value; // just set the variable. Do not free FImage.
FreeAndNil(FImage); //tom:01/09/2002 Otherwise Images are drawn on top of each other...
RecalcImageSize;
// line 6788 added
FImageListIndex:=Value; // the above line resets the ImageListIndex (!)

CanvasChanged(Self);
end;
end;

thanks for the bug report, we will look at it and take it into account in one of the next releases

I had a similar problem, but I've recompiled the source and my code now works like a charm. Thank you Peter for posting this kind advice.

The latest version still has this problem.

Hi Cyionics,

I'd like to apologise for the lack of response here. Could you please attach a simple example project we can run "as-is" with which we can reproduce the problem here and we will investigate it and try to apply the fix you suggested?

Thanks again for your collaboration.

Here is a program that creates two tree nodes and assigns 0 and 1 to their ImageListIndex properties, respectively, in the form's OnCreate. When you click the button it reads the ImageListIndex property of the first node, and it returns -1 even though the image is correctly set.

TTreeNodeShape.SetImageListIndex calls RecalcImageSize and that procedure (by calling some other procedures) causes the FImageListIndex variable to be reset to -1.

Hi Cyionics,

Thank you very much for your project. I have checked your solution proposal solves the issue. We will investigate a little bit further and consider it for inclusion in the next maintenance release.