Multi-line node text not correctly displayed

[Collinor]

In the TTree component of TeeChart 2014 of May 12, 2014, multi-line node text not correctly displayed, if the line count is even.
Therefore line 4164 in TeeTree.pas, function TTreeNodeShape.DrawText

Code: Select all

vtaCenter: tmpPosY:=tmpMidY + Round( (t*tmpH) - ((tmpCount div 2)*tmpH) - (tmpH*0.5) );

has to be fixed as follows:

Code: Select all

vtaCenter: tmpPosY:=tmpMidY + Round( (t*tmpH) - ((tmpCount div 2)*tmpH) - (tmpCount mod 2)*(tmpH*0.5) );

[Yeray]

Hello,

I can't reproduce the problem here with the following code:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  TreeNodeShape1.Text.Clear;
  for i:=0 to 10 do
   TreeNodeShape1.Text.Add('Line ' + IntToStr(i));
end;

What have I incorrectly understood?

[Collinor]

You added an odd number of lines (0 to 10) to the shape. The following code reproduces the problem:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  TreeNodeShape1.Text.Clear;
  for i:=1 to 10 do
   TreeNodeShape1.Text.Add('Line ' + IntToStr(i));
end;

[Yeray]

Hello,

Sorry for the confusion. I could reproduce the problem (so I added it to the public tracker B875) and also checked your suggestion fixes it, so I've implemented the change and the next maintenance release will include it.