GRID sem cabeçalho (Headers), tem como?

[NiltonGM]

Tem como criar uma GRID sem a linha de cabeçalho (Headers)?
Se colocarmos Nil na propriedade 'Headers', assume como default 'Coluna 1', ... 'Coluna x'... se colocarmos vazio ('') para cada Header, a linha do cabeçalho continua lá mesmo em branco.
A ideia é criar uma grid em logo em baixo de outra maior como um Total geral.

[Toledo]

Amigo, use o parâmetro NOHEADERS ou SHOWHEADERS .F.

Abraços,

[NiltonGM]

Amigo, use o parâmetro NOHEADERS ou SHOWHEADERS .F.

Olá Toledo, no gerenciador de Objetos da HMG-IDE 3.4.3 não tem essas propriedades, como faço pra setar SHOWHEADERS := .F. em tempo de execução uma vez que a criação do Form é pela IDE (Form.fmg) e não via programa?
Esse comando dá erro:

Código: Selecionar todos

Form_1.Grid_1.ShowHeaders := .F.

[Pablo César]

Olá Nilton,

O NOHEADERS é usado para a sintaxe standard xBase (como em Clipper) @... essa você não vai ver no gerenciador de objetos da IDE mas em contrapartida tem SIM a SHOWHEADERS que você deve definir .T. ou .F.

Talvez ainda seja possível remover os Header durante a execução. Mas não tenho certeza porque essa propriedade é "Disponível somente na definição de controle".

[NiltonGM]

Valeu Pablo,

:%
Olha que olhei dezenas de vezes no gerenciador de objetos por "ShowHeaders" e não tinha achado, tava cego ou procurando "NOHEDEARS", agora que você falou, batata! Achei.

Muito obrigado a vc e ao Toledo que já tinha dado essa dica.

)

[Pablo César]

Oi Nilton,

Mas acabo de descobrir isto:

Código: Selecionar todos

#include <hmg.ch>

Function Main
DEFINE WINDOW Main AT 183 , 340 WIDTH 550 HEIGHT 350 TITLE "Remove Grid Headers / NoColumnReSizing" MAIN

    DEFINE GRID Grid_1
        ROW    70
        COL    190
        WIDTH  120
        HEIGHT 120
        ITEMS { {"111","222"} }
        VALUE 1
        WIDTHS {60, 80 }
        HEADERS {'AAA',"BBB"}
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        SHOWHEADERS .T.
        CELLNAVIGATION .F.
    END GRID
	
	DEFINE BUTTON Button_1
        ROW    250
        COL    100
        WIDTH  120
        HEIGHT 28
        ACTION HMG_ChangeWindowStyle ( GetControlHandle("Grid_1","Main"), LVS_NOCOLUMNHEADER, NIL, .F. )
        CAPTION "Remove Headers"
        FONTNAME "Arial"
        FONTSIZE 9
    END BUTTON
	
	DEFINE BUTTON Button_2
        ROW    250
        COL    280
        WIDTH  120
        HEIGHT 28
        ACTION HMG_ChangeWindowStyle ( GetControlHandle("Grid_1","Main"), LVS_REPORT, NIL, .T. )
        CAPTION "Fixed width Columns"
        FONTNAME "Arial"
        FONTSIZE 9
    END BUTTON

END WINDOW
Main.Center

// HMG_ChangeWindowStyle ( GetControlHandle("Grid_1","Main"), LVS_NOCOLUMNHEADER, NIL, .F. )

Main.Activate
Return Nil

Você pode eliminar mas não encontrei a forma de retornar... Também descobri como impossibilitar o ridimensionamento das colunas do Grid.

A título de apredizado.

[Pablo César]

Olha que olhei dezenas de vezes no gerenciador de objetos por "ShowHeaders" e não tinha achado, tava cego ou procurando "NOHEDEARS", agora que você falou, batata!

Semprer utilize o DOC que está na instalão do mseu HMG para ver bem a sintaxe de cada control e funções.