and then, I want to switch to select mode in ImageEnViewLayerNotifyEx procedure:
if ImageEnView.Layers[layer].Kind = ielkLine then
begin
if event in [ielCreated] then
begin
ImageEnView.MouseInteract := [ miMoveLayers, miResizeLayers ];
end
end
but, this way my line disappears. Why?
5 L A T E S T R E P L I E S (Newest First)
xequte
Posted - May 12 2019 : 21:15:30 Can you not disable line creation in the ImageEnViewLayerNotifyEx event, e.g.
procedure TMainForm.ImageEnView1LayerNotifyEx(Sender: TObject; layer: Integer; event: TIELayerEvent);
begin
if event = ielCreated then
ImageEnView1.MouseInteract := [ miEditLayerPoints ];
end;
Posted - May 10 2019 : 02:59:26 But I want to disable create new line layers, after finished draw. So I want to remove miClickCreateLineLayers property.