FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FiveWin con xHarbour Comercial + GTWVW
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Jul 20, 2010 10:59 PM

Prueba a usar este c贸digo:

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

oWnd:Show()

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Wed Jul 21, 2010 06:47 AM
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
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Fri Jul 23, 2010 07:44 AM

Hola Antonio,

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

Muchas gracias, por su tiempo.
Pere

Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Mon Aug 16, 2010 09:06 AM
Hola Antonio,

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

Muchas gracias, por su tiempo.
Pere



Gracias.
Pere
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 11:20 AM
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.
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 12:05 PM
Pere

Prueba con este codigo

activa la ventana pero dejala oculta y en coordenadas negativas

Code (fw): Select all Collapse
#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
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 02:21 PM
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 (fw): Select all Collapse
ACTIVATE WINDOW oWnd2

En las l铆nias del Methodo ACTIVATE de twindow :
Code (fw): Select all Collapse
聽 聽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
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 02:28 PM

pere

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

Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 02:45 PM
AQUI TE DEJO LA DEFINICI脫N SE FWFACTURA.EXE.XBP ( sin los archivos PRG )

Code (fw): Select all Collapse
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 (fw): Select all Collapse
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
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 02:51 PM

Pere

Coloca primero las librerias de fivewin y prueba

Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 03:09 PM
Hola Daniel,

Mucho Mejor,

Solo queda este error, supongo !!!
Code (fw): Select all Collapse
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
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 03:11 PM

Pere

que hay FWACTAPLITEC linea 21

Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 03:12 PM
Code (fw): Select all Collapse
ACTIVATE WINDOW oWndFW ON INIT ::Hide()
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 03:36 PM

Pere

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

Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWin con xHarbour Comercial + GTWVW
Posted: Tue Aug 17, 2010 03:50 PM

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.