FiveTech Software tech support forums

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

... TQUICKACCESS 19 TMSGBAR 20 TRECT 21 TMSGITEM 22 TTIMER 23 TDOLPHINQRY 24 TDIALOG 25 TXBROWSE 26 TXBRWCOLUMN 27 TSAY 28 TGET 29 GET 30 TCLIPGET 31 TCHECKBOX 32 TBTNBMP 33 TSCROLLBAR 34 TCLIPBOARD 35 TBUTTON 36 TBUTTONBMP 37 TBAR 38 TSTRUCT Memory Analysis =============== 395 Static variables Dynamic ...

... 15: O Class: TCOMBOBOX Local 16: O Class: TCOMBOBOX Local 17: C "" Local 18: L .T. Local 19: L .T. Local 20: L .T. Local 21: O Class: TCHECKBOX Local 22: O Class: TCHECKBOX Local 23: L .F. Local 24: L .F. Local 25: A Len: 6 Local 26: N 2015 Local 27: O Class: TCOMBOBOX Local 28: C ...

...    { | o |                   If ! Upper( o:ClassName() ) $ "TCHECKBOX;TRADIO;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK" .and. ! o:IsKindOf( 'TXBROWSE' )  ...

... nil Hago los procesos que me interesan y luego con el mandato ::Super:Click() llamo al método Click de la clase principal (en este caso TCheckBox) Muchas gracias

... nil Hago los procesos que me interesan y luego con el mandato ::Super:Click() llamo al método Click de la clase principal (en este caso TCheckBox)

... 16 TRIBBONBAR 17 TRPANEL 18 TRBGROUP 19 TRBTN 20 TQUICKACCESS 21 TMSGBAR 22 TRECT 23 TMSGITEM 24 TTIMER 25 TDIALOG 26 TGET 27 GET 28 TCLIPGET 29 TCHECKBOX 30 TBTNBMP 31 TSAY 32 TCOMBOBOX 33 TDBCOMBO 34 TBUTTON 35 TBUTTONBMP 36 TBITMAP 37 TIMAGE 38 TRADMENU 39 TRADIO 40 TXBROWSE 41 TXBRWCOLUMN ...

... ), o:Refresh() ), NIL ), ; IF( o:ClassName == "TRADIO", ( o:nClrText := nTextColor, o:Refresh() ), NIL ), ; IF( o:ClassName == "TCHECKBOX", ( o:SetColor( nTextColor, nBackColor ), o:Refresh() ), NIL ) } ) // --- DIALOG --- AEval( oDlgMain:aControls, { |o| IF( o:ClassName ...

... nTextColor, nBackColor ), NIL ), ; // works !!! IF( o:ClassName == "TRADIO", o:nClrText := nTextColor, NIL ), ; IF( o:ClassName == "TCHECKBOX", o:SetColor( nTextColor, nBackColor ), NIL ), ; o:Refresh() } ) // DIALOG AEval( oDlgMain:aControls, { |o| IF( o:ClassName == "TSAY", ...

... => TCOMBOBOX:SETITEMS(0) Called from: .\peticion.PRG => (b)PETREPORTE(0) Called from: .\source\classes\CHECKBOX.PRG => TCHECKBOX:CLICK(142) Os adjunto tambien el codigo por si podeis echarme una mano porque estoy perdido . Muchas Gracias.    tcomponente := {}  ...

... 08.01.2016 21:28:50: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : -5 ) <-TFONT:END(284) <-TCHECKBOX:DESTROY(2132) <-TWINDOW:HANDLEEVENT(0) <-TCHECKBOX:HANDLEEVENT(1733) <-_FWH(3288) <-DIALOGBOX(0) <-TDIALOG:ACTIVATE(293) <-TRAIN_ERF(1080) ...

... are replaced by FWH function AdoDefault(), since older versions of Harbour did not have the function OleDefaultArg() * Enhancement: Class TCheckBox Method Redefine() was missing DEFAULT lUpdate to .F.. Now it is ok: http://forums.fivetechsupport.com/viewtopic.php?p=177731#p177731 many ...

... are replaced by FWH function AdoDefault(), since older versions of Harbour did not have the function OleDefaultArg() * Enhancement: Class TCheckBox Method Redefine() was missing DEFAULT lUpdate to .F.. Now it is ok: http://forums.fivetechsupport.com/viewtopic.php?p=177731#p177731 many ...

... are replaced by FWH function AdoDefault(), since older versions of Harbour did not have the function OleDefaultArg() * Enhancement: Class TCheckBox Method Redefine() was missing DEFAULT lUpdate to .F.. Now it is ok: http://forums.fivetechsupport.com/viewtopic.php?p=177731#p177731 many ...

Antonino,

Implemented for next build,

many thanks!