unit reporte_runtime;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, ExtCtrls,QRCTRLS, db;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
lastleft, i : integer;
c : TQRlabel;
begin
lastleft:= 10;
for i:= 0 to 10 do
begin
c := tQRlabel.Create(QRband1);
c.Top := 10;
c.Caption := 'label' + inttostr(i);
c.Width := 50;
c.Left := lastleft+ 5+ FontWidth(c.Font,c.Caption); lastleft := c.Left;
c.parent := QRBand1;
c.Enabled := true; end;
quickrep1.Preview;
end;
end.