F�rum Texto em duas linhas em Qrlabel #391094

23/11/2010

Boa noite, Gostaria da ajuda de voc�s para resolver este problema de justificar um texto no Delphi. Estou utilizando o delphi7 onde j� fiz um sistema para uma empresa. O Problema est� em como fazer que o texto impresso, estou utilizando o Qrprinter, fique em duas linhas, a empresa j� tem um modelo de recibo pr�-impresso, ela j� tem milhares de recibo impresso. Aqui que mora o problema: O recibo traz o cabe�alho, etc. O problema vem a seguir: Recebi do Sr(a). XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX A import�ncia de R$ (0.000,00) XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Referente aos servi�os prestados de XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Pinheiro, 23 de novembro de 2010. _________________________________________________ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX A quest�o � como fa�o para o recibo chegar nesse formato, ou seja, ter a quebra de linha referente a import�ncia e a quebra de linha em rela��o ao tipo de servi�o na ultimas 5 linhas. A grade�o muito a quem puder mim ajudar, desde de j�.

Joaci Queiroz

Curtir t�pico

+ 0

Responder

Posts

24/11/2010

Leonardo Xavier

Verifique nas propriedades deste componente o nome Worwrap e verifique se a mesma esta como true (tem que estar como true)

Responder

Gostei + 0

24/11/2010

Joaci Queiroz

Desculpe pessoal, � um QRmemo, e acho que n�o mim expressei bem, n�o que n�o fique em duas linhas � que n�o estou conseguindo justificar o texto. tipo em um padr�o word.

Responder

Gostei + 0

24/11/2010

Leonardo Xavier

Desculpe pessoal, � um QRmemo, e acho que n�o mim expressei bem, n�o que n�o fique em duas linhas � que n�o estou conseguindo justificar o texto. tipo em um padr�o word.

Tente o seguinte:

Justificar texto
Declare a Unit RichEdit no USES.

Use a procedure assim:

Justificar(QrMemo1);

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

qualquer duvida posta ai. Abra�os

Responder

Gostei + 0