Hi.

I have a Test Classlib containing a Test Grid.
My question is:

1.
------
If I save and compile the source code generated by "View Class Code", Why do I get syntax errors like this: (See Code below)

ADD OBJECT grdchtrans.column1.header1 AS header WITH Caption = "Header1", Name = "Header1"
Error in line 23: Syntax error.

ADD OBJECT grdchtrans.column1.text1 AS textbox WITH BorderStyle = 0, Margin = 0, ForeColor = RGB(0,0,0), BackColor = RGB(128,255,255), Name = "Text1"
Error in line 31: Syntax error.


2.
------

Why properties (i. e. Back and Fore Colors) and the methods DbldClick and Click don't work when I add my custom grid to a new form ?


Thanks.

Juan C.




This is the source code generate from Class Browser:


**************************************************
*-- Class: grdchtrans (h:\qprglibhome\chctrls.vcx)
*-- ParentClass: grid
*-- BaseClass: grid
*-- Time Stamp: 03/27/03 01:54:07 PM
*
DEFINE CLASS grdchtrans AS grid


ColumnCount = 1
DeleteMark = .F.
Height = 200
RecordSource = "chtrans"
Width = 320
Name = "grdchtrans"
Column1.ControlSource = ""
Column1.BackColor = RGB(128,255,255)
Column1.Name = "Column1"


ADD OBJECT grdchtrans.column1.header1 AS header WITH ;
Caption = "Header1", ;
Name = "Header1"


ADD OBJECT grdchtrans.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(128,255,255), ;
Name = "Text1"


PROCEDURE AfterRowColChange
LPARAMETERS nColIndex
wait window 'after row' timeout 1
ENDPROC


PROCEDURE DblClick
wait window 'dbldclick' timeout 2
ENDPROC


ENDDEFINE
*
*-- EndDefine: grdchtrans
**************************************************