ingabraham
06-11-2012, 15:10:21
tengo el ste cod que carga todas imagenes de un logo aun qreport, el problema es que aveces no me las muestra y/o aveces no me la imprime.
no se por que?
procedure TReportes.FormCreate(Sender: TObject);
var x:integer;
begin
For x := 0 To ComponentCount - 1 Do
If Components[x] Is TQRImage Then
begin
TQRImage(Components[x]).Picture.LoadFromFile('C:\BDATOS\BDATOS_ALMACEN_SISMED\logo.jpg');v
end;
Refresh;
end;
no se por que?
procedure TReportes.FormCreate(Sender: TObject);
var x:integer;
begin
For x := 0 To ComponentCount - 1 Do
If Components[x] Is TQRImage Then
begin
TQRImage(Components[x]).Picture.LoadFromFile('C:\BDATOS\BDATOS_ALMACEN_SISMED\logo.jpg');v
end;
Refresh;
end;