Declaration

TIEUserInteractionNotify = procedure(Sender: TObject; Event: TIEUserInteractionEvent; Info: Integer) of object;

Description

Event specifies the type of user interaction that has occured:

The Info parameter may carry further detail of the event, as detailed in the table above.

Examples

procedure TfrmMain.IEView1UserInteraction(Sender: TObject; Event: TIEUserInteractionEvent; Info: Integer);
begin
  // Beep on crop cancellation
  if Event = ieiCropCanceled then
    MessageBeep( MB_ICONEXCLAMATION );
end;


// Use miColorPicker to set transparent parts of image

procedure TMainForm.btnSelColorClick(Sender: TObject);
begin
  // Enable color picker. Revert to previous tool after color is selected
  ImageEnView1.MouseInteractGeneral := [ miColorPicker ];
  ImageEnView1.FillTool.ResetAfterColorSelect := True;
end;

procedure TMainForm.ImageEnView1UserInteraction(Sender: TObject; Event:
    TIEUserInteractionEvent; Info: Integer);
var
  c: TColor;
begin
  if Event = ieiColorPickerHover then
  begin
    // Hovering over image - show color in our panel
    pnlCurrentColor.Color := TColor( Info );
  end
  else
  if Event = ieiColorPickerClick then
  begin
    // Clicked image - set this color as transparent in our image
    c := TColor( Info );
    ImageEnView1.Proc.SetTransparentColors( c, c, 0);
  end;
end;

procedure TMainForm.ImageEnView1UserInteraction(Sender: TObject; Event:
    TIEUserInteractionEvent; Info: Integer);
begin
  // Enable the "Clear" button when a form field in a PDF document is selected
  if Event in [ieiPdfFieldEnter, ieiPdfFieldLeave] then
    btnClear.Enabled := ImageEnView1.PdfViewer.FormFieldFocused;
end;

procedure TMainForm.ImageEnView1UserInteraction(Sender: TObject; Event:
    TIEUserInteractionEvent; Info: Integer);
begin
  // Show error message after an error is encountered
  if Event = ieiPdfError then
  begin
    MessageBeep( MB_ICONERROR );
    fPDFErrorPending := True;     // In Application.OnIdle an error message will show
  end;
end;

// Show PDF Printing Progress
// Note: You can also use TImageEnView.OnProgress
procedure TMainForm.ImageEnView1UserInteraction(Sender: TObject; Event:
    TIEUserInteractionEvent; Info: Integer);
begin
  if Event = ieiPdfPrintPage then
  begin
    ProgressBar1.Position := MulDiv( Info, 100, ImageEnView1.PdfViewer.PageCount );
    ProgressBar1.Visible := true;
  end
  else
  if Event = ieiPdfPrintEnd then
    ProgressBar1.Visible := False;
end;

See Also

◼ TIEUserInteraction

---