Page 1 of 1

Error BASE/1004 No exported method: HBRUSH

Posted: Wed Oct 08, 2008 10:16 am
by RPATON
Hola:

Tengo definido un TPanel. Cuando entro por primera vez a bien, pero al salir y volver a entrar me aparece el error BASE/1004 No exported method: HBRUSH.

Utilizo el FWH 8.09 y Harbour 1.0.1dev Intl. (Rev. 9361) bajado de la página de Antonio de este mes Septiembre.

El código que utilizo es:
#include "Fivewin.ch"
#include "c5grid.ch"

extern GetTextWid

FUNCTION Cliente()
LOCAL oWndChild
LOCAL oBar
LOCAL oPanel,oTabs

DEFINE WINDOW oWndChild TITLE "Registro de Clientes" MDICHILD NOSYSMENU

DEFINE BUTTONBAR oBar OF oWndChild SIZE 50,40 2007

#ifndef __XPP__
oPanel = TPanel():New()
#else
oPanel = TPanel():New():_New()
#endif
oWndChild:oClient = oPanel // It is the client control of oWnd
@ 0,0 TABS oTabs PROMPTS OemToAnsi("C¢digo"),"Nombre","Comercial" OF oPanel ;
ACTION ( oGrid:=CambiaIndex(oGrid,oTabs:nOption,2) )
oPanel:oBottom = oTabs


DEFINE BUTTON oBtn5 OF oBAR RESOURCE "BTNLINEXIT" ;
TOOLTIP "(S)alir" GROUP NOBORDER ;
PROMPT "Salir" ;
ACTION( oWndChild:End() )

ACTIVATE WINDOW oWndChild MAXIMIZED

RETURN .F.


Application
===========
Path and name: S:\RICARDO\noblewin\NOBLEWIN.EXE (32 bits)
Size: 5,272,576 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 08/10/2008, 12:08:56
Error description: Error BASE/1004 No exported method: HBRUSH
Args:
[ 1] = U

Stack Calls
===========
Called from: => HBRUSH(0)
Called from: => TPANEL:PAINT(0)
Called from: .\source\classes\TPanel.PRG => (b)TPANEL(0)
Called from: => TPANEL:DISPLAY(0)
Called from: => TPANEL:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => UPDATEWINDOW(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => TMDICHILD:ACTIVATE(0)
Called from: S:\RICARDO\noblewin\CLIENTE_.PRG => CLIENTE(42)
Called from: S:\RICARDO\noblewin\MENU_.PRG => (b)MENUGENERAL(97)
Called from: => TBTNBMP:CLICK(0)
Called from: => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: S:\RICARDO\noblewin\NOBLEWIN.prg => MAIN(156)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz
Hardware memory: 504 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour 1.0.1dev Intl. (Rev. 9361)
Windows version: 5.1, Build 2600 Service Pack 3

Con TPANEL.PRG de FWH 2.7 no da el error

Posted: Wed Oct 08, 2008 2:25 pm
by RPATON
Hola Antonio:

He probado a compilar el TPANEL.PRG de la versión 2.7 y no da el error.

Mira a ver por qué en al versión que actualicé de FWH el Lunes pasado 8.09 da este error.

Saludos.

Ricardo Patón