What would be the best way to reset all properties for the TImageEnVect IEV_NEXT_INSERTED_OBJECT without adding a new object?
I know of AddNewObject with the bDefaultProps parameter set to True. But this seems to reset the properties for next object, not the added object.
For example:
procedure test;
var hobj: Integer;
begin
// Preparing new object:
ObjPenWidth[IEV_NEXT_INSERTED_OBJECT] := 5;
// Want to cancel operation. All I can think of
// to discard previous preparation is:
hobj := AddNewObject(True);
RemoveObject(hobj);
// To paint some standard object after that
// without caring about ALL properties:
ObjKind[IEV_NEXT_INSERTED_OBJECT] := iekBOX;
ObjPenColor[IEV_NEXT_INSERTED_OBJECT] := clGreen;
AddNewObject(True);
end;
Search
