mudar propriedades de um Bitmap component do Rave via codigo
20/01/2006
0
Boa Tarde,
Gostaria de saber como mudo alguma propriedade do Bitmap component que esta no projeto do .RAV de dentro do Delphi via linha de código. Ex.: mudar a propriedade ´image´
Gostaria de saber como mudo alguma propriedade do Bitmap component que esta no projeto do .RAV de dentro do Delphi via linha de código. Ex.: mudar a propriedade ´image´
Carlos_tedex
Curtir tópico
+ 0
Responder
Posts
21/01/2006
Carlos_tedex
declarar na uses: RVCsStd, RvProj, Rvclass
Ex.:
procedure TFrmRelLaboratorio.FormCreate(Sender: TObject);
Var
Pagina :TRavePage;
Logo :TRaveBitmap;
begin
RvProject1.SetProjectFile(ExtractFilePath(Application.ExeName) + ´Rel_Laboratorio´);
RvProject1.Open;
Pagina := RvProject1.ProjMan.FindRaveComponent(´REPORT1.PAGE1´,nil) as TRavePage;
Logo := RvProject1.ProjMan.FindRaveComponent(´Bitmap1´,Pagina) as TRaveBitmap;
Logo.Image.LoadFromFile(ExtractFilePath(Application.ExeName) + ´..\Imagens\LogoCli.BMP´);
RvProject1.Execute;
RvProject1.Close;
Ex.:
procedure TFrmRelLaboratorio.FormCreate(Sender: TObject);
Var
Pagina :TRavePage;
Logo :TRaveBitmap;
begin
RvProject1.SetProjectFile(ExtractFilePath(Application.ExeName) + ´Rel_Laboratorio´);
RvProject1.Open;
Pagina := RvProject1.ProjMan.FindRaveComponent(´REPORT1.PAGE1´,nil) as TRavePage;
Logo := RvProject1.ProjMan.FindRaveComponent(´Bitmap1´,Pagina) as TRaveBitmap;
Logo.Image.LoadFromFile(ExtractFilePath(Application.ExeName) + ´..\Imagens\LogoCli.BMP´);
RvProject1.Execute;
RvProject1.Close;
Responder
Clique aqui para fazer login e interagir na Comunidade :)