quarta-feira, 25 de novembro de 2009

Carregando imagem para o rave (run-time).

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