Status Bar na HWGUI

[acelconsultoria]

E aí, pessoal...


Bom, eu pesquisei aqui no forum e na pasta SAMPLES, e não achei nada significativo que explicasse melhor como manipular a Status Bar usando a lib HWGUI. Alguém aqui tem um exemplo pra me passar


Abraços !!!

[sygecom]

Vc pode usar a IDE(DESIGNER) para criar um .prg com STATUS BAR e ver mais ou menos como ela funciona....

[acelconsultoria]

É... eu também estou dando uma fuçada no designer... que é uma "mão na roda" também.

A HWGUI não é nenhum bicho de 7 cabeças, infelizmente os exemplos (SAMPLES) que vem junto com a lib não exploram todo o seu potencial. Mas tô gostando bastante !!!

[Luciano Bonfim]

onde fica esse designer da hwgui?

[sygecom]

Na sua pasta da HWGUI procure a seguinte pasta \hwgui\utils\designer

Logo em seguida execute o seguinte .BAT blddesig.bat (tem que esta com o BCC e o XHARBOUR configurados na maquina)

Esse bat vai compilar a IDE(DESIGNER) da HWGUI.

É só usar , ele salva as telas em formato .XML e .PRG

Abraços
Leonardo Machado

[Luciano Bonfim]

Obrigado Leonardo,

gerei o excutável aqui... vou testar agora....

ia morrer sem saber que isso existia!! rs

[acelconsultoria]

Bom, é o seguinte. Eu usei o designer, desenvolvi as telas, salvei em PRG... mesmo assim, não consegui entender os mistérios da Status Bar !!!

Peguei uns exemplos que vem na pasta samples, mas os exemplos apenas utilizam o objeto PANEL, e não a Status Bar !!!

Ou seja, ainda tô tentando achar !!! :(Neg

[acelconsultoria]

E aí, galera... dei uma "fuçada" melhor aqui e consegui desvendar os mistérios da Status Bar da HWGUI, aqui vai um pequeno exemplo:

Código: Selecionar todos

#include "windows.ch"
#include "guilib.ch"
#include "hwgui.ch"

Function Main()

PUBLIC Janela_Principal, Painel_Principal
INIT WINDOW Janela_Principal MAIN TITLE "Usando a Status Bar" ;
       ON EXIT {||EndWindow()}

   MENU OF Janela_Principal
      MENU TITLE "&Cadastro"
         MENUITEM "&Clientes"       ACTION EndWindow()
         SEPARATOR
         MENUITEM "&Sair"           ACTION {||dbCloseAll(), EndWindow()}
      ENDMENU
   ENDMENU

   ADD STATUS TO Janela_Principal PARTS 550, 200, 150 // atribui a Status Bar para a Janela_Principal, dividindo-o em 3 partes

   WriteStatus( Janela_Principal,1," MENSAGEM: Módulo Principal do Sistema" ) // atribui o valor para a primeira parte
   WriteStatus( Janela_Principal,2," USUÁRIO: Fulano" ) // atribui o valor para a segunda parte
   WriteStatus( Janela_Principal,3," DATA: " + DTOC(DATE()) ) //atribui o valor para a terceira parte
   
ACTIVATE WINDOW Janela_Principal MAXIMIZED
Return Nil

Enfim, é bem simples. O difícil mesmo foi encontrar um exemplo de como funciona.

Abraços !!!

[Luciano Bonfim]

usei a barra de status num DIALOG ela apareceu, mas nao consigo escrever nada nela!

alguem sabe o motivo?

Código: Selecionar todos

ADD STATUS TO TelaAcesso PARTS 300

   WriteStatus( TelaAcesso,1,"AAAAAAAAAAAFDDDDDDDDDDDDDDDD" )
//   WriteStatus( TelaAcesso,2," parte2" )
//   WriteStatus( TelaAcesso,3," parte3" )
ACTIVATE DIALOG TelaAcesso

[Itamar M. Lins Jr.]

usei a barra de status num DIALOG ela apareceu, mas nao consigo escrever nada nela!

alguem sabe o motivo?

Código: Selecionar todos

ADD STATUS TO TelaAcesso PARTS 300

   WriteStatus( TelaAcesso,1,"AAAAAAAAAAAFDDDDDDDDDDDDDDDD" )
//   WriteStatus( TelaAcesso,2," parte2" )
//   WriteStatus( TelaAcesso,3," parte3" )
ACTIVATE DIALOG TelaAcesso

Parece que só depois da ACTIVATE DIALOG voce consegue escrever na status bar.
Coloque na clausula ON INIT da DIALOG {||writestatus(...,.t.}

Saudações
Itamar M. Lins Jr.

[Luciano Bonfim]

Itamar,

Muito Obrigado funcionou...

aproveitando a oportunidade vc sabe como eu recupero o que está escrito na status bar?

na gtwvw eu uso a funçäo WVW_SBgetText mas em HWGUI eu nao sei

Muito Obrigado

[Linguagemclipper]

Estava com o mesmo problema, mas depois percebí olhando o GUILIB.CH que o Status só funciona numa WINDOW e eu estava querendo colocar num DIALOG igual ao colega aí.
Quando troquei o DIALOG pelo WINDOW o STATUS deu certo!

[asimoes]

Pode usar em uma INIT DIALOG

Código: Selecionar todos

   oFont    := HFont():Add( "Tahoma", 10 )
   
   nStyle   := DS_CENTER + WS_VISIBLE + WS_SYSMENU
   
   oIconDLG := HIcon():AddResource("ICON_A", 24, 24)
   
   INIT DIALOG oDlg TITLE "Teste" ;
               AT 0, 0 ;
               SIZE 1024 768 ;
               ICON oIconDLG ;
               STYLE nStyle ;
               FONT oFont ;
               CLIPPER ;
               NOEXIT ;
               COLOR 13827581
   
   ADD STATUS oStatus TO oDlg PARTS 0 STYLE BS_LEFT ON INIT {|This| Status( This ) }  

ACTIVATE DIALOG oDlg

FUNCTION Status( This )

   This:SetTextPanel( 1, "Tecle enter/esc para continuar" )

RETURN Nil

[Itamar M. Lins Jr.]

Ola!
Usando a versão do SVN 2.22
Primeiro vc monta, coloca os objetos na DIALOG ou na Window.

Código: Selecionar todos

INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitulo 

   Add status to oDlg parts 300,300,0

oDlg:Activate()

Assim como está ai em cima monta a barra de status vazia e dividida em 3 partes.

Código: Selecionar todos

INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitulo ;
On Init {|| hwg_WriteStatus( oDlg,2,'Reg: ' + Transform( tp50e->(lastRec()) ,"9,999,999" )), hwg_msginfo( "aqui mais coisas para fazer, depois de aberto o DIALOG") } 

   Add status to oDlg parts 300,300,0

oDlg:Activate()

Depois de montado/aberto o dialog vc pode usa "ON INIT..."
Lembrando que é um objeto e vc pode mudar, escrever o tempo todo nele...

Saudações,
Itamar M. Lins Jr.