Texto Justificado, Como?

[demetriusgs]

Como escrever um texto justificado como no word?

Pode ser em qualquer componente: label, memo,richedit.....

obrigado.

[Churc]

altere a opção Alignment no object inspector....

ou via codigo

tipos do TAlignment:

taLeftJustify = esquerda

taRightJustify = direita

taCenter = centro

Memo1.Alignment := tipo do TAlignment;

seria isso?

[Guest Guest]

O que o amigo quer se for justificar um memo ate hoje não achei nenhum componente que faça isso, pelo menos free. Tem uma funçao que testei aqui no meu sistema, justifica, mais infelizmente não como deveria justificar igualzinho a do word

function Justifica(mCad:string;mMAx:integer):string;

var

mPos,mPont,mTam,mNr,mCont:integer;

mStr:string;

begin

mTam:=Length(mCad);

if mTam>=mMax then

Result:=copy(mCad,1,mMax)

else

mStr:='';

mCont:=0;

mPont:=1;

mNr:=mMax-mTam;

while mCont<mNr do

begin

mPos:=pos(mStr,copy(mCad,mPont,100));

if mPos=0 then

begin

mStr:=mStr+' ';

mPont:=1;

continue;

end

else

begin

mCont:=mCont+1;

Insert(' ',mCad,mPos+mPont);

mPont:=mPont+mPos+length(mStr);

end;

Result:=mCad;

end;

end;

falou

T+

[demetriusgs]

O que o amigo quer se for justificar um memo ate hoje não achei nenhum componente que faça isso, pelo menos free. Tem uma funçao que testei aqui no meu sistema, justifica, mais infelizmente não como deveria justificar igualzinho a do word

function Justifica(mCad:string;mMAx:integer):string;

var

mPos,mPont,mTam,mNr,mCont:integer;

mStr:string;

begin

mTam:=Length(mCad);

if mTam>=mMax then

Result:=copy(mCad,1,mMax)

else

mStr:='';

mCont:=0;

mPont:=1;

mNr:=mMax-mTam;

while mCont<mNr do

begin

mPos:=pos(mStr,copy(mCad,mPont,100));

if mPos=0 then

begin

mStr:=mStr+' ';

mPont:=1;

continue;

end

else

begin

mCont:=mCont+1;

Insert(' ',mCad,mPos+mPont);

mPont:=mPont+mPos+length(mStr);

end;

Result:=mCad;

end;

end;

falou

T+

Desculpe o incomodo mas é que sou iniciante.

E depois como eu faria para usar a função justifica?

[adriano_servitec]

E depois como eu faria para usar a função justifica?

Ola amigo essa funçao é horrivel porque ele deixa o texto do memo todinho justificado ai sobra espaços enormes entre as palavras, Exemplo: sou programador Delphi

Entendeu, mais se quiser testar use um bitbtn e inclua esse codigo

Justifica(mmemo1.LINES, memo1.font, memo1.width);

[adriano_servitec]

Opa desculpe fiu mostrar um exemplo de espaço entre caracteres digo palavras mais não aparece, mais mesmo assim se quiser testar tenta ai amigo.

Qualquer duvida tamos ai

falou!

T+

[demetriusgs]

Desculpe amigo mas dá uma mensagem de erro de incompatibilidade de string para tstring, criei uma variavel integer e quando o programa roda e o botao é clicado trava o programa.

[bastard2003]

Tenta essa:

procedure 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 Form1.RichEdit1.SelLength = 0 then
    begin
    cp.cpMin := 0;
    cp.cpMax := length(Form1.RichEdit1.Text);
    SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
    end;
L := SendMessageA(Form1.RichEdit1.Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
    if L = 1 then
    begin
    SendMessageA(Form1.RichEdit1.Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
    SendMessage(Form1.RichEdit1.Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
    x.dwMask := PFM_ALIGNMENT;
    x.wAlignment := PFA_JUSTIFY;
    SendMessage(Form1.RichEdit1.Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
    end;
cp.cpMin := 0;
cp.cpMax := 0;
SendMessage(Form1.RichEdit1.Handle,EM_EXSETSEL,mZERO,lparam(@cp));
Form1.RichEdit1.WordWrap := true;
end;

ai é so chamar assim:

Justify;

Abraços!

[Guest Albervan]

Bastard2003...

Estou tentando usar essa função no delphi 7 mas, não esta reconhecendo os tipos TParaFormat e CharRange.

Está faltando alguma biblioteca ou algo assim?

Se puder responde eu agradeço.

[Progr'amador]

Olá,

É só declarar RichEdit no uses:

Abs. Progr'amador.

B)

[Guest Joabe]

Show de bola essa rotina.

Parabéns!!!