ImageEn, unit imageenview

TImageEnView.OnSelectionChanging

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;