QRLabel na vertical no QuickReport

Delphi

23/04/2005

Dae galera gostaria de saber se tem como colocar um [b:345c41beac]QRLabel[/b:345c41beac] e um [b:345c41beac]QRDBLabel[/b:345c41beac] na vertical.... desde já agradeço galera....






OBS: Utilizo D7 e QuickReport 3.


Crashovewrite

Crashovewrite

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

23/04/2005

Procure pelo componente QRAngledLabel que é freeware e tb possui uma versão data-aware


GOSTEI 0
Crashovewrite

Crashovewrite

23/04/2005

gandalf.nho kra muito obrigado mesmo achei o componente agora irei testar vlw mano um abraço ae.... brigadão...


GOSTEI 0
Crashovewrite

Crashovewrite

23/04/2005

Kra o componente QRAngledDBText não tem como selecionar um campo para exibir no componente. Ele diz que na existe um DataSource....






OBS: Utilizo D7 com DBExpress e Quick Report 3


GOSTEI 0
Gandalf.nho

Gandalf.nho

23/04/2005

Kra o componente QRAngledDBText não tem como selecionar um campo para exibir no componente. Ele diz que na existe um DataSource.... OBS: Utilizo D7 com DBExpress e Quick Report 3


Ele não tem DataSource e sim Dataset


GOSTEI 0
Leonardo Age

Leonardo Age

23/04/2005

Fala galera...

CrashOvewrite vc consegui usar o componente? Como solucionou a questão do Property DataSource does not exist?

Abraços.


GOSTEI 0
Adriano Santos

Adriano Santos

23/04/2005

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
POSTAR