Classe: TMsgBarCria um objeto do tipo barra de status. NewMétodo construtor da classe.TMsgBar(): New ( [ oWnd], [ cPrompt], [ uParam3], [ uParam4], [ uParam5], [ uParam6], [ nClrFore], [ uParam8], [ oFont], [ uParam10], [ cImageName] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | oWnd | Objeto | Indica a janela ou controle visual onde objeto será criado. | | | cPrompt | Caracter | Indica a descrição que será apresentada na barra de status. | | | uParam3 | Lógico | Compatibilidade. | | | uParam4 | Lógico | Compatibilidade. | | | uParam5 | Lógico | Compatibilidade. | | | uParam6 | Lógico | Compatibilidade. | | | nClrFore | Numérico | Indica a cor da fonte que será utilizada na barra. | | | uParam8 | Numérico | Compatibilidade. | | | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada para exibir o conteúdo do controle visual. | | | uParam10 | Lógico | Compatibilidade. | | | cImageName | Caracter | Indica a imagem que será incluída na lateral esquerda. | | |
oObjeto(objeto)- Retorna o objeto criado.
oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',; .F.,.F.,.F.,.F., RGB(116,116,116),,oFont,.F.) SetMsgAltera a descrição da barra de status.TMsgBar(): SetMsg ( [ cText] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | cText | Caracter | Indica o texto que será incluído na barra de status. | | |
oTMsgBar:SetMsg("Novo texto para barra de status") Propriedade | Descrição | Tipo | aItem | Indica um array do objeto, do tipo TMsgItem, que permite criar subitens da barra de status. | Vetor | cMsgDef | Indica o texto padrão definido. | Caracter |
Bloco de código |
---|
theme | Eclipse |
---|
language | cpp |
---|
title | Exemplo |
---|
linenumbers | true |
---|
| #INCLUDE | #includeUserFunction
DEFINE DIALOG oDlg TITLE "Exemplo TMsgBar" FROM 180,180 TO 550,700 PIXEL | // Cria barra de status
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.) |
oTMsgItem1 := TMsgItem():New( oTMsgBar,'oTMsgItem1', 100,,,,; |
oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,,,,; |
.T., {||Alert("Clique na barra de status")} ) |
ACTIVATE DIALOG oDlg CENTERED | Return Exemplo da classe TMsgBar Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |