TMsgItem

  #include "TOTVS.CH"

  User Function TMsgItem()  
    DEFINE DIALOG oDlg TITLE "Exemplo TMsgItem" FROM 180,180 TO 550,700 PIXEL
    
    // Cria barra de status    
    oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',.F.,.F.,.F.,.F., RGB(116,116,116),,,.F.)
    
    // Cria item 01    
    oTMsgItem1 := TMsgItem():New( oTMsgBar,'oTMsgItem1', 100,,,,.T., {||} )
    
    // Cria item 02 com mudança de fonte
    oFont := TFont():New('Courier new',,-14,.T.)
    oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,oFont,CLR_HRED,,.T., {||Alert("Click na barra de status")} )
    
    ACTIVATE DIALOG oDlg CENTERED 
  Return