fastreport et composant frxpreview

Version imprimable

21/09/2022, 22h35
divil15

fastreport et composant frxpreview

Bonjour tout le monde.
Je cherche comment utiliser composant frxpreview
Dans une form .
22/09/2022, 07h32
SergioMaster

1 pièce(s) jointe(s)
Bonjour,
Pour moi FrxPreview est un composant "simple" qui permet de faire la prévisualisation d'un état fastreport au sein d'une fenêtre plutôt que dans une fenêtre modale (l'avantage de la fenêtre modale étant tous les outils disponibles : impression, export, zoom, etc.)
Pour l'utiliser, il suffit d'indiquer dans la propriété Preview du TFrxReport , le nom du composant TFrxPreview
sinon, pas de secret, cela passe par du code (ce n'est pas en insérant un enregistrement dans le dataset que l'affichage sera modifié)
Code:

1 2 3 4 5 procedure TForm4.Button1Click(Sender: TObject); begin FrxReport1.PrepareReport(); frxreport1.ShowPreparedReport; end;
P.S On peut utiliser plus simplement FrxReport1.ShowReport(); mais le fait de préparer le report est souvent mieux

Pièce jointe 625898

Cela dit, comme c'est la première fois que je me penche sur ce composant, si un autre lecteur peut m'expliquer les diverses zones au moment du design, je prends

1 pièce(s) jointe(s)

À un TFrxPreview, vous préférerez peut-être utiliser un panel qui contiendra la prévisualisation et permettra de configurer les divers boutons (frxreport.PreviewOptions.buttons) et autres options

Version VCL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
var
  frmPreview: TfrxPreviewForm;
begin
  FrxReport1.PrepareReport();
  FrxReport1.ShowPreparedReport;
  frxReport1.PreviewOptions.Modal := False;
  frmPreview:=TfrxPreviewForm(frxReport1.PreviewForm);
  frmPreview.BorderStyle := bsNone;
  frmPreview.Parent:=Panel1;
  frmPreview.Left:=0;
  frmPreview.Top:=0;
  frmPreview.Width:=Panel1.ClientWidth;
  frmPreview.Height:=Panel1.ClientHeight;
end;

Pièce jointe 625902

23/09/2022, 01h28
divil15

Comment mettre frxpreview
1-( format de papier a5).
2- zoom personnaliser.
Merci d'avance
23/09/2022, 06h55
SergioMaster
Bonjour,

Citation:

1-( format de papier a5).

FrxPreview n'a rien à voir avec le format papier, le format papier, c'est un problème de dessin de report.
S'il s'agit de faire en sorte que le composant de visualisation soit de la taille d'un papier A5 c'est à vous de chercher le moyen de transformer des cm en pixels (un peu d'efforts, ça se trouve facilement)

Citation:

2- zoom personnalisé

Hors Frxpreview, il vous suffit de jouer sur l'option frxReport1.PreviewOptions.zoom (à exprimer en single 100%=1)
Si vous persistez dans la voie Frxpreview, il va falloir que vous construisiez un toolbar pour gérer les zooms et cie.. (à moins que les dernières versions aient évoluées), sinon, comme pour frxreport.previewoptions, il y a les propriétés zoom ou zoommode
Code:

1 2 3 4 frxPreview1.Zoom:=0.5; // ou, l'un ou l'autre // frxpreview1.ZoomMode:=zmWholepage;
rien qu'un appui sur la touche :f1: ne puisse pas vous fournir si l'aide est installée !

PS. le code de la version VCL indiquée ne fonctionne pas en FMX :weird: