PC Toledo

Código: Selecionar todos

  _RODADIR:=PADC('Qual a DATA que deseja Alterar ?'+" ",MaxCol()+1) //Roda para direita
   _RODAESQ:=PADC(" "+'Qual a DATA que deseja Alterar ?',MaxCol()+1) //Roda para esquerda
   FOR I:=1 TO 1000
      _RODADIR := SUBSTR(_RODADIR,LEN(_RODADIR))+SUBSTR(_RODADIR,1,Len(_RODADIR)-1) //PARA DIREITA
      _RODAESQ := SUBSTR(_RODAESQ,2,LEN(_RODAESQ))+SUBSTR(_RODAESQ,1,1)             //PARA ESQUERDA
      @ 22,0 say PADC(_RODADIR,MaxCol()+1)
      @ 23,0 say PADC(_RODAESQ,MaxCol()+1)
      INKEY(.5) 
   NEXT

Código: Selecionar todos

#include <MiniGui.ch> /* Pode ser compilado com HMG ou Minigui */

Function Main
DEFINE WINDOW Form_1 ;
    AT 0,0 ;
    WIDTH 685 ;
    HEIGHT 280 ;
    TITLE "StatusBar Animado" ;
    MAIN ;
	ON INIT Mostrando()
	
	On key Escape of Form_1 Action Form_1.Release()
	
    DEFINE BUTTON Button_1
        ROW    130
        COL    210
        WIDTH  100
        HEIGHT 28
        ACTION MsgInfo("Funciona outros componentes !")
        CAPTION "Clique aqui"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
    END BUTTON

    DEFINE STATUSBAR FONT "Courier New" SIZE 9
        STATUSITEM "" WIDTH 292
		STATUSITEM "" WIDTH 292
    END STATUSBAR
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return

Function Mostrando()
Local _RODADIR:=PADC('Qual a DATA que deseja Alterar ?'+" ",MaxCol()+1) //Roda para direita
Local _RODAESQ:=PADC(" "+'Qual a DATA que deseja Alterar ?',MaxCol()+1) //Roda para esquerda
FOR I:=1 TO 1000
   _RODADIR := SUBSTR(_RODADIR,LEN(_RODADIR))+SUBSTR(_RODADIR,1,Len(_RODADIR)-1) //PARA DIREITA
   _RODAESQ := SUBSTR(_RODAESQ,2,LEN(_RODAESQ))+SUBSTR(_RODAESQ,1,1)             //PARA ESQUERDA
   
   INKEY(.3)
   Form_1.StatusBar.Item(1) := _RODADIR
   Form_1.StatusBar.Item(2) := _RODAESQ
   DO EVENTS
NEXT
Return Nil