mapc
31-08-2006, 14:43:47
Buenas, estoy trabajando con un proyecto de delphi6 con Borland Developer Studio que debo modificar, pero cuenta con errores, tales como que no encuentra TQRlabel (errores en negrita). Me falta importar algún componente?
Aqui adjunto el código por si me podeis echar una mano:
unit UQRPrintImg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TFQRPrintImg = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
Imagen: TQRImage;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRStringsBand1: TQRStringsBand;
QRMemo1: TQRMemo;
procedure QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
private
procedure EncuadrarImagen;
{ Private declarations }
public
{ Public declarations }
procedure Previo(Titulo, Descripcion: string;Img: TBitmap; MantenerTamano: Boolean);
procedure MostrarPrevio;
procedure Imprimir;
property
end;
muchas gracias
Aqui adjunto el código por si me podeis echar una mano:
unit UQRPrintImg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TFQRPrintImg = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
Imagen: TQRImage;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRStringsBand1: TQRStringsBand;
QRMemo1: TQRMemo;
procedure QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
private
procedure EncuadrarImagen;
{ Private declarations }
public
{ Public declarations }
procedure Previo(Titulo, Descripcion: string;Img: TBitmap; MantenerTamano: Boolean);
procedure MostrarPrevio;
procedure Imprimir;
property
end;
muchas gracias