PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


    **************************************************
*-- Form:         form1 (c:\traff\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   05/28/05 08:17:05 PM
*
DEFINE CLASS form1 AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
    currentrec = .F.


    ADD OBJECT grid1 AS grid WITH ;
        ColumnCount = 2, ;
        Height = 200, ;
        Left = 24, ;
        Panel = 1, ;
        Top = 42, ;
        Width = 320, ;
        Name = "Grid1", ;
        Column1.HeaderClassLibrary = "test.prg", ;
        Column1.HeaderClass = "MyHeader", ;
        Column1.Width = 126, ;
        Column1.Name = "Column1", ;
        Column2.HeaderClassLibrary = "test.prg", ;
        Column2.HeaderClass = "MyHeader", ;
        Column2.Width = 144, ;
        Column2.Name = "Column2"



    PROCEDURE Load
        CREATE CURSOR Test (Field1 C(10), Field2 N(5))
    ENDPROC

    PROCEDURE HeaderClick(strControl)
       WAIT WINDOW strControl
    ENDPROC 

ENDDEFINE
*
*-- EndDefine: form1
**************************************************




DEFINE CLASS MyHeader AS Header
   
    PROCEDURE Click
          thisform.HeaderClick(this.Parent.ControlSource)
    ENDPROC
ENDDEFINE