1

when add a lot of picture node to the teetree control,and set text offset to 30,then scroll to the end,the last line display picture only. how should i do?

this is the result of the error: image of error

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
imgBox:TImageShape;
  curLeft,curTop:Integer;       //绘制完成文档视图后当前左上角坐标
begin
  curLeft:=-100-15;
  curTop:=0;
  for i:=0 to 10 do
  begin
    imgBox := TImageShape.Create(Self);
    imgBox.Width := 100;
    imgBox.Height := 100;
    curLeft := curLeft + 100 + 15 * 2;
    if (curLeft + 100 + 15)>= Tree1.Width then
    begin
      curLeft := 15;
      curTop := curTop + 100 + 15 * 2;
    end;
    imgBox.Left := curLeft;
    imgBox.Top := curTop;
    imgBox.Font.Style:=[fsBold];
    imgBox.Font.Size:=16;
    imgBox.Text.VertAlign:=vtaBottom;
    imgBox.Text.VertOffset:=30;
    imgBox.Text.Add('Node'+inttostr(i));
    imgBox.ImageListIndex:=0;
    imgBox.Tree:=Tree1;
  end;

end;

1 Answer 1

1

I've added it to the public tracker here with a possible fix to be further investigated.

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.