Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   RaveReport Y Bitmap (https://www.clubdelphi.com/foros/showthread.php?t=21348)

Rabata 14-05-2005 00:28:25

RaveReport Y Bitmap
 
Tengo una serie de informes en ravereport 5.0 y delphi7 y etoy intentando cambiar la imagen del componente bitmap del ravereport en tiempo de ejecuccion.

POr ahora lo que he conseguido por lo menos es que no me falle pero la mala noticia es que no me visualiza nada osea el bitmap vacio.

Lo que hago es lo siguiente:

Código PHP:


  With w_Informe
.Rv_Clasifica.Projman Do
  
Begin

    w_Informe
.Rv_Clasifica.Open;

    
MiPagina:=FindRaveComponent('Entrenamiento_1.Page1',nil) as TRavePage;
    
MiBitmap1:=FindRaveComponent('BitMap1',MiPagina) as TRaveBitmap;

    
ls_Imagen:='';
    If 
OpenDialog1.Execute Then
      ls_Imagen
:=OpenDialog1.FileName;

    If 
ls_Imagen <> '' Then
      MiBitMap1
.Image.LoadFromFile(ls_Imagen);

  
End


Muchas Gracias por Vuestra Colaboración...

Loviedo 14-05-2005 02:12:01

Esto a mí me funciona:
Código Delphi [-]
uses  RVClass, RVProj, RVCsStd;
procedure TFDM.Verbitmap;
var
  MiBitmap1: TRaveBitmap;
  MyPage: TRavePage;
begin
  RvProject1.open;
  With RvProject1.ProjMan do
    begin
      MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
      MiBitmap1:=FindRaveComponent('BitMap1',MyPage) as TRaveBitmap;
      MiBitMap1.Image.LoadFromFile('d:\epes\images\aviso2.bmp');
    end;
  RvProject1.SelectReport('Report1',true);
  RvProject1.Execute;
  RvProject1.close;
end;
Saludos.


La franja horaria es GMT +2. Ahora son las 10:36:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi