Fórum QRLabel na vertical no QuickReport #278594
23/04/2005
0
OBS: Utilizo D7 e QuickReport 3.
Crashovewrite
Curtir tópico
+ 0Posts
23/04/2005
Gandalf.nho
Gostei + 0
25/04/2005
Crashovewrite
Gostei + 0
25/04/2005
Crashovewrite
OBS: Utilizo D7 com DBExpress e Quick Report 3
Gostei + 0
25/04/2005
Gandalf.nho
Ele não tem DataSource e sim Dataset
Gostei + 0
21/07/2005
Leonardo Age
CrashOvewrite vc consegui usar o componente? Como solucionou a questão do Property DataSource does not exist?
Abraços.
Gostei + 0
22/07/2005
Adriano Santos
procedure TForm1.Button1Click(Sender: TObject);
procedure ImprimirNaVertical(AQuick: TQuickRep; ABanda: TQrBand;
ATexto: string);
var
lf: TLogFont;
tf: TFont;
xQrImage: TQrImage;
begin
xQrImage := TQrImage.Create(AQuick);
xQrImage.Parent := ABanda;
xQrImage.Align := alLeft;
xQrImage.Width := 15;
xQrImage.BringToFront;
with xQrImage.Canvas do
begin
Font.Name := ´Arial´;
Font.Size := 12;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, Sizeof(lf), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(0, xQrImage.Height div 2, ATexto);
end;
end;
begin
ImprimirNaVertical(QuickRep1,QRBand1,´Ola´);
end;Cara criei esta função a um tempo atrás. É uma solução, mas depende do que precisa. Ela imprime um texto no canvas de um TQrImage na vertical.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)