    SessionDE, MyColumn,MyHeader   GridLib.vcx (  VFP 6.0 SP3  )

:
     GridDE, SessionDE, MyColumn  MyHeader   prg- (HeaderInGrid_p.prg), ,           DE-  ,   :
      ,   MyForm.AddObject()       prg-  (  vcx-   SET CLASSLIB TO ...),        AddObject()    Private Data Session ,    CreateObject()/NewObject() [.  " VFP 6.0+SP3 VS6     Session.      ?"  FAQ  http://vfpdmur.narod.ru/ask_r.html]
          ,    SessionDE (  Session)  vcx-.   ,     , ..  : Cannot visually modify a class of this type (Error 1978).       MyColumn, MyHeader :-() ...  ,   ,   .   ,   ,    SessionDE   GridLib.vcx

:
1)    Custom
2)    Class Designer, ,    Session
3)     vcx-  dbf-      Class  BaseClass  custom  session ( column, header   MyColumn, MyHeader )
4)  ,    Recompile All Files
5)        ,         Class Designer  . ,  ,    3) ,      Class Designer.        3-4 .

:
       Session (Column, Header) ..   Error 1978,    VFP    ,       exclusive-             :-(      SessionDE  Class Designer       Custom   Classes  .  ,       Class Designer ,     (..   Session),      Error 1978.  

   Column:
          ,        :-)      ,   Column.    ,   ..    ,     Header.  ,        (MyHeader)    ,   Column, ..   ,   

DEFINE CLASS MyColumn AS Column
	ADD OBJECT Header1 AS MyHeader
ENDDEFINE

      , -   MyColumn.Init()  :

WITH This
	IF TYPE('This.Header1') = 'O'
		.RemoveObject('Header1')
	ENDIF
	.AddObject('Header1', 'MyHeader')
ENDWITH

     Header1       MyHeader :-( ...     MyColumn  GridLib.vcx.    ,        ,    , 
   .

,     ,    ..  -,    Column.      : 

-    Label   MyLable (      MyHeader)
-    Container   NewColumn (    ,   Column)
-    NewColumn   MyLable,      Header1 (  ,   ,   NewColumn    Class Designer)
-    ,      dbf-,   , .. label, container  MyLable  header, column  MyHeader . ,           Class Designer
-  .

,         MyColumn  NewColumn            MyForm.Load()  :
*
*-- What class column we are used now?
#DEFINE UDCHEADER .F.
#IF UDCHEADER
 #DEFINE CLS_COLUMN 'NewColumn' &&<- includes the user defined class Header
#ELSE
 #DEFINE CLS_COLUMN 'MyColumn'  &&<-- includes the default class Header
#ENDIF
WAIT WINDOW 'Used: '+CLS_COLUMN NOWAIT	

   :    -    GridLib.vcx,     :-)

 :
HeaderInGrid_p.prg - "" , ..        
GridLib.vcx -          HeaderInGrid_p.prg
HeaderInGrid_l.prg - ,     GridLib.vcx

Best regards.
 ,  , , 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Mailto:Drozdov@ics.perm.su
My Page:  http://vfpdmur.narod.ru/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~