Justificar em DBRichEdit
Aí, galera!!!
Preciso de algum código que justifique textos em um DBRichEdit.
Agradeço qualquer informação.
Preciso de algum código que justifique textos em um DBRichEdit.
Agradeço qualquer informação.
Anonymous
Curtidas 0
Respostas
Carnette
15/02/2003
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.:
RichEdit1.lines[i]:=justifica(RichEdit1.lines[i],60 {Nº de caracteres possiveis da linha});
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.:
RichEdit1.lines[i]:=justifica(RichEdit1.lines[i],60 {Nº de caracteres possiveis da linha});
GOSTEI 0
Janderson
15/02/2003
Olá amigo! Eu possuo um componente descendente do TDBRichEdit chamado TDBJustifyRichedit que justifica o texto automaticamente. Se vc quiser uma cópia para vc.
GOSTEI 0