FiveTech Support Forums

Hola a todos.
Hace ya tiempo que no programo, y ahora me toca de nuevo, he comprado Harbour/(x)Harbour y me pongo a compilar un módulo en el que solo hay un menú, y despues de algunas vicisitudes con Verce para poder compilar, me arroja el siguiente error

Application
===========
Path and name: D:\clientes\REGEL2\REGELW\REGEL.Exe (32 bits)
Size: 375,808 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04-11-2007, 11:39:30
Error description: Error BASE/1004 No exported method: NHEIGHT
Args:
[ 1] = U

Stack Calls
===========
Called from: => NHEIGHT(0)
Called from: D:\clientes\REGEL2\REGELW\geshinic.prg => (b)MAIN(69)
Called from: => TMDIFRAME:PAINT(0)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => UPDATEWINDOW(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: D:\clientes\REGEL2\REGELW\geshinic.prg => MAIN(69)

System
======
CPU type: Intel(R) Celeron(R) CPU 2.80GHz 2683 Mhz
Hardware memory: 256 megs

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

Compiler version: Harbour devel build 1.1-1 Intl.
Windows version: 5.0, Build 2195 Service Pack 4

La línea que produce el error es esta

ACTIVATE WINDOW oWMain MAXIMIZED ;
ON PAINT PalBmpDraw( hDC, ;
( oWMain:nHeight() / 4 ) - ( oBmp:nHeight() / 4 ) - 50,;
( oWMain:nWidth() / 4 ) - ( oBmp:nWidth() / 4 ), oBmp:hBmpPal ) ;
ON INIT EscogeArea() ;
VALID MsgYesNo( "Realmente desea salir?","Elija" )


Esto funciona bien en Fivewin, pero parece que no en Harbour,

¿Alguna ayudita?

Gracias a todos

Pedro

Pedro,

Comprueba que oBmp sea distinto de nil (busca en el PRG en donde creas oBmp):

MsgInfo( oBmp:ClassName() )

ACTIVATE WINDOW ...

tambien tienes que cambiar oBmp:hBmpPal por oBmp:hBitmap

Gracias Antonio, funcionó, el Bitmap venía a nil.
Ahora me ocurre algo extraño, cuando finalizo la aplicación algunos programas no funcionan, incluso al cerrar el pc se queda como loco y no lo cierra, alguna biblioteca debe quedarse residente.

Te comento que libero todos los recursos que uso.

Pedro

Pedro,

Usas XP ó Vista ?

Si quieres envíame por email en un ZIP el PRG y el EXE y lo probamos aqui, gracias

Antonio Linares wrote:Pedro,

Usas XP ó Vista ?

Si quieres envíame por email en un ZIP el PRG y el EXE y lo probamos aqui, gracias

Ni Xp ni Vista, Windows 2000 profesional

Esta noche te envío un zip con el prg y el exe.

Gracias

Pedro