RELEASE abc >PUBLIC abc >abc = NEWOBJECT("formular1") > > >************************************************** >*-- Class: formular1 >*-- ParentClass: form >*-- BaseClass: form >*-- Zeitstempel: 06/06/02 01:41:08 PM >*-- Testformular >* >DEFINE CLASS formular1 AS form > > > Top = 0 > Left = 0 > Height = 250 > Width = 459 > DoCreate = .T. > Caption = "Form1" > cursor = "test" > Name = "formular1" > > > ADD OBJECT grid1 AS grid WITH ; > Height = 200, ; > Left = 20, ; > Top = 5, ; > Width = 410, ; > Name = "Grid1" > > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 215, ; > Left = 175, ; > Height = 27, ; > Width = 84, ; > Caption = "anzeigen", ; > Name = "Command1" > > > PROCEDURE Destroy > IF USED(this.Cursor) > SELECT (this.Cursor) > USE > ENDIF > ENDPROC > > > PROCEDURE Init > this.Visible = .T. > ENDPROC > > > PROCEDURE command1.Click > LOCAL lcAlias, lnCounter, lnCount, lcName > lnCount = 4 > lcAlias = thisform.cursor > > ************************************************** > *-- einfach mal nen Cursor erzeugen > CREATE CURSOR (lcAlias) (che L(1,0),name C(20,0), Ort C(30,0)) > m.che = .T. > m.name = "Biene" > m.Ort = "Berlin" > FOR lnCounter = 1 TO lnCount > INSERT INTO (lcAlias) FROM memvar > ENDFOR > GO top > ************************************************** > > > *-- in Spalte 1, Textbox1 durch Checkbox ersetzen > WITH ThisForm.Grid1 > .ColumnCount = -1 > .recordsource = lcAlias > lcName = .Column1.CurrentControl > .Column1.RemoveObject(lcName) > .Column1.addObject("Lcheck", "Checkbox") > .Column1.sparse =.F. > .Column1.currentcontrol = "Lcheck" > .Column1.controls(2).ReadOnly = .F. > > ENDWITH > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: formular1 >************************************************** >