Discussion :

[divil15]

Bonjour tout le monde.
Je cherche comment utiliser composant frxpreview
Dans une form .

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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



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

[SergioMaster]

À 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[divil15]

Comment mettre frxpreview
1-( format de papier a5).
2- zoom personnaliser.
Merci d'avance

[SergioMaster]

Bonjour,

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)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        frxPreview1.Zoom:=0.5;
     // ou, l'un ou l'autre
     // frxpreview1.ZoomMode:=zmWholepage;

rien qu'un appui sur la touche 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