Problema com texto justificado no RBuilder

Delphi

12/01/2005

Alguem sabe como justificar partes de um texto?

Estou utilizando o um ppRichText do ppReport, mas pelo jeito a opcao nao esta habilitada.

Sera que existe um plugin para RBuilder que resolva este problema?

Falow galera!

[/b]


Marcelo.almeida

Marcelo.almeida

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

12/01/2005

verifique se essa função pode lhe ser útil.

303 - Justificar Texto 
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; 

EX.: 
Memo1.lines[i]:=justifica(memo1.lines[i],60 {Nº de caracteres possiveis da linha});



GOSTEI 0
POSTAR