TImageEnProc.OnPreview

Declaration

property OnPreview: TIEPreviewEvent;

Description

Occurs before the Image Processing Dialog form is displayed (i.e. after calling DoPreviews).

Example 1

procedure TForm1.ImageEnProc1Preview(Sender: TObject; PreviewForm: TForm);
begin
  (PreviewForm as TfPreviews).PageControl1.MultiLine := True;
end;

Example 2

// Customizing the Preview dialog of a TImageEnView
uses
  Previews;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  ImageEnView1.Proc.OnPreview := ProcPreview;
end;

procedure TMyForm.ProcPreview(Sender: TObject; PreviewForm: TForm);
begin
  with TfPreviews(PreviewForm) do
  begin
    // Red dialog
    Color := clRed;

    // Caption of OK button
    OkButton.Caption := 'Yeah baby';

    // Replace cancel button with custom control
    CancelButton.Visible := False;
    With TMyAnimatedButton.Create( PreviewForm ) do
    begin
      Parent := PreviewForm;
      Left := CancelButton.Left;
      Top := CancelButton.Top + CancelButton.Height + 8;
      Width := CancelButton.Width;
      Height := CancelButton.Height;
      Anchors := [akTop, akRight];
      Caption := 'My Cancel';
      ModalResult := 2;
    end;
  end;
end;

See Also

◼OnShowDialog

---