Com esse comando, consigo mostrar informações no topo da tela,
qual comando devo usar para mostrar no rodapé, tem como ?
HARBOUR 3.2.0(dev), GTWVG
HB_GtInfo( HB_GTI_WINTITLE, "Usu rio: " + nomeusuario)

Moderador: Moderadores
HB_GtInfo( HB_GTI_WINTITLE, "Usu rio: " + nomeusuario)
asimoes escreveu:Tem algum exemplo de statusbar usando a gtwvg ?
FUNCTION StatusBar()
LOCAL oStatusBar, oPanel
oStatusBar := wvgStatusBar():New( wvgSetAppWindow() ):Create( , , , , , .T. )
oPanel := oStatusBar:GetItem(1)
oPanel:Caption := "Forum PCToledo - http://www.pctoledo.com.br/forum"
oPanel1 := oStatusBar:addItem()
oPanel1:caption := "Demo StatusBar"
oPanel2 := oStatusBar:addItem()
oPanel2:caption := "Data: "+DTOC(Date())
RETURN NIL
FUNCTION StatusBar()
LOCAL oStatusBar, oPanel
oStatusBar := wvgStatusBar():New( wvgSetAppWindow() ):Create( , , , , , .T. )
oPanel := oStatusBar:GetItem(1)
oPanel:Caption := "Forum PCToledo - http://www.pctoledo.com.br/forum"
oPanel1 := oStatusBar:addItem()
oPanel1:caption := "Demo StatusBar"
oPanel2 := oStatusBar:addItem()
oPanel2:caption := "Data: "+DTOC(Date())
RETURN NIL
porter escreveu:Depois de StatusBar criado, tem como em algum momento desabilitar,dessa forma não da certo.oStatusBar := wvgStatusBar():New( wvgSetAppWindow() ):Create( , , , , , .F. )
oWvgStatus:Hide()
oWvgStatus:Show()
oWvgStatus:Destroy()
CREATE CLASS WvgStatusBar INHERIT WvgWindow /* WvgActiveXControl */
StatusBar() // Cria o StatusBar
CADFOR() // Entro no cadastro
StatusBar() // aqui da o erro.
//cadfor.prg
FUNCTION CADFOR
ExpandirTela(25,80)
RETURN
FUNCTION ExpandirTela(linhas,colunas)
Hb_gtReload( "WVG" )
SETMODE(linhas, colunas)
SETCOLOR("W/B, N/W,,,W+/G+B")
screenWidth := HB_GTINFO( HB_GTI_DESKTOPWIDTH )
screenHeight:= HB_GTINFO( HB_GTI_DESKTOPHEIGHT )
wvt_SetFont( "courier new" , Round(( screenHeight / MaxRow() ),0)-4, Round(( screenWidth / MaxCol() ),0), 0 )
WVT_MAXIMIZE()
HB_GtInfo( HB_GTI_RESIZABLE, .F. )
HB_GtInfo( HB_GTI_WINTITLE, "Usu rio: " + nomeusuario) // APARECE Nome do usuario no topo da tela
RETURN
FUNCTION ExpandirTela(linhas,colunas)
Hb_gtReload( "WVG" )
Usuários vendo este fórum: Google [Bot], Itamar M. Lins Jr. e 6 visitantes