Discussion :

[bm1990]

Salut tous le monde,je suis entrain de réaliser une application de gestion médical qui doit générer des états d'impression comme par exemple un rapport médical et là j'ai un problème alors je cherche comment justifier un texte dans QRDBRichText1 d'un QuickReport.
Merci.

[lave_01]

Bonjour,

Vous n'avez pas des propriétés sur QRDBRichText1 ? Du genre align ?

[SergioMaster]

Bonjour,

cela dépend peut-être de la version mais QR3 proposait déjà la propriété QRDBRichText.Alignment:=taCenter;AMHA vous n'avez pas dû beaucoup chercher pour ne pas la voir !

[bm1990]

Bonjour,

Vous n'avez pas des propriétés sur QRDBRichText1 ? Du genre align ?

Je sais qu'il y a la propriété align mais ce que je cherche un Full Align

[bm1990]

Bonjour,

cela dépend peut-être de la version mais QR3 proposait déjà la propriété QRDBRichText.Alignment:=taCenter;AMHA vous n'avez pas dû beaucoup chercher pour ne pas la voir !

Je connais bien cette propriété mais elle n'a pas le Full Align

[SergioMaster]

un TRichEdit ne le permet pas non plus j'ai lu quelquepart que la règle de base d'un TRichEdit était :

si vous ne pouvez pas le faire avec Wordpad.exe, vous ne pouvez pas le faire avec TRichedit non plus.

[bm1990]

Salut, j'ai trouver un composant justifyrichedit et ça marche bien mais quand j'aligne et je veux affecter le texte dans QRDBRichText le texte reprend ça forme initial

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
unit JustifyRichEdit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  StdCtrls, ComCtrls, RichEdit;
 
type
  TJustifyRichEdit = class(TRichEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure Justify;
  published
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('ZyXEL', [TJustifyRichEdit]);
end;
 
procedure TJustifyRichEdit.Justify;
const
  WM_USER = $400;
  EM_EXSETSEL = (WM_USER + 55);
  EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);
  EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203);
  TO_ADVANCEDTYPOGRAPHY = $1;
  mZERO = $0;
var x :tparaformat;
   L :LongInt;
   cp :charrange;
begin
  x.cbSize := sizeof(x);
  if SelLength = 0 then
  begin
    cp.cpMin := 0;
    cp.cpMax := length(Text);
    SendMessage(Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
  end;
  L := SendMessageA(Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
  if L = 1 then
  begin
    SendMessageA(Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
    SendMessage(Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
    x.dwMask := PFM_ALIGNMENT;
    x.wAlignment := PFA_JUSTIFY;
    SendMessage(Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
  end;
  cp.cpMin := 0;
  cp.cpMax := 0;
  SendMessage(Handle,EM_EXSETSEL,mZERO,lparam(@cp));
  WordWrap := true;
end;
 
 
 
 
 
 
end.

Vous trouvez le composant en pièce jointe
justifyrichedit.zip

[cincap]

Bonjour à toutes et à tous,


@ bm1990

Dans le temps avec un TRichEdit je procédais comme ceci :

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 TForm1.Button4Click(Sender: TObject);
begin
 
RichEdit1.Paragraph.Alignment := taCenter;
 
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
 
RichEdit1.Paragraph.Alignment := taLeftJustify;
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 
RichEdit1.Paragraph.Alignment := taRightJustify;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
RichEdit1.selectall;
 
end;

Peut être une piste.

@+,


cincap

[SergioMaster]

Bonsoir,
@cincap
le titre est un peu trompeur en lisant attentivement il ne s'agit pas d'un alignement gauche, droit ou centre mais d'un alignement "justifié" comme peuvent le proposer des traitements de texte ce que ne propose pas Wordpad et ne propose donc pas RichEdit.

Le dernier code proposé par bm1990 propose une sorte de surclassement pour le faire

LadyWasky proposait quelque chose d'approchant ici

[cincap]

Bonjour à toutes et à tous,

@ SergioMaster, merci en effet pour cette précision, j'étais bien à coté du problème.

@+,

cincap

[SergioMaster]

J'étais aussi "tombé" dans le piège

[bm1990]

Merci @cincap et @SergioMaster et je suis désolé si j'ai pas bien formuler le titre de la discussion et j'aimerais bien si le modérateur peut le reformuler comme suivant: Justifier complètement le texte d'un QRDBRichText1 ou bien Full Justify du texte d'un QRDBRichText1

On revenant à mon problème je croix que la seule solution est de migrer vers FastReport parce que FastReport supporte cette option.

[SergioMaster]

en revenant à mon problème je crois que la seule solution est de migrer vers FastReport

Maintenant que vous avez le plus gros de la recherche est fait ? Pas forcement !

À mon avis même pas besoin de créer un composant, un surclassement QRRichedit ou QRDBRichEdit devrait faire l'affaire malheureusement je n'ai pas/plus ces composants sous la main pour tester

[bm1990]

À mon avis même pas besoin de créer un composant, un surclassement QRRichedit ou QRDBRichEdit devrait faire l'affaire malheureusement je n'ai pas/plus ces composants sous la main pour tester

Merci @SergioMaster est ce que je dois chercher l'unité de ce composant et je rajoute le code précédent ou bien comment faire ?

[SergioMaster]

Bonjour,

le principe c'est de rajouter des propriétés/fonctions à un composant existant (rien à voir mais j'applique ce principe dans ce tutoriel chapitre II.A)

je verrai quelque chose comme

Code :

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

1
2
3
4
5
 TQRDBRichText = class(TQRDBRichText)
  private
  protected
    procedure FullJustify () ;  
  end;

pour ce qui est de l'utilisation par contre je ne sais pas trop comment cela fonctionnerai le mieux serait de pouvoir rajouter une valeur dans la liste des types de justifications

une autre solution copier le source de l'unité contenant TQRDBRichText dans le répertoire des sources de l'application et modifier directement

N'utilisant plus Quickreport depuis D3 difficile de s'impliquer d'avantage

[SergioMaster]

Pour revenir sur le sujet puisqu'il n'est pas noté comme
je signale ce dépôt https://github.com/vintagedave/fully-justified-text

[bm1990]

Merci SergioMaster mais j'ai pas trouver comment afficher le texte complètement justifié dans le preview de QuickReport afin de l'imprimer justifié.