Hi
How about something like:
procedure Tfmain.btnInsertComplexShapeClick(Sender: TObject);
begin
ImageEnVect1.MouseInteractVt := [miPutPolyLine];
ImageEnVect1.PolylineClosingMode := iecmAlways;
ImageEnVect1.PolylineEndingMode := ieemMouseUp;
ImageEnVect1.ObjBrushColor[-1] := clYellow;
ImageEnVect1.ObjBrushStyle[-1] := bsSolid;
end;
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com