FiveTech Software tech support forums

... nOR( CS_VREDRAW, CS_HREDRAW ) )   if ! Empty( oWnd:hWnd        .../...  Asi lo he probado y aparentemente ya no da el error en el DefControl

...     ::Create()      ::SetColor( XEval( ::nClrText ), ::nClrPane )      oWnd:AddControl( Self )   else      oWnd:DefControl( Self )   endif Luego si el error lo da en DefControl, quiere decir que por alguna razón la ventana principal no se ha creado, pues ...

... Pack 1 Time from start: 0 hours 0 mins 2 secs Error occurred at: 06/27/14, 09:01:44 Error description: Error BASE/1004 Message not found: TBTNFLAT:DEFCONTROL Args: [ 1] = O TBTNFLAT Stack Calls =========== Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg => TBTNFLAT:ERROR( ...

... 1 Time from start: 0 hours 0 mins 17 secs Error occurred at: 23-06-2014, 00:41:49 Error description: Error BASE/1004 Message not found: TMDICHILD:DEFCONTROL Args: [ 1] = O TMDICHILD Stack Calls =========== Called from: => __ERRRT_SBASE( 0 ) Called from: => TMDICHILD:ERROR( 0 ) Called from: ...

TWindow class does not have DefControl method. Only TDialog class has this method.

Hello, One customer reported us: Error description: Error BASE/1004 Message not found: TWINDOW:DEFCONTROL Args: [ 1] = O TWINDOW Stack Calls =========== Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg => TWINDOW:ERROR( 0 ) Called from: ../../../tobject.prg ...

... 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 ++,::Blink()) ACTIVATE TIMER ...

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 I Insert IF ...

!!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 ...

... y un SAY sobre el panel para que falle la compilación. El inconveniente es que cuando se crea el TSAY, al final de su método New() llama a ::oWnd:DefControl(), pero resulata que el ::oWnd es el TPANEL que es un control, no un Dialogo, y TCONTROL no tiene método DefControl() por lo que el TSAY ...

Se me olvidaba. Mi FWH es bastante antiguo, del 2007. Lo mismo en vuestras versiones eso ya está solucionado. Si vuestro TPANEL tiene METHOD DefControl() me sería de gran ayuda que me posteeis dicho método (no la clase entera claro) a ver si con eso puedo solucionar mi problema.

Gracias

... mías de repintado que no vienen al caso. Resulta que no me deja colocar controles en el TPANEL. Primero me daba "Message Not found: TPANEL:DEFCONTROL". Así que le implementé un METHOD DefControl() AL TPANEL, tal que así: METHOD DefControl( oCtrl )   DEFAULT oCtrl:nId := oCtrl:GetNewId() ...

... 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 * ============================================================================ * ...

... error: Error description: Error FiveWin/2 Duplicated Id: No: 107 Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => TDIALOG:DEFCONTROL(0) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE(0) Called from: C:\Users\David\DOCUME~2\MISPRO~1\Gesco\PROC_1.PRG ...

... error: Error description: Error FiveWin/2 Duplicated Id: No: 107 Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => TDIALOG:DEFCONTROL(0) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE(0) Called from: C:\Users\David\DOCUME~2\MISPRO~1\Gesco\PROC_1.PRG ...