TImageEnView.LayersEditingLayer

Declaration

property LayersEditingLayer: Integer;

Description

Returns the index of the text layer or line label currently being edited. Result is -1 if there is no active text editing.

Example

// When closing, check if user is editing a layer and prompt to save the changes
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ImageEnView1.LayersEditingLayer > -1 then
    if MessageDlg( 'Save changes to text?', mtConfirmation, [ mbYes, mbNo ], 0 ) = mrYes then
      ImageEnView1.LayersCancelEditor( True );
end;

TImageEnView.LayersEditingLayer