Rave Report

[Arckyz]

Olá pessoal,

pois é preciso fazer um relatorio horizontal!?!

Nunca vi um, não sei nem se existe no delphi...

Para quem não intendeu o Relatorio horizontal..

Um relatorio vertical seria assim:

Nome | Idade

Andre | 18

Um relatorio horizontal seria assim:

A..........................n

n..........................o

d..........................m

r..........................e

e

_________________

..........................i

1........................d

8........................a

..........................d

..........................e

espero que tenho sido claro.

Então existe algum meio de criar relatorio desse modo no rave report? ou senao no quick report mesmo se não tiver outra solucao..

Obrigado falou

Editado Novembro 27, 2007 por Arckyz

[Jhonas]

talvez usando este codigo:

Uses
Windows,
Graphics;
procedure AngleTextOut(Canvas: TCanvas; const Text: String; x, y, angle:
Integer);
var
    LogFont : TLogFont;
    SaveFont : TFont;
begin
    SaveFont := TFont.Create;
    SaveFont.Assign(Canvas.Font);
    GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
    with LogFont do
        begin
            lfEscapement := angle *10;
            lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
            lfOutPrecision:=out_tt_precis;
            lfQuality:=proof_quality;
        end;
    Canvas.Font.Handle := CreateFontIndirect(LogFont);
    SetBkMode(Canvas.Handle, TRANSPARENT);
    Canvas.TextOut(x, y, Text);
    Canvas.Font.Assign(SaveFont);
    SaveFont.Free;
end;

--------------------------------------------------------------------------- dica de 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;

Ela imprime um texto no canvas de um TQrImage na vertical.

-------------------------------------------------------------------------------------

ou ainda usando componentes

http://www.guiadodelphi.com.br/ler.php?codigo=1073

http://www.guiadodelphi.com.br/compdelphi/QrlbLang.zip

http://sr6.xoom.com/_XMCM/valcirjr/qranglbl.zip

http://sr6.xoom.com/_XMCM/valcirjr/qrlblang.zip

http://www.qusoft.com/delphilegacy.html

-----------------------------------------------------------------------------------------

ou ainda de outra maneira

Se você colar esse texto no Form o label vai pular as linhas.

object Label3: TLabel

Left = 304

Top = 96

Width = 6

Height = 65

Caption = 'L'#13'a'#13'b'#13'e'#13'l'

end

--------------------------------------------------------------------------------------------------

Outra maneira ainda

no Caption do qrLabel escreva o texto com espaços entre as letras, exemplo

T e s t e

na propriedade WordWrap deixa true e na propriedade AutoSize coloque falso, agora diminua o tamanho do width do qrLabel para o tamanha que apareça apenas uma letra e agora aumente o tamanho do heigth ate aparecer a palavra inteira.

espero que ajude ... abraço