TextOut

Delphi

06/07/2005

Pessoal gostaria de saber como que faço para pular uma linha quando uso impressao via textout , o q acontece é q dependeno da resoluçao da impressora o espaço fica ou mto grande ou mto pequeno !!!!!


valeu pessoa espero q me ajudem


Guilherme

Guilherme

Curtidas 0

Respostas

Guilherme

Guilherme

06/07/2005

sobe ...


calera ninguen usa printer.canvas.textout aki ????????


GOSTEI 0
Guilherme

Guilherme

06/07/2005

sobe


GOSTEI 0
Beppe

Beppe

06/07/2005

Para saber o incremento que precisa dar, use Canvas.TextHeight(´Qq|´);


GOSTEI 0
Guilherme

Guilherme

06/07/2005

vc nao poderia dar um exemplo ??????


GOSTEI 0
Beppe

Beppe

06/07/2005

vc nao poderia dar um exemplo ??????

Vc tem uma variável indicando a posição Y, não?

procedure ...
var
  Y: Integer;

  procedure Imprime(const S: String)
  begin
    Canvas.DrawText(...);
    Inc(Y, Canvas.TextHeight(´Qq|´));
  end;

begin
  Imprime(UmaLinha);
  Inc(Y, Canvas.TextHeight(´Qq|´));
  Imprime(OutraLinha);
end;



GOSTEI 0
Guilherme

Guilherme

06/07/2005

deu certo !!!
agora como q faço um incremento para preencher os espaços em branco


é q tipo eu ponho

variavel1:=nome1 + stringofchar(´ ´, 35 - length(nome1))+´ ´+
nome2+stringofchar(´ ´,35 - length(nome2)));

so q isso nao da o espaço exato do tamanho da fonte !!!!!!


GOSTEI 0
Beppe

Beppe

06/07/2005

Use uma fonte monoespaçada, como Courier New.


GOSTEI 0
Guilherme

Guilherme

06/07/2005

quais fontes + posso usar ???????

nao tem como usar a arial ???????




me add la no seu msn !!!


GOSTEI 0
Beppe

Beppe

06/07/2005

quais fontes + posso usar ???????

Vá em Tools -> Editor Options no Delphi, tem uma aba que lista fontes mono-espaçadas para se usar no editor.

nao tem como usar a arial ???????

Pode, mas ela não é mono-espaçada, vc precisará de mais código. Seria incrementar a posição X um determinado número de pxels.


GOSTEI 0
POSTAR