DblClick example for Delphi

This example demonstrates the DblClick event.

Procedure TForm1.LEADRasterView1DblClick (Sender: TObject);
var
   sRet: Smallint;
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;

   RasterProc.Flip (LEADRasterView1.Raster); //Just test the event
   LEADRasterView1.ForceRepaint (sRet);
end;