Note: You must be registered in order to post a reply.To register, click here. Registration is FREE!
if aobj.TextAutoSize then begin nx2 := x1 + dx; ny2 := y1 + dy; end;
if aobj.TextAutoSize then begin nx2 := trunc(x1 + abs(dx * cos(fa)) + abs(dy * sin(fa))); ny2 := trunc(y1 + abs(dx * sin(fa)) + abs(dy * cos(fa))); end;