// Troca o Ãcone para up (ordem crescente) ou down (ordem decrescente) conforme a flag
clientes.Grid_Clientes.HeaderImages(nIndexHeader) := IIF( lFlag, 'hdUp', 'hdDown' )
// Troca o fonte da colula (nOrdem) em negrito
clientes.Grid_Clientes.HeaderDYNAMICFONT(nIndexHeader) := {|| ARRAY FONT "Tahoma" SIZE 9 BOLD }
Causando o efeito abaixo:
e
O problema que quero relatar é o seguinte, resolvi implementar uma imagem na linha da grade para os clientes que estão fazendo aniversário no mês corrente, se na grade não uso os recursos acima com imagem no cabeçalho, funciona que é uma beleza, porem, se estou usando imagens no cabeçalho, a imagem da linha interfere no cabeçalho jogando a mesma imagem da linha no cabeçalho da coluna 2, muito estranho isso. Veja os comandos:
DELETE ITEM ALL FROM Grid_Clientes OF clientes
clientes.Grid_Clientes.Image(false) := {"gdEmpty","gdHappyDay"}
FOR i := 1 TO nRow
oRow := pCli_oQuery:GetRow(i)
cEndereco := IIF( Empty( oRow:FieldGet('logradouro') ), '', STRING_MySQL_TO_HB( oRow:FieldGet('logradouro') ) )
cEndereco += IIF( Empty( oRow:FieldGet('numero') ), '', IIF( Empty(cEndereco), '', ', ' ) + STRING_MySQL_TO_HB( oRow:FieldGet('numero') ) )
cEndereco += IIF( Empty( oRow:FieldGet('complemento') ), '', IIF( Empty(cEndereco), '', ', ' ) + STRING_MySQL_TO_HB( oRow:FieldGet('complemento') ) )
cEndereco += IIF( Empty( oRow:FieldGet('bairro') ), '', IIF( Empty(cEndereco), '', ' - ' ) + STRING_MySQL_TO_HB( oRow:FieldGet('bairro') ) )
cEndereco += IIF( Empty( oRow:FieldGet('municipio') ), '', IIF( Empty(cEndereco), '', ' - ' ) + STRING_MySQL_TO_HB( oRow:FieldGet('municipio') ) )
cEndereco += ' (' + oRow:FieldGet('uf') + ')'
cEndereco += IIF( Empty(oRow:FieldGet('cep')), '', ' CEP: ' + Transform( oRow:FieldGet('cep'), "@R 99999-999" ) )
ADD ITEM { ;
oRow:FieldGet('id'), ;
STRING_MySQL_TO_HB(oRow:FieldGet('nome')), ;
STRING_MySQL_TO_HB(oRow:FieldGet('apelido')), ;
AllTrim(oRow:FieldGet('cpf')), ;
AllTrim(oRow:FieldGet('rg')), ;
AllTrim(oRow:FieldGet('celular')), ;
AllTrim(oRow:FieldGet('telefone')), ;
cEndereco, ;
oRow:FieldGet('data_nascimento'), ;
iif(oRow:FieldGet('ativo')=1,'ATIVO','INATIVO'), ;
STRING_MySQL_TO_HB(oRow:FieldGet('sis_usuarios_nome_cadastrado_por')),;
DateTime_MySQL_TO_HB(oRow:FieldGet('cadastrado_em')), ;
STRING_MySQL_TO_HB(oRow:FieldGet('sis_usuarios_nome_alterado_por')), ;
DateTime_MySQL_TO_HB(oRow:FieldGet('alterado_em')), ;
oRow:FieldGet('alteracoes') ;
} TO Grid_Clientes OF clientes
// Aqui mudo a imagem da linha conforme a expressão abaixo, não sei como, mas esse comando interfere na imagem do cabeçalho da coluna 2
clientes.Grid_Clientes.ImageIndex(i,1) := IIF( Month( oRow:FieldGet('data_nascimento') ) == Month(Date()), 1, 0 )
NEXT i
Veja as imagens:
Será um bug ou estou fazendo algo errado? Tem algum macete para corrigir isso?