Justifier un texte dans un rich edit

Question

J'ai un programme qui utilise un rich edit et je dois justifier le texte selon différentes options. Je suis capable de justifier à gauche, à droit et au centre, mais est-il possible de justifier un texte des 2 côtés (le texte se justifie selon la marge de gauche et selon la marge de droite)?

Il semble que le type TAlignement dans delphi (j'utilise delphi 5) ne soit pas présent.

DeZNiUS · Answer

Ha, je vois un peu comme Word ?
Il me semble que sur les Torry Delphi Page il y a des composants permettant de faire ca et meme inserer des images...

-[!!!]- DeZNiUS -[!!!]-

3Rescator · Answer

FreeRescator
J'ai vu aussi ce composant, il s'appelle TJustifyRichEdit, voici le code de cette vcl :

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.

Attention ça ne justifie des deux cotés que ce que l'on charge dedans, bref c'est pas encore le Justify dont je rêvais...

fredelem · Answer

Voici une réponse possible:  

PROCEDURE Tmainform.Tbn_justifyclick(Sender: Tobject);

CONST 

//Wm_user:=400;

//Em_ePFsetsel= (Wm_user + 55);

Em_settypographyoptions= (Wm_user + 202);

Em_gettypographyoptions= (Wm_user + 203);

//To_advancedtypography= 1;

//Mzero= 0;

VAR 

Pf:Tparaformat;

L:Longint;

Begin 

IF Fupdating THEN EXIT;

WITH Mdi_child.Editor DO 

Begin 

Pf.Cbsize:= Sizeof(Pf);

L:= Sendmessage(Handle,Em_settypographyoptions,1,1);

IF L= 1 THEN 

Begin 

Sendmessagea(Handle, Em_gettypographyoptions, 0, 0);

Sendmessage(Handle, Em_getparaformat, 0, Lparam(@Pf));

Pf.Dwmask:= Pfm_alignment;

Pf.Walignment:= Pfa_justify;

Sendmessage(Handle, Em_setparaformat, 0, Lparam(@Pf));

End;

End;

///////////////////U_undo.Savetoundobuffer(Form3.Editor);

End;

                         Cordialement

                                           Fredelem

arckhenstone · Answer

bonjour, moi j'aimerai arriver à centrer le texte qui s'affiche DANS un edit, est ce possible si oui comment ?

Pour afficher mon edit j'utilise cette commande :

Nom.text:=(' ce que je veux écrire et centrer ')

Que devrais je rajouter pour que le texte à l'intérieur de ma parenthèse soit centré ?

Merci d'avance.

Justifier un texte dans un rich edit

4 réponses

Votre réponse

Discussions similaires