Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Clear memory from class
Message
From
21/11/2009 16:39:17
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Clear memory from class
Miscellaneous
Thread ID:
01435981
Message ID:
01435981
Views:
99
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
Map
View

Click here to load this message in the networking platform