TfrxCustomExportFilter - Icon in the preview window

Jimmy Van den Bliek

Hi,

I'm creating a custom export filter descending of TfrxCustomExportFilter. I would like to know how to place an icon in the preview window like the PDF export? Thank you

Jimmy

Arkadiusz Wolanski

Here one example:

procedure TForm.FrxReportPreview(Sender: TObject);
var
  Preview: TfrxPreviewForm;
  Tb: TToolButton;
begin
  Preview := TfrxPreviewForm(FrxReport.PreviewForm);
  if not Assigned(Preview) then
    Exit;
  Tb := TToolButton.Create(Preview);
  Tb.Parent := Preview.ToolBar;
  Tb.Caption := 'PDF-Export';
  Tb.Left := 70;
  Tb.Top := 0;
  Tb.OnClick := FR2PDF;
  Tb.ImageIndex := 24;
end;

Arek

Jimmy Van den Bliek wrote: »

Hi,

I'm creating a custom export filter descending of TfrxCustomExportFilter. I would like to know how to place an icon in the preview window like the PDF export? Thank you

Jimmy