Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-04-2007
[QuarkBcn] QuarkBcn is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Barcelona
Posts: 92
Poder: 18
QuarkBcn Va por buen camino
QReport : Perdida de "posicion" en creacion de QRLabels dinaminas !!!

Hola a todos !!!

Tengo un problema "extraño".

Tengo una Qreport, sobre el cual, dentro de un DetailBand creo, de forma dinamica una serie de QRlabels. Las cuales estan definidas como
LblVal : array of TQrLabel

Se crean en una funcion todas las etiquetas, y en principio todo OK. (quedan bien posicionadas)

El problema es cuando en el OnNeedData hago mencion a la etiqueta (aqui es de donde obtengo los datos para el caption de las etiquetas)

with LblVal[i] do begin
caption := intToStr(i); //solo es para este ejemplo
end;

El valor Top y Left de la etiqueta, son los de la última etiqueta creada en la función de creación. Deberian ser los valores de la etiqueta posicionada por "i" dentro del array de etiquetas.

Espero haberme explicado, con claridad.

No entiendo lo que pasa !!!

Cualquir ayuda será bienvenida.

Gracias de antemano !!!
Responder Con Cita
  #2  
Antiguo 17-04-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
Cita:
Empezado por QuarkBcn
Espero haberme explicado, con claridad.
para nada. , creo que te falta un par de parrafos por ahi

por el título podemos suponer que el problema es que el top y el left se mueven, eso se puede deber a que pones en el constructor create como owner de tus qrLabel a el mismo quickreport, cuando deberías poner como owner el band que los contiene, si eso no resulta intenta con la propiedad parent.
__________________
self.free;

Última edición por droguerman fecha: 17-04-2007 a las 19:05:27.
Responder Con Cita
  #3  
Antiguo 17-04-2007
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 19
luisgutierrezb Va por buen camino
tal vez si nos pusieras mas codigo de cuando creas las etiquetas y cuando les asignas valores
Responder Con Cita
  #4  
Antiguo 17-04-2007
[QuarkBcn] QuarkBcn is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Barcelona
Posts: 92
Poder: 18
QuarkBcn Va por buen camino
Veamos intento explicar lo que hago con mas detalle

LblVal[i]:= TQRLabel.Create(DetailBand1);
with LblVal[i] do begin
Parent := DetailBand1;
Autosize := TRUE;

//Fijo la posiciones para el ejemplo. En el caso real se calculan
Top := 20;
Left := 30;

NOTA: Top y Left se calculan y colocan correctamente en esta funcion.
cada LBLval[i] tiene sus propias posiciones.

//Este caption lo coloco para ver si las etiquetas se colocan correctamente y efectivamente lo hacen.
caption := '('+intToStr(i) + IntToStr(x)+')';

en el OnNeedData del Qreport llamo a otra funcion que contiene la info a colocar en el caption, y es aqui, donde el top y el left no se corresponden con la LBLval[i] que estoy asignando, sino con los valores de la ultima etiqueta creada en la funcion anterior.

Como ejemplo deciros que si la ultima etiqueta creada, supongamos que es
Lblval[5].top := 20
Lblval[5].left := 120

al usar la etiqueta; en el OnNeedData del report, por ejemplo la primera etiqueta del array:

Lblval[0].top vale 20
LblVal[0].left vale 120 (Es decir los valores de la ultima etiqueta creada)

Cuando por ejemplo en su creación valian
Lblval[0].top = 20
LblVal[0].left = 10


Bueno ... espero se me entienda algo mejor

Gracias de nuevo por vtra ayuda !!!
Responder Con Cita
  #5  
Antiguo 18-04-2007
Avatar de mightydragonlor
[mightydragonlor] mightydragonlor is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Medellín-Colombia
Posts: 587
Poder: 18
mightydragonlor Va por buen camino
Te fal ta el Ownwer y el Var de [i], bueno eso creo.
Responder Con Cita
  #6  
Antiguo 18-04-2007
[QuarkBcn] QuarkBcn is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Barcelona
Posts: 92
Poder: 18
QuarkBcn Va por buen camino
No, no es ese el problema. Si te fijas, falta mucho codigo, ya que solo he puesto un resumen para que se entienda y no colocar todo el codigo.

Gracias de todas formas.

Sigo a la espera de alguna idea.

Saludos !!!
Responder Con Cita
  #7  
Antiguo 18-04-2007
[QuarkBcn] QuarkBcn is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Barcelona
Posts: 92
Poder: 18
QuarkBcn Va por buen camino
Post

Por fin !!!

Lo que suele pasar muchas veces ... como alguien dice por aqui ... el que persevera ... consigue ... o algo similar ... es decir que al final uno mismo encuentra la solución.

De todas formas muchas gracias a todos, por vuestra ayuda.

Los árboles no me dejan ver el bosque !!!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Comentario "aplastante" contra los que atacan la "piratería" Casimiro Notevi La Taberna 12 07-03-2010 14:03:02
Necesito llamar a métodos de clases "hija" desde su clase "padre" Flecha OOP 17 20-04-2007 00:03:53
porque no me reconoce los caracteres "*" ni "%" cuando filtro mrmago Conexión con bases de datos 10 27-01-2006 04:21:16
Me da un "access violation" al intentar imprimir un QReport Nbull Impresión 2 23-12-2004 13:24:30
QReport. Error "Privileged instruction" adebonis Impresión 0 11-12-2004 07:34:42


La franja horaria es GMT +2. Ahora son las 03:40:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi