Página 1 de 1
GRID sem cabeçalho (Headers), tem como?
Enviado: 09 Nov 2016 12:00
por 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.
GRID sem cabeçalho (Headers), tem como?
Enviado: 09 Nov 2016 13:34
por Toledo
Amigo, use o parâmetro NOHEADERS ou SHOWHEADERS .F.
Abraços,
GRID sem cabeçalho (Headers), tem como?
Enviado: 10 Nov 2016 19:42
por 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:
GRID sem cabeçalho (Headers), tem como?
Enviado: 10 Nov 2016 20:01
por 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".
GRID sem cabeçalho (Headers), tem como?
Enviado: 10 Nov 2016 20:20
por 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.
)
GRID sem cabeçalho (Headers), tem como?
Enviado: 10 Nov 2016 20:38
por 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.
GRID sem cabeçalho (Headers), tem como?
Enviado: 10 Nov 2016 21:03
por Pablo César
NiltonGM escreveu: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.