You can reproduce the problem by putting a TTree component on a form and adding the following code to the OnCreate event of your form:
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
var
liI : Integer;
lxNode,
lxChild : TTreeNodeShape;
begin
Tree1.Canvas := TTeeCanvas3D.Create;
lxNode := Tree1.AddRoot('Root');
lxNode.Border.Visible := False;
lxNode.ImageIndex := tiNone;
for liI := 1 to 100 do
begin
lxChild := lxNode.AddChild(IntToStr(liI));
lxChild.Border.Visible := False;
lxChild.ImageIndex := tiNone;
end;
lxNode.Expanded := True;
end;
For the moment, a workaround is to either set the node's Transparent property to true or setting the border's Visible property to true and the border's color to clWhite.