FiveWin con xHarbour Comercial + GTWVW

[Antonio Linares]

Prueba a usar este código:

DEFINE WINDOW oWnd FROM 10,10 TO 600, 800 PIXEL

oWnd:Show()

[pcordonet]

Buenos dias Antonio,

He provado lo que y continua dandome el error, aqui tienes el CallStack:


Y aqui las variables:


Parece que esto passa despues de hacer paint de twindow.
Muchas gracias
Pere

[pcordonet]

Hola Antonio,

Ya me pienso que tienes mucha faena pero, podrias indicarme algun camino ?

Muchas gracias, por su tiempo.
Pere

[pcordonet]

Hola Antonio,

Ya me pienso que tienes mucha faena pero, podrias indicarme algun camino ?

Muchas gracias, por su tiempo.
Pere

Gracias.
Pere

[pcordonet]

Me puesto a passar por el debugger, y me he encontrado que la función BeginPaint dentro de METHOD _BeginPaint() CLASS TWindow

Me devuelve 0 y cPS no devuelve nada.

Puede ser la Causa?

Se puede solucionar ??

Espero almenos una respuesta,
Gracias.

Pere.

[Daniel Garcia-Gil]

Pere

Prueba con este codigo

activa la ventana pero dejala oculta y en coordenadas negativas

Code: Select all  Expand view

#include "fivewin.ch"

FUNCTION testing()
LOCAL oWnd, oWnd2

   DEFINE WINDOW oWnd TITLE "FIVEWIN MAIN WINDOW"
   
   //movemos a coordenadas negativas para que no se vea el WINDOW
   //despues la ocultaremos
   oWnd:Move( -1000, -1000 )
   
   DEFINE WINDOW oWnd2 TITLE "bbb" STYLE nOR( WS_POPUP, WS_CAPTION, ;
                                              WS_SYSMENU, WS_THICKFRAME, ;
                                              WS_MINIMIZEBOX, WS_MAXIMIZEBOX ) of oWnd
   
   ACTIVATE WINDOW oWnd2 //VALID( oWnd:End(), .T. )
   
   
   ACTIVATE WINDOW oWnd ON INIT ::Hide()

RETURN NIL

[pcordonet]

Hola Daniel,

Primero de todo, gracias por darme algun indicativo por donde tengo que ir.

Lamentablemente, no se ha corregido el error.

Cuando hago el primer

Code: Select all  Expand view

ACTIVATE WINDOW oWnd2

En las línias del Methodo ACTIVATE de twindow :

Code: Select all  Expand view

   ShowWindow( ::hWnd, AScan( { "HIDDEN", "NORMAL", "ICONIZED", "MAXIMIZED" }, cShow ) - 1 )
   UpdateWindow( ::hWnd )
 

Antes de tu solución http://forums.fivetechsupport.com/posting.php?mode=reply&f=6&t=19295#pr103362 se paraba en SHOWWINDOW, ahora llega en UPDATEWINDOW y con el mismo problema.
En BeginPaint, el ::hDC se queda a 0 y CPS también.

Otra cosa para probar ??

Muchas Gracias.
Pere

[Daniel Garcia-Gil]

pere

el punto parece es que no se esta generarndo un handled valido para una ventana
que librerias estas enlazando?

[pcordonet]

AQUI TE DEJO LA DEFINICIÓN SE FWFACTURA.EXE.XBP ( sin los archivos PRG )

Code: Select all  Expand view

CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS = G:\CLIENTS\GENXHB\LIBEXT\Include;I:\xHB\include;I:\xHB\c_include\Win;I:\HwGui\include
LAUTORUN = .T.
LDEBUG = .F.
LGUI = .T.
LIBFOLDERS = I:\xHB\c_lib\Win;I:\HwGui\lib
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .T.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS = -DHB_EXT_INKEY -N -DHB_NO_READDBG -D__GTWVW__ -D__GESTIO__ -D__PFW__ -D__APLITEC_FW__
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER = OBJFW
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =

