Discussion :

[patrice@]

Bonjour à tous,
► pour les admin : le lien vers le forum d'entraide sur les générateurs d'états renvoie sur le forum Business Intelligence du coup j'ai posté ici.

Suite à une question que je posais sur le forum sur imprimer un RichEdit en A4, ShaiLeTroll m'a fait remarquer que travailler avec un outil comme FastReports me faciliterai la vie.
J'ai donc téléchargé la version gratuite de FR version VCL pour voir.
C'est ma 1ere approche d'un générateur d'état ... et bien entendu, je suis dans la marre avec de l'eau jusqu'au cou !

• Ma première question : Tous les tutos parlent de data provenant d'une base de données, moi j'ai un simple RichEdit sur une Form contenant un texte formaté RTF (en fait j'ai un mémo avec le code RTF que je reverse dans un TRichEdit via un StringStream pour avoir le formatage RTF), comment je peux verser le contenu de mon composant VCL dans le composant de FR ? ou dire à FR que ma data c'est RichEdit.Lines (ou un truc identique) ?

Merci de votre aide

[ShaiLeTroll]

Actuellement, je sais que tout FastReport est alimenté via un TClientDataSet, je n'ai pas mis le nez dans ce code que lors d'un petit bug à cause d'un nom de champ trop long (>30)

Utilise TfrxRichView qui contient un RichEdit affecte lui le Stream utilise TfrxReport.OnGetValue

[patrice@]

Merci ShaiLeTroll,

Ah! surprise! en tapant TfrxRichView dans la barre de recherche des composants, il n'y est pas ...
Le seul composant que j'ai dans FastReport VCL est frxRichObject qui n'est pas un composant visuel et ne possède pas d'événements.
Il faut que je passe par frxReport ? dedans il y a un RichText Object mais sans événement OnGetValue ... punaise, ça commence mal

[SergioMaster]

► pour les admin : le lien vers le forum d'entraide sur les générateurs d'états renvoie sur le forum Business Intelligence du coup j'ai posté ici.

Normal, car il y a plusieurs générateurs d'états. Au sein du forum Business Intelligence il y a Autres outils décisionnel et à l'intérieur on trouve FastReport

Tous les tutos parlent de data provenant d'une base de données,

Pas tous, mais là n'est pas le problème, on peut très bien ne pas utiliser de data d'une base de données et utiliser un frxuserdataset

comment je peux verser le contenu de mon composant VCL dans le composant de FR ?

La réponse je pense l'avoir donnée dans cette discussion toujours en utilisant un FrxuserDataset.

une autre solution s'il ne s'agit que d'un seul richedit est d'accéder au composant,

brouillon non testé

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent);
var rich : TFrxRichview; // uses frxrich 
begin
 begin
  rich:=frxReport1.FindComponent('Rich1') as TFrxRichview;
  if assigned(rich) then
    begin
      rich.RichEdit.lines:=RichEdit1.Lines;
    end;
end;

NB. il faudra poser un tfrxRichObject sur la forme

[SergioMaster]

dans mes différents essais, les couleurs et images n'apparaissent pas

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
procedure TLireDat.btnDialogClick(Sender: TObject);
begin
if opendialog1.Execute  then
 begin
   edit1.Text:=opendialog1.FileName;
   richedit1.Lines.LoadFromFile(opendialog1.FileName);
 end;
end;
 
procedure TLireDat.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport();
end;
 
procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent);
var rich : TFrxRichview;
begin
  rich:=frxReport1.FindComponent('Rich1') as TFrxRichview;
  if assigned(rich) then
    begin
      rich.RichEdit.lines:=RichEdit1.Lines;
    end;
end;

À ma décharge, c'est la première fois que j'utilise les TRichView et TFrxRichView. Il y a peut-être des subtilités que je n'ai pas utilisées.

NOTE : si je code ainsi rich.RichEdit.Lines.LoadFromFile(opendialog1.FileName); à la place de rich.RichEdit.lines:=RichEdit1.Lines; les couleurs et dessin sont bien visibles dans l'état. La subtilité est donc à chercher les bonnes propriétés.
Autre solution, passage par un stream

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
procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent);
var rich : TFrxRichview;
    aStream : TmemoryStream;
begin
  rich:=frxReport1.FindComponent('Rich1') as TFrxRichview;
  if assigned(rich) then
    begin
      aStream:=TmemoryStream.Create;
      try
         RichEdit1.lines.SaveToStream(aStream);
         aStream.Position:=0;
         rich.RichEdit.Lines.LoadFromStream(aStream);
      finally
        aStream.Free;
      end;
    end;
end;

Je n'ai pas non plus tester un texte qui tiendrait sur plus d'une page (ce qui risque d'être un peu plus compliqué)

[ShaiLeTroll]

un problème de transfert PlainText du Lines ?

Code :

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

1
2
3
4
5
6
7
8
9
RichEdit1.PlainText := False; // je ne sais jamais la bonne valeur, un cas c'est juste le texte nu dans l'autre le texte formaté
MS := TMemoryStream.Create();
try
  RichEdit1.Lines.SaveToStream(MS);
  MS.Seek(soFromBeginning, 0);
  rich.RichEdit.lines.LoadFromStream(MS);
finally
  MS.Free();
end;