como criar um shape em tempo de execução
19/02/2003
0
Alguém sabe como criar um shape em modo de execução no quick report, dinamicamente etc.
:cry: :cry: :cry: :cry: :cry:
:cry: :cry: :cry: :cry: :cry:
Celi
Curtir tópico
+ 0
Responder
Posts
19/02/2003
Carnette
Por sus insistencia voce merece...no evento BEFOREPRINT do quireport voce coloca o seguinte
procedure TQrp_Form2.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
qShape : TQrShape;
begin
qShape := TQrShape.Create(self);
qShape.Parent := QRBand1;
qShape.Top := 2;
qShape.Left := 2;
qShape.Width := 20;
qShape.Height :=20;
end;
procedure TQrp_Form2.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
qShape : TQrShape;
begin
qShape := TQrShape.Create(self);
qShape.Parent := QRBand1;
qShape.Top := 2;
qShape.Left := 2;
qShape.Width := 20;
qShape.Height :=20;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)