TRVAControlPanel.OnDownload

Occurs when IdHTTP downloads an image.

type

  TRVADownloadEvent = procedure (Sender: TrvAction; const Source: String) of object;

property OnDownload: TRVADownloadEvent;

For each image, this event occurs twice:

•before downloading, Source is the image file name (HTTP location)

•after downloading, Source is an empty string.

Example:

// This example assumes that the application displays hints in a status bar

procedure TForm1.RVAControlPanel1Download(Sender: TrvAction;

  const Source: String);

begin

  if Source='' then

    Application.Hint := ''

  else

    Application.Hint := 'Downloading '+Source+'...';

end;