FiveTech Software tech support forums

...   if ! Empty( oWnd:hWnd )      ::Create()      ::GetFont()//      oWnd:AddControl( Self )   else Commenting out oWnd:AddControl( Self ) seems to fix it. Can you confirm? EMG

... ::FijaClrDomingo() ::FijaClrFestivo() ::nStyle := nOr(WS_CHILD, WS_VISIBLE, WS_TABSTOP) ::Register() If !Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) Else oWnd:DefControl( Self ) Endif Return Self METHOD Display() CLASS TMiCalendario IF ::lContinuar ::lContinuar := .F. ::BeginPaint() ...

...  3942                   3943  3950 ACOORS                  WINDOW.PRG     1537  1540  1541  1541 ACTION                  WINDOW.PRG     3897  3899 ADDCONTROL()           (function  in ?)    WINDOW.PRG      495 ADIALOGS                WINDOW.PRG     3239  3239  3288 ADJBOTTOM()            (function ...

... WS_VISIBLE, WS_TABSTOP ) ::cProgID = cProgID ::cString = ActXString( cProgID ) ::Register() ? 'paso1' if ! Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) ? 'paso2' ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self ) ? 'paso3' ::oOleAuto = TOleAuto():New( ActXPdisp( ::hActiveX ) ) Saludos!

... AS NUMERIC INIT 0 METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() on New method if ! Empty( ::oWnd:hWnd ) ::Create() ::oWnd:AddControl( Self ) else ::oWnd:DefControl( Self ) endif on Default method IF ::lBlink DEFINE TIMER ::oOut INTERVAL ::nInterval OF ::oWnd ACTION ( ::nTime ...

Dear Antonio, Not run on tled class I insert on new method if ! Empty( ::oWnd:hWnd ) ::Create() ::Default() ::oWnd:AddControl( Self ) else ::oWnd:DefControl( Self ) endif IF ::lBlink DEFINE TIMER ::oTmr INTERVAL ::nInterval ACTION ::Blink() OF self Endif on Paint method at the init ...

!!FUNCIONA!! Muchas gracias, no sabes que favor me has hecho. Entiendo que ahora, en lugar de pasar por DefControl() pasa por AddControl() que es de TWINDOW, común a todo y todos. Lo que no llego a entender es porque ahora si funciona GetDlgItem() y antes no, pues hDlg no venía como 0 ...

... otras veces y no he tenido problemas, pero directamente sobre windows. Entiendo que en su método NEW() en vez de pasar el flujo del programa por AddControl() pasda por DefControl() y no le asigna el ::nId al TPANEL y eso que durante la definicion del control (un SAY por ejemplo) le digo OF oDlg, ...

... lleva algo asi como cinco horas trabajando salta un error tal que: Descripcion Error: Error BASE/1004 Class: 'SYMBOL' has no exported method: ADDCONTROL Args: [ 1] = U SYMBOL [ 2] = U nil NIL Me huele que la cosa es tema de recursos; que en mi aplicacion tengo que tener un puñado de "fugas" ...

... ) ::Create( "STATIC" ) SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) ) oWnd:AddControl( Self ) ::Default() Else oWnd:DefControl( Self ) EndIf If lDesign ::CheckDots() EndIf Return Self * ============================================================================ ...

... := .f. #endif ::SetColor( ::nClrText, ::nClrPane ) ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) ) if ! Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif return Self //----------------------------------------------------------------------------// METHOD ...

... ::nStyle = nOR( WS_CHILD, WS_VISIBLE ) ::cProgID = cProgID ::cString = ActXString( cProgID ) ::Register() if ! Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self ) ::nTop = nRow ::nLeft = nCol ::nWidth = nWidth ::nHeight = nHeight ::ReadTypes() ...

... lAllWidth,; oFont ) CLASS TFolder ..... if ! Empty( oWnd:hWnd ) #ifdef __CLIPPER__ ::Create() #else ::Create( "SysTabControl32" ) #endif oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif .... return Self por favor indicame si me funciona con estas versiones y de los contrario cuanto ...

... nClrText, nClrBack ) ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) ) if ! Empty( oWnd:hWnd ) ::Create() ::Default() if ::l3D ::Set3DLook() endif oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif if ::lDrag ::CheckDots() endif return Self //----------------------------------------------------------------------------// ...

... ) .and. ::cAlias != "TREE_" If ! Empty( ::oWnd:hWnd ) ::Create() If oFont != Nil ::SetFont( oFont ) EndIf ::lVisible = .T. ::Default() ::oWnd:AddControl( Self ) Else ::oWnd:DefControl( Self ) If oFont != Nil ::SetFont( oFont ) EndIf ::lVisible = .F. EndIf ::nHeightFoot := 0 ::nHeightCell := ...