procedure TCustomLabelForm.CreateReport(var aReport: TQuickRep);
var
i:integer;
aQRLabel:TQRLabel;
aQRShape:TQRShape;
begin
aReport.Bands.HasDetail := true;
for i:= 0 to aReport.ControlCount-1 do
begin
if aReport.Controls.ClassName='TStaticText' then
begin
aQRLabel := TQRLabel.Create(aReport);
with aReport.Controls as TStaticText do
begin
aQRLabel.Parent := Parent;
aQRLabel.AutoSize := false;
aQRLabel.Left := Left ;
aQRLabel.Top := Top;
aQRLabel.Width := Width;
aQRLabel.Height := Height;
aQRLabel.Font := Font ;
aQRLabel.Caption := Caption;
aQRLabel.Alignment := Alignment;
aQRLabel.Color := Color;
end;
end;
if aReport.Controls.ClassName='TShape' then
begin
aQRShape := TQRShape.Create(aReport);
with aReport.Controls as TShape do
begin
aQRShape.Parent := Parent;
aQRShape.Left := Left ;
aQRShape.Top := Top;
aQRShape.Width := Width;
aQRShape.Height := Height;
end;
end;
// showmessage(aReport.Controls.Name+' , '+aReport.Controls.ClassName+inttostr(aReport.Controls.Tag));
end;