Hi Klaus
You should be able to do this using the LayerNotify event:
procedure TMainForm.ImageEnView1LayerNotify(Sender: TObject; layer: Integer;
event: TIELayerEvent);
begin
// Auto-size text only after rotation
if ( ImageEnView1.Layers[ layer ] is TIETextLayer ) and ( event is ielRotated ) then
begin
TIETextLayer( ImageEnView1.Layers[ layer ]).SizeToText();
ImageEnView1.Update();
end;
end;
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com