Banner / Letreiro

[marcos.gurupi]

Caros, eh possivel eu colocar um "letreiro" no sistema em hwgui? Do tipo ficar passando mensagens no rodape?

Marcos Roberto.

[Pablo César]

Oi Marcos, eu procurei e não achei um exemplo de banner animado como você quer. Algo similar com movimento no statusbar eu tenho é função Contando() que é chamado no função AboutMe do DataHora.prg. Você pode baixar o DataHora daqui da seção de Downloads e ver se isso te inspira a você fazer esse banner. Talvez aplicando um Timer...

[marcos.gurupi]

Obrigado pela diga. Agora eh maos a obra.

[Toledo]

Marcos, o que você pode tentar fazer é criar um arquivo AVI com a animação que você quer e depois usar o comando ANIMATION para mostrar o arquivo numa área da tela perto do rodape. Veja um exemplo na pasta \SAMPLES\ANIMATION da HwGui.
Você pode criar uma animação em FLASH e depois converter em AVI, você encontra na net vários programas que converte arquivos SWF para AVI.

Abraços,

[marcos.gurupi]

Toledo, mas eu consigo fazer isso ficar dinamico. Pq minha ideia eh fazer uma tabela com mensagens e o sistema ficar rodando essas mensagens. Acredito que com AVI eu teria q criar os arquivos primeiro, impedindo o processo de ser dinamico.

[asimoes]

Marcos,

É só adaptar para hwgui.

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

[marcos.gurupi]

Obrigado. Vou tentar aqui e jah posto os resultados aqui.

[Pablo César]

Como tinha dito antes, o exemplo DataHora e exemplo do Alexandre, serviu-me de referência...

Note que a fonte selecionada é Courier New que é mono-espaçada e fica mais fácil de manipular...

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

O código está em HMG/Minigui, creio que seja fácil portar para Hwgui...

Aproveitem !