Urge. Cómo se pone un texto parpadeando en un listado???????

[fence]

Hola,

me acaban de meter el marrón del siglo :eek: . Tengo que hacer que un texto que saldrá en un listado salga de manera parpadeante, alguien sabe cómo se hace???

Gracias

[Mauricio Hidalgo]

Jaja, hay algunos genios que siguen pensando en DOS!!! o que uno está programando en lenguajes como clippery esas hierbas que tienen herramientas para acceso a bajo nivel.

Sin embargo puede ser que alguien se haya dado la lata de hacer esto.

Veamos que sale.

[melerogalan]

Vamos a ver:
A mi hace poco me enseñaron como poner estilos a los campos, mas alla de un simple color. Lo que pasa que no se si existe dentro de esos estilos, el efecto parpadeante, yo te lo explico como es y si kieres probar, lo pruebas. ;)


* Es la tabla que le pasas al alv debes de incluir la estructua zwm_869_layout

TYPES: BEGIN OF ty_output.

INCLUDE STRUCTURE zwm_869_layout.

TYPES: celltab TYPE lvc_t_styl.



TYPES: END OF ty_output.


* Variables necesarias para incluir el estilo necesario
DATA:

lw_celltab TYPE lvc_s_styl,



CLEAR lw_celltab.

* Asi se rellenaria la estructura
lw_celltab-fieldname = lc_field.

lw_celltab-style = lc_style.

APPEND lw_celltab TO w_output-celltab.


* Este es el numero del estilo, que debes de modificar hasta encontrar el
* deseado
DATA: lc_style TYPE lvc_style VALUE '0000003A' .


* Declaracion de las variables utilizadas anteriormente
DATA:

lw_celltab TYPE lvc_s_styl,

lc_field TYPE slis_fieldname VALUE 'STATUS'.


Nota: Esto no esta en el orden correcto, ya lo pones tu donde corresponda, adjunto pantallazo con algunos estilos, entre ellos no esta el que parpadea
:( .

[ppchico]

Manuel, me quito el sombrero :rolleyes:

A mi personalmente ahora mismo no preciso poner ningún texto parpadeante, pero me parece muy curioso saberlo.

Muchas gracias por la Información.

[melerogalan]

Manuel, me quito el sombrero :rolleyes:

A mi personalmente ahora mismo no preciso poner ningún texto parpadeante, pero me parece muy curioso saberlo.

Muchas gracias por la Información.

Gracias :D pero esto yo lo utilize para poner en negrita un texto, realmente no se si existe el estilo parpadeante :( , yo creo que si, pero como no lo he visto no lo puedo afirmar.

Saludos.

[fence]

Ok, muchas gracias. Intentaré a ver si funciona, si al final resulta os lo postearé hasta en colores!!! jejeje

Muchas gracias por la ayuda y repito, si alguien lo sabe fijo se agradecerá su comentario.

[ibecerra]

Hola melerogalan, un favor podrias decir cual son los campos que contiene la estructura zwm_869_layout. para poder crearla y probar el codigo enviado.
muchas gracias

[nenuke]

Hola,

lamento deciros que escribir texto con parpadeo solo era posible hasta R2, en R3 dejó de ser posible.

Un saludo.

[cekar]

Gracias :D pero esto yo lo utilize para poner en negrita un texto, realmente no se si existe el estilo parpadeante :( , yo creo que si, pero como no lo he visto no lo puedo afirmar.

Saludos.

Estimado, bueno tu aporte, pero no tengo la estructura zwm_869_layout,
es posible que me la publiques o me la envies por correo ( cekarc@gmail.com ).

Saludos!

[Tu amo]

Aqui esta su texto parpadeante, jajaja


DATA: timer TYPE REF TO cl_gui_timer,
lv_hola TYPE char05 VALUE 'Hola',
lv_mundo TYPE char05 VALUE 'mundo'.

*----------------------------------------------------------------------*
* CLASS receptor DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS receptor DEFINITION.
PUBLIC SECTION.
CLASS-METHODS: on_finished FOR EVENT finished OF cl_gui_timer
IMPORTING sender.

PRIVATE SECTION.
CLASS-DATA: lv_color TYPE i.
CLASS-METHODS: rewrite.
ENDCLASS. "receptor DEFINITION

*----------------------------------------------------------------------*
* CLASS receptor IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS receptor IMPLEMENTATION.
METHOD rewrite.
DATA: lv_activate .
DO.
READ LINE sy-index.
IF sy-subrc <> 0.
EXIT.
ENDIF.
IF sy-index >= 3.
MODIFY LINE sy-index FIELD FORMAT lv_mundo COLOR = lv_color.
ENDIF.
ENDDO.
ENDMETHOD. "write

METHOD on_finished.
IF lv_color = 1.
lv_color = 0.
ELSE.
lv_color = 1.
ENDIF.
CALL METHOD rewrite.
sender->run( ).
ENDMETHOD. "on_finished
ENDCLASS. "receptor IMPLEMENTATION


START-OF-SELECTION.
CREATE OBJECT timer.
SET HANDLER receptor=>on_finished FOR timer.
timer->interval = 1.
timer->run( ).
WRITE: lv_hola, lv_mundo.

[ayaxrojo]

exelente lo tendre entre mis curiosidades... gracias por el codigo