FiveTech Software tech support forums

... encontre que se define en el método Register de la clase tWindow METHOD Register( nClsStyle ) CLASS TWindow local hUser DEFAULT ::lRegistered := .f. // XBPP workaround if ::lRegistered return nil endif #ifdef __CLIPPER__ hUser = GetModuleHandle( "user.exe" ...

... TImage FROM TBitmap DATA nProgress DATA hBitmap (<----- New string DATA hDib (<---- New string DATA hPalette (<----- New String CLASSDATA lRegistered AS LOGICAL METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked, lScroll, lStretch, oCursor,; ...

Silvio,

You also need:

CLASSDATA lRegistered AS LOGICAL

in Class TBox

... CLASS TBar FROM TControl DATA nGroups, nMode DATA nBtnWidth, nBtnHeight DATA l3D, l2007 DATA nRGB1, nRGB2 //FranciscoA: Agosto 31/2008 CLASSDATA lRegistered AS LOGICAL /* METHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007 ) CONSTRUCTOR METHOD NewAt( nRow, nCol, nWidth, nHeight, ...

... static oTimer, aTimer := {} //----------------------------------------------------------------------------// CLASS TDSay FROM TControl CLASSDATA lRegistered AS LOGICAL DATA l3D DATA cPicture DATA aCaption DATA bGet DATA lShaded, lBox, lRaised DATA nDTop, nDLeft DATA nTTop, nTLeft DATA aRect, ...

... //----------------------------------------------------------------------------// CLASS TRectang FROM TControl DATA l3D DATA nRGB1, nRGB2 CLASSDATA lRegistered AS LOGICAL METHOD New( nRow, nCol, nHeight, nWidth, oWnd, l3D, nRGB1, nRGB2, cTitle, oFont, nStyle ) CONSTRUCTOR METHOD Display() INLINE ...

... Nil, Nil } Static nLapsus //----------------------------------------------------------------------------// CLASS TSBrowse FROM TControl CLASSDATA lRegistered AS LOGICAL CLASSDATA aProperties AS ARRAY ; INIT { "aColumns", "cVarName", "nTop", "nLeft", "nWidth", "nHeight" } CLASSDATA lVScroll, lHScroll ...

... > What difference are between CLASSDATA and DATA CLASSDATA are properties _shared_ by all objects that belong to a Class. i.e.: CLASSDATA lRegistered AS LOGICAL is a logical value (only one shared item!) used by all objects of that Class. A DATA is a property that just belongs to an object. ...

> CLASSDATA lRegistered AS LOGICAL It is needed for new control Classes that are not Windows estandard. Windows API requires to "register" a control class name. It has to be registered only once. That DATA controls that. Estandard ...

Patrick, > CLASSDATA lRegistered AS LOGICAL It is needed for new control Classes that are not Windows estandard. Windows API requires to "register" a control class name. It has to be registered only once. That DATA controls that. Estandard ...

Antonio Linares wrote:BTW, you are missing this important code in your class header:

CLASSDATA lRegistered AS LOGICAL

that code is a must for user defined control classes.

[Learning mode]
What is "CLASSDATA lRegistered AS LOGICAL" doing for the class? Why exactly is it needed?
[/Learning mode]



Patrick

Dear Antonio. There wasn't any error after I add the "CLASSDATA lRegistered AS LOGICAL" Code. But the HandleEvent did not run. Attached is my source code. #include "Fivewin.ch" #define MM_WOM_OPEN 955 /* waveform output */ #define MM_WOM_CLOSE ...

Thank you for your answer Antonio.

I added "CLASSDATA lRegistered AS LOGICAL" and the problem go away.

Tahnk you.

oknbs.

BTW, you are missing this important code in your class header:

CLASSDATA lRegistered AS LOGICAL

that code is a must for user defined control classes.

... reviewing the user defined control Class implementation for now. Silvio's proposal to create a new control Class is the way to go. > CLASSDATA lRegistered AS LOGICAL It is needed for new control Classes that are not Windows estandard. Windows API requires to "register" a control class name. ...