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

[fence]

Hola,

me acaban de meter el marrón del siglo . 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

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

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 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]

la estructura zwm_869_layout

Gracias 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