solução para justificação de texto

17/12/2003

1

FUNÇÃO :
procedure Tform1.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 RichEdit1.SelLength = 0 then
begin
CP.cpMin := 0;
CP.cpMax := Length(RichEdit1.Text);
SendMessage(Handle,EM_EXSETSEL,mZERO,LPARAM(@CP));
end;

L := SendMessageA(RichEdit1.Handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);

if L = 1 then
begin
SendMessageA(RichEdit1.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
SendMessage(RichEdit1.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@X));
X.dwMask := PFM_ALIGNMENT;
X.wAlignment := PFA_JUSTIFY;
SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, mZERO, lparam(@X));
end;

CP.cpMin := 0;
CP.cpMax := 0;
SendMessage(RichEdit1.Handle, EM_EXSETSEL, mZERO, lparam(@CP));
RichEdit1.WordWrap := True;
end;


Temos uma regra que pede para os usário não colocarem os títulos

do tópicos em maiúsculas. Editei sua msg e quero pedir que nas

próximas escreva em minúsculas por favor.
zoom


Responder

Posts

17/12/2003

Fabio Colli

foi somente para chamar a atenção, pois procurei muito sobre isto e também perguntei muito no forum, mas nas próximas vezes vou lembrar disso.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira