Discussion :

[Petzouille57]

Bonjour tout le monde

J'ai trouvé ce code

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
 
procedure TForm8.Button1Click(Sender: TObject);
var
  ma_Page: TRavePage;
  champs: TRaveDataMemo;
  //test : TRaveDataMemo;
begin
 
// ouverture du composant rave
RvProject1.Open;
 
// création du champs texte_a_remplacer
With RvProject1.ProjMan do begin
 
ma_page := FindRaveComponent('report1.page1',nil) as TRavePage;
champs := FindRaveComponent('datamemo1',ma_page) as TRaveDataMemo;
champs.Text := memo1.Text; // ne pas mettre les '' '' s'il s'agit d'une variable 
 
end;
  RvSystem1.DefaultDest := rdFile;
  RvSystem1.DoNativeOutput := false;
  RvSystem1.RenderObject := RvRenderpdf1;
  RvSystem1.OutputFileName := 'f:/test1.pdf';
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.Execute;
  RvProject1.ExecuteReport('Report1');
    RvProject1.Close;
end;

Il permet dans un rapport Rave de récupérer une variable dans l'application delphi et de l'insérer au rapport. Sauf que ca marche très bien avec un Memo normal mais pas avec un DataMemo. Et vu que j'ai besoin d'insérer un texte formaté j'ai besoin du DataMemo.

Si l'un de vous peut m'aider je lui en serais trés reconnaissant.

Merci d'avance.

[Rayek]

En créant une variable globale dans l'état directement, de lier cette variable au datamemo puis d'utiliser cette QR

[Petzouille57]

Merci malheureusement j'aimerai pouvoir garder le texte avec sa mise en forme (couleur, font ...) et avec cette méthode on peut juste passer du texte (si j'ai bien tout compris ).
Merci d'avance

[Rayek]

Tu peux tester cette solution :

http://www.developpez.net/forums/sho...highlight=rave

Mais tu n'auras pas les surlignages et couleur de fond