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 !!!
Moderador: Moderadores
#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
ADD STATUS TO TelaAcesso PARTS 300
WriteStatus( TelaAcesso,1,"AAAAAAAAAAAFDDDDDDDDDDDDDDDD" )
// WriteStatus( TelaAcesso,2," parte2" )
// WriteStatus( TelaAcesso,3," parte3" )
ACTIVATE DIALOG TelaAcesso
Luciano Bonfim escreveu:usei a barra de status num DIALOG ela apareceu, mas nao consigo escrever nada nela!
alguem sabe o motivo?
ADD STATUS TO TelaAcesso PARTS 300
WriteStatus( TelaAcesso,1,"AAAAAAAAAAAFDDDDDDDDDDDDDDDD" )
// WriteStatus( TelaAcesso,2," parte2" )
// WriteStatus( TelaAcesso,3," parte3" )
ACTIVATE DIALOG TelaAcesso
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
INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitulo
Add status to oDlg parts 300,300,0
oDlg:Activate()
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()
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes