grid ve checkbox

Public oForm

oForm = Createobject('test')

oForm.Show()

 

Define Class test As Form

  DataSession = 2

  Height=400

  Width=600

 

  Add Object grdTest As Grid With Height=400,Width=600,Anchor=15,RecordSource='curbb'

 

  Procedure Init

    With This.grdTest.Columns(1)

      .Newobject('chkTest','CheckBox')

      .chkTest.Caption = ''

      .chkTest.Centered = .T.

      .chkTest.Visible = .T.

      .CurrentControl = 'chkTest'

      .Sparse = .F.

    Endwith

  Endproc

 

  Procedure Load

    Create Cursor curbb ;

      (nsec N(1), nkimlikno N(12),cadi C(100),ddogumtarihi D,nmernisno N(12),nbbgebeno N(12),nsira N(2))

    Rand(-1)

    For ix =1 To 100

      Insert Into curbb Values ;

        (m.ix%2, Int(Rand()*0x7FFFFFFF), Sys(2015), Date()-(Rand()*50*365), m.ix, m.ix, m.ix%100)

    Endfor

    Locate

  Endproc

 

  Procedure Destroy

    Select curbb

    Browse

  Endproc

Enddefine