[I:\FWH\lib\xhb2.obj]

[G:\Clients\GENXHB\LIBEXT\LIB\xhb3.obj]

[I:\xHB\c_lib\profiler.lib]

[I:\xHB\lib\SixCDX.lib]

[I:\xHB\lib\Ole.lib]

[I:\xHB\lib\xHB.lib]

[I:\xHB\lib\Nanfor.lib]

[I:\hwgui\lib\hwgui.lib]

[I:\xHB\lib\GD.lib]

[I:\xHB\lib\FTS32.lib]

[I:\xHB\lib\WVW.lib]

[I:\xHB\lib\xHBCOMM.lib]

[I:\xHB\lib\xHBCommDll.lib]

[I:\FWH\lib\Fivehcm.lib]

[I:\FWH\lib\Fivehmx.lib]

[I:\FWH\lib\oledlg.lib]

[I:\FWH\lib\version.lib]

 

Code: Select all  Expand view

Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"I:\xHB\c_lib\Win" -LIBPATH:"I:\HwGui\lib" -LIBPATH:"I:\fwh\lib" -LIBPATH:"I:\xHB\lib" -LIBPATH:"I:\xHB\c_lib" -LIBPATH:"I:\xHB\c_lib\win"  DbgServe.lib "I:\xHB\c_lib\profiler.lib" "I:\xHB\lib\SixCDX.lib" "I:\xHB\lib\Ole.lib" "I:\xHB\lib\xHB.lib" "I:\xHB\lib\Nanfor.lib" "I:\hwgui\lib\hwgui.lib" "I:\xHB\lib\GD.lib" "I:\xHB\lib\FTS32.lib" "I:\xHB\lib\WVW.lib" "I:\xHB\lib\xHBCOMM.lib" "I:\xHB\lib\xHBCommDll.lib" "I:\FWH\lib\Fivehcm.lib" "I:\FWH\lib\Fivehmx.lib" "I:\FWH\lib\oledlg.lib" "I:\FWH\lib\version.lib" "OptG.lib" "six.lib" "sde61.lib" "sql.lib" "ace32.lib" "libmysql.lib" "libpq.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"FWfactura.exe"<<<

 

Te sirve esto ?

Gracias

[Daniel Garcia-Gil]

Pere


Coloca primero las librerias de fivewin y prueba

[pcordonet]

Hola Daniel,

Mucho Mejor,

Solo queda este error, supongo !!!

Code: Select all  Expand view

Application
===========
   Path and name: I:\CLIENTS\COMERCIAL\FACTURA\FWfactura.exe (32 bits)
   Size: 6,112,768 bytes
   Time from start: 0 hours 0 mins 8 secs
   Error occurred at: 08/17/10, 17:08:32
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: BLCLICKED
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => BLCLICKED(0)
   Called from: G:\Clients\GENXHB\FIVEWIN\FWRutina1.prg => FWACTAPLITEC(21)
   Called from: G:\CLIENTS\GENERIC\LIBAPLI\FONTS\GENERIC.PRG => GENERIC(117)
   Called from: G:\CLIENTS\GENERIC\FACTURA\FONTS\FACTURA.PRG => FACTURA(75)


 

Gracias

[Daniel Garcia-Gil]

Pere

que hay FWACTAPLITEC linea 21

[pcordonet]

Code: Select all  Expand view

ACTIVATE WINDOW oWndFW ON INIT ::Hide()
 

[Daniel Garcia-Gil]

Pere

Como creas oWndFW al parecer no tiene ningun valor, que tipo de variable es? donde la declaras?

[pcordonet]

Muchas gracias por todo Daniel.

Tenia declarada una variable publica, pero en la función la tenia puesta como parametro.
Todo solucionado.

Muchas gracias otra vez.

Ahora ya puedo seguir con mi desarrollo.

Pere.