TGIS_Shape.Flash(Integer; Integer) method

DK11 for Delphi | GisLayerVector.TGIS_Shape.Flash | Overloads | Constructors | Fields | Methods | Properties

Flash shape on screen. Just another visual effect to sign a shape

Available also on: .NET | Java | ActiveX | Python.

// Delphi
public
  procedure Flash(
    const _times : Integer;
    const _delay : Integer
  ); overload; virtual;

// C++ Builder
public:
  virtual void Flash(
    const int _times,
    const int _delay
  ) /* overload */;

procedure MyClass.GISMouseDown( Sender: TObject; Button: TMouseButton;
                                Shift: TShiftState; X, Y: Integer );
var
  ptg : TGIS_Point ;
  shp : TGIS_Shape ;
begin
  ptg := GIS.ScreenToMap( Point(x, y ) );
 
  // locate a shape with 5 pixels precision
  shp := TGIS_Shape( GIS.Locate( ptg, 5/GIS.Zoom ) );
 
  // let's flash the shape if found
  if shp <> nil then
     shp.Flash;
end;