Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
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)
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement