wania oliveira

Estou fazendo a chamada as duas procedure no evento AfterOpen do Client Dataset que está sendo usado para um relatório no Rave. No caso a procudure JustifyRichEdit funcionou com sucesso. Já a procedure LineSpaceRichEdit não acontece nada. Esta variável metexto é uma varável do tipo TRichedit. metexto := TRichedit.Create(nil); //aqui eu monto o texto que será exibido na metexto metexto.Lines.Add('A ' + Trim(FieldByName('NM_RzaSclUndOpr').AsString) + ' confere o presente ' + Trim(FieldByName('NM_TrmGlsTpoDcmCnc').AsString) + ' ' + Trim(Maiuscula(FieldByName('NM_TrmOrg').AsString)) + ' a '+ Trim(Maiuscula(FieldByName('NM_CmtPsaFsc').AsString)) + ', nascido(a) em ' + Trim(FieldByName('DT_NscPsaFsc').AsString)+ ', nacionalidade ' + Trim(FieldByName('DC_NcnPsaFsc').AsString) + ', natural de '+ Trim(FieldByName('NM_LclNtl').AsString) + ', portador(a) da Carteira de Identidade nº '+ Trim(FieldByName('NR_IdnPsaFsc').AsString) + ', expedida pelo(a) ' + Trim(FieldByName('DC_OroExoIdnPsaFsc').AsString) + ', em ' + Trim(FieldByName('DT_EmsDcmPsaFsc').AsString) + ', considerando a conclusão d' + Trim(FieldByName('NM_PrxTtcAcoEdc').AsString) + ' '+ Trim(FieldByName('NM_TpoAcoEdc').AsString) + ' de '+ Trim(FieldByName('NM_TrmOrg').AsString) + ', no período de '+ FieldByName('DT_IncDiaLtvTrmOrg').AsString +' a ' + FieldByName('DT_TroDiaLtvTrmOrg').AsString + '.'); JustifyRichEdit(metexto, True); LineSpaceRichEdit(metexto, 1, True);

Estou tentando usar as duas procedures apresentadas acima, e a segunda procedure que trata a questão do espaçamento ( 0=simples; 1=1,5; 2=duplo) , passando qualquer um dos valores citados não acontece nada. Preciso que meu texto tenha espaçamento de 1,5 entre linhas. Alguém pode me ajudar? Estou usando: versão do Delphi : Delphi 7 Sistema Operacional : windows xp