Hi
Yes, it would be something like:
If ieVect1.SelObjectsCount > 0 then
begin
obj := ieVect1.SelObjects[0];
case ieVect1.ObjKind[ obj ] of
iekBOX: ....
end;
end;
You should review the Vectorial demo in the \Demo\Annotations\ folder.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com