>When i reload this editbox the parameters i set for class in "DEFINE CLASS mydata AS Form" remain with the form.
>When i re-open it with new data i want to redfine the parameters in ADD OBJECT Edit1 AS EditBox WITH ;
>
>Is there a release command I can use to clear either the object parameters form memory - or is it the class i need to remove from memory.
>'RELEASE CLASSLIB mydata' does not work so i'm obvious on the wrong path, the wrong area, or the wrong command
>
>thanks
> k
>
>
>LOCAL oFrm
>
>oFrm= createOBJECT("Rooms")
>oFrm.Top = 24
>oFrm.Left =400
>oFrm.Height = 373
>oFrm.Width = 500
>oFrm.edit1.value = filetostr('sample.TXT')
>
>
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS mydata AS Form
>
>
> ADD OBJECT Edit1 AS EditBox WITH ;
> FontSize = 7.5, ;
> Height= 409, ;
> Left= 2, ;
> fontname='Lucida Console', ;
> ReadOnly= .t., ;
> TabIndex= 2, ;
> Top= 2, ;
> Width= 489, ;
> Value= ""
> desktop = .t. &&& moved from setting oFrm
>ENDDEFINE
>
>
>Public Event MouseWheel As MouseWheelEventHandler
>
>
>PROCEDURE Object.MouseWheel
>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
>PROCEDURE edit1.MouseWheel
> LPARAMETERS nDirection, nShift, nXCoord, nYCoord
> * Set focus to this control
> If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
> this.SetFocus
> EndIf
> ENDPROC
>
>
>oFrm.hide(1)