TCBrowse:RepaintHeader

RepaintHeader()

#INCLUDE "TOTVS.CH"

function u_ChangeTitle()
  local aDados := {}
  local oBrowse := nil
 
  DEFINE DIALOG oDlg TITLE "Exemplo ChangeTitle" FROM 180, 180 TO 550, 700 PIXEL           
 
    // Grid
    oBrowse := TCBrowse():new( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )
    aAdd( aDados, { "01", "Nome 01", "Descrição 01", "Conteudo 01" } )
    aAdd( aDados, { "02", "Nome 02", "Descrição 02", "Conteudo 02" } )
    oBrowse:setArray( aDados )
 
    // Cria coluna que tera o Titulo alterado
    oCol1 := TCColumn():new( "Filial", { || aDados[oBrowse:nAt, 1] },,,, "LEFT",, .F., .F.,,,, .F. )
    oBrowse:addColumn( oCol1 )
    
    // Cria demais colunas
    oBrowse:addColumn( TCColumn():new( "Nome", { || aDados[oBrowse:nAt, 2] },,,, "LEFT",, .F., .F.,,,, .F. ) )
    oBrowse:addColumn( TCColumn():new( "Descrição", { || aDados[oBrowse:nAt, 3] },,,, "LEFT",, .F., .F.,,,, .F. ) )
 
    // Botao que ira alterar o TITULO e a LARGURA da 1a coluna da Grid
    TButton():new( 172, 002, "Atualiza Titulo", oDlg,;
      { || oCol1:cHeading := "Novo Titulo", oCol1:nWidth := 100, oBrowse:RepaintHeader() },;
      40, 010,,, .F., .T., .F.,, .F.,,, .F. )
 
  ACTIVATE DIALOG oDlg CENTERED
 
return