terça-feira, 22 de setembro de 2009

Carregando imagem para um relatório rave

{... Criado por Ricardo de Oliveira Santos ...}
procedure CarregaImagemRave(NomeProjeto: TRvProject;
NomeRelatorio, NomeImagem, PathImagem: String);
var
MyPage : TRavePage;
MyPicture : TRaveBitmap;
begin
NomeProjeto.Open;
with NomeProjeto.ProjMan do
begin
MyPage := FindRaveComponent(NomeRelatorio,nil) as TRavePage;
MyPicture := FindRaveComponent(NomeImagem,MyPage) as TRaveBitmap;
MyPicture.Image.LoadFromFile(PathImagem);
end;
end;

Nenhum comentário:

Postar um comentário