TImageEnView.OnSelectionChanging

Declaration

property OnSelectionChanging: TNotifyEvent;

Description

Occurs whenever the user is modifying the current selection.

Note: Methods such as AddSelPoint or Select do not call the OnSelectionChanging event.

Example

// Show the user selection rect (MouseInteractGeneral includes miSelectZoom)
procedure TForm.ImageEnView1SelectionChanging(Sender: TObject);
begin    
  StatusBar.Panels[0].Text := '(' + IntToStr( ImageEnView1.SelX1 ) +
                              ',' + IntToStr( ImageEnView1.SelY1 ) + '), ' +
                              '(' + IntToStr( ImageEnView1.SelX2 ) +
                              ',' + IntToStr( ImageEnView1.SelY2) + ')';
end;

---