tango01
11-06-2003, 22:01:17
hola gente.
tengo almacenado en una db la posicion de los tqrdbtext. para lo cual intento establecer su posicion en runtime pero no consigo resultados.
uso el evento beforeprint del qreport.
aca va el codigo.:
try
datos.q_x.Close;
datos.q_x.SQL.Text := 'select * from posiciones where banco = ' + QuotedStr( datos.q_qr.fieldbyname('banco').AsString);
datos.q_x.Open;
while not datos.q_x.Eof do
begin
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Left := datos.q_x.fieldbyname('left').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Top := datos.q_x.fieldbyname('top').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Parent := self;
datos.q_x.Next;
end;
except
end;
tengo almacenado en una db la posicion de los tqrdbtext. para lo cual intento establecer su posicion en runtime pero no consigo resultados.
uso el evento beforeprint del qreport.
aca va el codigo.:
try
datos.q_x.Close;
datos.q_x.SQL.Text := 'select * from posiciones where banco = ' + QuotedStr( datos.q_qr.fieldbyname('banco').AsString);
datos.q_x.Open;
while not datos.q_x.Eof do
begin
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Left := datos.q_x.fieldbyname('left').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Top := datos.q_x.fieldbyname('top').AsInteger;
tqrdbtext(FindComponent(datos.q_x.fieldbyname('label').AsString)).Parent := self;
datos.q_x.Next;
end;
except
end;