PC Toledo

Amigos,

Qual seria a função equivalente a scroll() para minigui?
Ou equivalente para fazer rolar caracter na tela.

[]´s

Amigos,

Eu fiz da forma lusitana, até encontrar a função mais correta:

para simular a função scroll fiz o seguinte:

Código: Selecionar todos


      @090,210 LABEL lbAlias01;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @110,210 LABEL lbAlias02           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @130,210 LABEL lbAlias03           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @150,210 LABEL lbAlias04           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @170,210 LABEL lbAlias05           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @190,210 LABEL lbAlias06           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @210,210 LABEL lbAlias07           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @230,210 LABEL lbAlias08           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9
      @250,210 LABEL lbAlias09           ;
               VALUE ""                  ;
               WIDTH 80 HEIGHT 20        ;
               FONT "Courier New" SIZE 9

Na rotina que eu quero fazer o scroll:

cLastAlias:=""
DO WHILE !EOF()
   xDBF:=RTRIM(INDICES->Nome_DBF)
   IF cLastAlias <> xDBF
      nCont++
      Win_1.DBF1.Value:=nCont
      IF cPack = "SIM"
         PACK
      ENDIF
      cLastAlias:=xDBF
      Win_1.lbAlias09.Value:=Win_1.lbAlias08.Value
      Win_1.lbAlias08.Value:=Win_1.lbAlias07.Value
      Win_1.lbAlias07.Value:=Win_1.lbAlias06.Value
      Win_1.lbAlias06.Value:=Win_1.lbAlias05.Value
      Win_1.lbAlias05.Value:=Win_1.lbAlias04.Value
      Win_1.lbAlias04.Value:=Win_1.lbAlias03.Value
      Win_1.lbAlias03.Value:=Win_1.lbAlias02.Value
      Win_1.lbAlias02.Value:=Win_1.lbAlias01.Value
      Win_1.lbAlias01.Value:=cLastAlias 
      // Simula o SCROLL
   ENDIF
   DBSKIP()
ENDDO

Se alguém tem alguma função otimizada.

Agradeço.

[]´s

PC Toledo

SCROLL()

SCROLL()