**************************************************
*-- Form:         form1 (c:\eltest20\form1.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/18/05 12:34:14 AM
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 446
	Width = 843
	DoCreate = .T.
	Caption = "Form1"
	Name = "FORM1"


	ADD OBJECT grdtable AS grid WITH ;
		Height = 377, ;
		Left = 7, ;
		Top = 48, ;
		Width = 797, ;
		Name = "grdTable"


	PROCEDURE Load
		CREATE CURSOR Lender (Code C(10), Short C(20), FullName C(40), Status C(8), PcoFlag C(5), ParentCode C(10),;
		                      Category C(10), Customer L, MersCode C(10), NHCode C(10), Notes M)

		FOR asd = 1 TO 15
		   INSERT INTO Lender (Code) VALUES (TRANSFORM(asd))
		NEXT
		GO TOP
	ENDPROC


	PROCEDURE Init
		*if thisform.lPageGridActivate=.f.
		    thisform.LockScreen = .t.
		    local array laColumns(1,1)
		    dimension laColumns(11,3)

		    laColumns[1,1]="Lender.Code"
		    laColumns[1,2]="Lender Code"
		    laColumns[1,3]= 10

		    laColumns[2,1]="Lender.Short"
		    laColumns[2,2]="Short Lender Name"
		    laColumns[2,3]= 20

		    laColumns[3,1]="Lender.FullName"
		    laColumns[3,2]="Full Lender Name"
		    laColumns[3,3]= 40

		    laColumns[4,1]="Lender.Status"
		    laColumns[4,2]="Town"
		    laColumns[4,3]= 8

		    laColumns[5,1]="Lender.Pcoflag"
		    laColumns[5,2]="Lndr Rollup Status"
		    laColumns[5,3]= 5

		    laColumns[6,1]="Lender.ParentCode"
		    laColumns[6,2]="Parent Code"
		    laColumns[6,3]= 10

		    laColumns[7,1]="Lender.Category"
		    laColumns[7,2]="Lender Group Code"
		    laColumns[7,3]= 10

		    laColumns[8,1]="Lender.Customer"
		    laColumns[8,2]="WG Customer Y/N"
		    laColumns[8,3]= 4

		    laColumns[9,1]="Lender.Merscode"
		    laColumns[9,2]="MERS Code"
		    laColumns[9,3]= 10

		    laColumns[10,1]="Lender.NHCode"
		    laColumns[10,2]="NH Code"
		    laColumns[10,3]= 10

		    laColumns[11,1]="Lender.Notes"
		    laColumns[11,2]="Notes"
		    laColumns[11,3]= 10

		    with this.grdTable
		    *    .recordsource = "Lender"

		        .columncount =  alen(laColumns,1)

		        for i=1 to alen(laColumns,1)
		            .columns(m.i).controlsource = laColumns[m.i,1]    && Assign controlsource
		            .columns(m.i).header1.caption = laColumns[m.i,2]
		        NEXT

		*        .FormatAndSetCaption()
		    endwith
		*ENDIF
		thisform.LockScreen = .f.
		*thisform.lPageGridActivate=.t.
		*this.refresh()
		this.grdTable.setfocus()
	ENDPROC


	PROCEDURE grdtable.DblClick
		LPARAMETERS toObject
	ENDPROC


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