Fórum Criar TQrShape em tempo de execução #374481

01/09/2009

0

Ola pessoal,
Estou precisando criar um QrShape em tempo de execução para um relatorio.
Tem que ser em tempo de execução pois não sei a quantidade exata que o formulario irá precisar.

ja tentei fazer desse jeito aqui mais não deu certo.

(no evento beforeprint da banda)

Var
Shape : TQRShape;

Begin
Shape := TQRShape.Create(FRelatorio);
With Shape do
begin
Parent := Banda_Detalhes;
Enabled := True;
Brush.Color := clLime;
Height := 20;
Width :=20;
Left := 10;
Pen.Width := 2;
end;
end;

Me desculpe se ja existir algum topico sobre isso, mas sou novo no forum e não consegui achar nada sobre isso na pesquisa.
desde ja agradeço =D


Toshiro

Toshiro

Responder

Posts

30/01/2015

André Campos

Amigo,

1º Crie o relatório, somente criar, não de Preview.
2º Crie os componentes que deseja. Aconselho criar uma procedure para isto, será necessario retirar do seu BeforePrint.
3º Após ter criado todos os componentes dê Preview no relatório.

Desta maneira o os componentes shape vão ser renderizados perfeitamente.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar