import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo barra de status.
#INCLUDE "TOTVS.CH"
USER FUNCTION TMsgBar()
DEFINE DIALOG oDlg TITLE "Exemplo TMsgBar" FROM 180,180 TO 550,700 PIXEL
oFont := TFont():New('Courier new',,-14,.T.)
// Cria barra de status
oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',.F.,.F.,.F.,.F., RGB(116,116,116),,oFont,.F.)
// Cria itens
oTMsgItem1 := TMsgItem():New( oTMsgBar,'oTMsgItem1', 100,,,,.T., {||} )
oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,,,,.T., {||Alert("Clique na barra de status")} )
ACTIVATE DIALOG oDlg CENTERED
RETURN
|
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server