General information
Category:
Coding, syntax & commands
Title:
Clear memory from class
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)
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only