Grid NoHeaders and NoColumnReSizing
Posted: Thu Nov 10, 2016 10:45 pm
In another forum at PCToledo, they asked if there is conditions to remove header at runtime dynamically.
I found the way with this:
The most interesting that I also found a way to let width columns fixed with no resizing.
I hope it could be useful for you.
I found the way with this:
Code: Select all
#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 NilI hope it could be useful for you.