*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * Prg to reproduce. Save to a seperate prg. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! otestform = CREATEOBJECT("FORM") WITH otestform .CAPTION = "Test of MemberClass/HeaderClass for Grid Headers" .AddObject("grid1", "GRID") .grid1.MemberClassLibrary = 'col_classes.prg' .grid1.MemberClass = "grdcol" .grid1.ColumnCount = 2 .grid1.Visible = .t. .Activate .Show .saveas("testof_header_class_form.scx") ENDWITH otestform.release otestform = "" * The following line will error out with an Error Loading File..... * Mheader1 Parent Class MHeader Definition not Found. MODIFY FORM testof_header_class_form.scx *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * Member and Header Class Definitions. * Save the folowing class defintions in a seperate * prg named col_classes.prg and change the paths to * reflect the correct locations. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! DEFINE CLASS grdcol AS COLUMN NAME = "MColumn" HEADERCLASSLIBRARY = "col_classes.prg" HEADERCLASS = "grdhdr" ENDDEFINE DEFINE CLASS grdhdr AS HEADER NAME = "MHeader" CAPTION = "Test Header" ENDDEFINE