FiveTech Software tech support forums

Hola Antonio,

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

Muchas gracias, por su tiempo.
Pere

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

Code: Select all  Expand view

ACTIVATE WINDOW oWnd2

Code: Select all  Expand view

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

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"<<<

 

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)


 

Code: Select all  Expand view

ACTIVATE WINDOW oWndFW ON INIT ::Hide()