Colegas, existirá algún componente que permita mostrar texto e imágenes dentro de un panel deslizante horizontal.
Les dejo la inquietud, de lo contrario deberé programarlo.
Saludos
Escrito 13 abril 2017 - 11:13
Colegas, existirá algún componente que permita mostrar texto e imágenes dentro de un panel deslizante horizontal.
Les dejo la inquietud, de lo contrario deberé programarlo.
Saludos
Escrito 13 abril 2017 - 11:23
Colegas, existirá algún componente que permita mostrar texto e imágenes dentro de un panel deslizante horizontal.
Les dejo la inquietud, de lo contrario deberé programarlo.
Saludos
De que existe un componente que permite el efecto, existe.
Que sea en un panel no estoy seguro.
Recuerdo de hace unos años haber visto tanto en Torry.net como en CD propuestas.
Una rápida búsqueda de "Marquee text Delphi" me arroja algunos enlaces que pueden serte de utilidad y orientarte:
TMarquee (GitHub)
Scrolling text (StackOverflow)
Saludos,
Escrito 13 abril 2017 - 01:52
Creo que sería más fácil hacerlo que encontrarlo.Con un TTimer, vas cambiando el texto de un TPanel de manera que la primera letra se ubique al final de la cadena y así consecutivamente hasta hacerlo cíclico. Luego mostrar una porción del texto comenzando con el principio y creo que sería todo. Claro, ajustar el texto a izquierda, acomodar los márgenes dentro del panel, etc.
Saludos
Escrito 13 abril 2017 - 05:32
Escrito 13 abril 2017 - 07:06
Primero agradecer sus comentarios y recomendaciones, ahora que llego revisaré los links, les comento que estuve buscando y no encontré lo que quiero, se me olvido comentar que trabajo con Delphi DX-10.1 Berlin, encontré un código bastante antiguo el cual hace desplazamiento horizontal muy brusco, lo que busco es un scrolling smooth y con fuentes configurables. En fin veré que pasa.
Saludos
Escrito 13 abril 2017 - 07:43
Primero agradecer sus comentarios y recomendaciones, ahora que llego revisaré los links, les comento que estuve buscando y no encontré lo que quiero, se me olvido comentar que trabajo con Delphi DX-10.1 Berlin, encontré un código bastante antiguo el cual hace desplazamiento horizontal muy brusco, lo que busco es un scrolling smooth y con fuentes configurables. En fin veré que pasa.
Saludos
Convengamos que nos nos aportaste demasiados detalles de todo lo que debe cumplir el componente que buscas, sobre todo si lo que andas pensando es tan peculiar como tus necesidades. Lo bello de Delphi es que si necesitas algo bien puntual y no hay algo que se calse bien, ¡puedes crearlo!
Y no necesariamente hace falta que diseñes el componente. Es relativamente sencillo conseguir el efecto marquesina. Como ha dicho cram, pones un Timer a andar y que cada x milisegundos muestre el texto de forma cíclica.
Conseguir el efecto cíclico es tan simple como obtener la primera letra y ponerla al final. Eso llevado en el Timer y ya tienes una marquesina rudimentaria.
Ahora si necesitas pulirla más, nos hace falta más detalles. En lo que necesites ayuda aquí estamos.
Saludos,
Escrito 16 abril 2017 - 09:27
Se agradece colegas, al final opte por mi propio código que anda muy bien, solo que el label se debe ajustar manualmente al largo del texto dependiendo de su Font.
Algo raro ocurre cuando lo ejecuto en Windows toma el Font elegido, pero al compilar para Android cambia el font por uno estandard, veré como solucionar esto.
procedure TForm1.TimerMensajeTimer(Sender: TObject); Var labelW, labelX : Integer; begin LabelMensaje.Position.X:=LabelMensaje.Position.X-4; labelX:=Trunc(LabelMensaje.Position.X); labelW:=Trunc(LabelMensaje.Width); if labelX+labelW <= 0 then TimerMensaje.Enabled:=False; end;
En el evento onShow del form de incluir