Fórum TextOut #287224
06/07/2005
0
valeu pessoa espero q me ajudem
Guilherme
Curtir tópico
+ 0Posts
07/07/2005
Guilherme
calera ninguen usa printer.canvas.textout aki ????????
Gostei + 0
08/07/2005
Guilherme
Gostei + 0
09/07/2005
Beppe
Gostei + 0
09/07/2005
Guilherme
Gostei + 0
09/07/2005
Beppe
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
11/07/2005
Guilherme
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
12/07/2005
Beppe
Gostei + 0
12/07/2005
Guilherme
nao tem como usar a arial ???????
me add la no seu msn !!!
Gostei + 0
12/07/2005
Beppe
Vá em Tools -> Editor Options no Delphi, tem uma aba que lista fontes mono-espaçadas para se usar no editor.
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
Clique aqui para fazer login e interagir na Comunidade :)