[QuickReport] Disparition aperçu lors de l'iconisation [Résolu]

[James64]

Bonjour,

Voilà, quand je réduis un état QR avec "_"(à gauche de la croix), il disparait je ne sais où!!
Comment puis-je faire pour qu'il apparaisse en onglet et que je puisse l'appeler qd je veux? l'agrandir et le reduire...

Merci

[Andry]

Salut,

Une solution est de faire un preview personnalisé, avec le compo QrPreview.
Ensuite tu ratache ton Qreport avec ton Qrprevieuw avec ce code dans l'evenement onPreview det ton QReport.

Code :

1
2
3
4
5
6
7
8
 
procedure TFrm_Rapport.Q_reportPreview(Sender: TObject);
begin
  WITH TFrm_preview.CREATE(Application) do
  begin
    Q_preview.QRPrinter := Q_Report.QRPrinter;
  end;
end;

Courage

[James64]

de ce style?

Code :

1
2
3
4
procedure TForm8.QuickRep1Preview(Sender: TObject);
begin
    QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;

[Andry]

Je t'explique mon bout de code

Code :

1
2
3
4
5
6
7
8
 
procedure TFrm_Rapport.Q_reportPreview(Sender: TObject); 
begin 
  WITH TFrm_preview.CREATE(Application) do 
  begin 
    Q_preview.QRPrinter := Q_Report.QRPrinter; 
  end; 
end;

Frm_preview est une fiche contenant un QrPreview(Q_preview) et pas mal de bouton et pop_menu pour avoir plus de controle sur le preview.
Donc lors de l'appel Preview du Qreport, ce sera mon preview perso qui sera appelé au lieu du preview par defaut de Qreport.

A toi de jouer maintenant.

[James64]

ca ne marche pas...
G ca :

Code :

1
2
3
4
WITH TForm4.CREATE(Application) do
    begin
        Form4.QRPreview1.QRPrinter := QuickRep1.QRPrinter;
    end;

dans la procedure TForm8.QuickRep1StartPage(Sender: TCustomQuickRep); et je le lance comme ca :

Code :

Form8.QuickRep1.Preview;

j'obtiens le meme état qu'avant + des erreurs d'affichage....

[Andry]

Je l'utilise dans une appli de type MDI
Je pense que ça peut influencer le mode d'affichage.

A+