ImageEn, unit imageenview

TImageEnView.FindLayerAt

TImageEnView.FindLayerAt


Declaration

function FindLayerAt(ScrX, ScrY: Integer; SelectablesOnly: Boolean = true; SelectTransparent: Boolean = True): Integer;


Description

Returns the index of the layer at position x, y (in client area coordinates).
Layers are only returned if they are visible (or they are already selected).
If SelectablesOnly is true, it won't return any layer which isn't selectable.
If SelectTransparent is true, the layer will be returned even if ScrX, ScrY are over a transparent part of the layer. If False, ScrX, ScrY must be over a visible part of the layer.
Returns -1 if no layer was found.


Example

// Show which layer is under the cursor
procedure TMainForm.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  lyr: Integer;
begin
  lyr := ImageEnView1.FindLayerAt( X, Y );
  if lyr < 0 then
    lblLayer.Caption := 'Layer: None'
  else
    lblLayer.Caption := 'Layer: ' + IntToStr( lyr );
end;