FiveTech Software tech support forums

... PIXEL OF oDlg ; DATASOURCE oDbf COLUMNS aCols ; AUTOSORT FONT oFont; NOBORDER CELL LINES CLASS TMyBrowse() CLASS TMyBrowse FROM TXBrowse CLASSDATA lRegistered AS LOGICAL DATA aCols2Hide AS ARRAY INIT Array(0) DATA aDefaultCols INIT ARRAY( 0 ) DATA aPreviousCols INIT ARRAY( 0 ) METHOD New (nRow, ...

Hola silvio, Tengo una clase: CLASS TFactur_1 FROM TIMPRIME CLASSDATA lRegistered AS LOGICAL DATA oFont_6 ..... que cuando la compilo da este .ppo: _HB_CLASS TFactur_1 ; function TFactur_1 ( ... ) ; STATIC s_oClass ; LOCAL nScope, oClass, oInstance ; IF s_oClass ...

CLASS TRibbonBar FROM TControl CLASSDATA lRegistered AS LOGICAL DATA oBold, oFont DATA aLeft DATA aPrompts DATA aDialogs DATA aSizes DATA aGrad DATA aGradFld DATA aGradOver DATA aGradHigh DATA aQuickRGrad DATA nQuickHigh INIT 32 <---- New ...

Dear Mr. Rao,

thanks for your competent help, it works perfectly! I didn't know about the functionality of class data "lRegistered".

yes the class have "CLASSDATA lRegistered AS LOGICAL" and the method redefine have registry command but now I saw there is not problem of new class but of pellesC because it make error also if I make Function test() Local oDlg DEFINE ...

Silvio,

What error do you get ?

You have to add this CLASSDATA to your own defined custom controls:

CLASSDATA lRegistered AS LOGICAL

and Method Redefine() should make a call to ::Register()

... #include "Constant.ch" //----------------------------------------------------------------------------// CLASS XVRD FROM VRD CLASSDATA lRegistered AS LOGICAL DATA cMenuData, oDlgRG, oWndRgX, lPrnRGX, oRechnung METHOD SetupMenu() METHOD End( ) ENDCLASS //----------------------------------------------------------------------------// ...

... #include "Constant.ch" //----------------------------------------------------------------------------// CLASS XVRD FROM VRD CLASSDATA lRegistered AS LOGICAL DATA cMenuData, oDlgRG, oWndRgX, lPrnRGX, oRechnung METHOD SetupMenu() METHOD End( ) ENDCLASS //----------------------------------------------------------------------------// ...

Mario,

Debería ser visible.

Por ejemplo, la Clase TWindow tiene la CLASSDATA lRegistered

Prueba a hacer:

MsgInfo( TWindow():lRegistered )

Silvio,

You need to add

CLASSDATA lRegistered INIT .F.

Mr Dutch My mistake. Derived class should also have classdata lRegistered. Anyway, please ignore my above suggestion totally. Instead let us have a revised #xcommand in our personal include file. myinclude.ch // revised say commands#xcommand REDEFINE SAY ...

Hello, every TWindow derived class must have a class data lRegistered and call ::Register method. CLASS pBrowse FROM kBrowse    CLASSDATA lRegistered AS LOGICAL    METHOD New( nRow, nCol, nWidth, nHeight, bLine, aHeaders, ;                aColSizes, ...

... DATA nPosicion DATA lTodoseCalculo AS LOGICAL INIT .F. DATA lProcesarTecla AS LOGICAL INIT .T. DATA lMostrarBoton AS LOGICAL INIT .T. CLASSDATA lRegistered AS LOGICAL METHOD New( ) CONSTRUCTOR //Bingen METHOD Display() METHOD Paint() METHOD Language() //Bingen METHOD LButtonDown( nRow, nCol, ...

... it is ok. Thanks to Cristobal! http://forums.fivetechsupport.com/viewtopic.php?p=153931#p153931 * Fix: Minor fix in class TLayout added classdata lRegistered * New: added layout.ch header file, useful xbase commands to TLayout class * Fix: Memory leak fixed in function DibWrite(). Thanks to Günther: ...

SGS wrote:Sr. Daniel,

CLASSDATA lRegistered AS LOGICAL

não deveria ser implementada nas novas versões do fivewin? EX: FWH 13.09 ???

not, is already implemented