FiveTech Software tech support forums

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

http://wiki.fivetechsoft.com/doku.php?i ... _lwrunning

Robb

I saw it but I didn't understand...

emotta_no,

There is a sample WINPOP4.prg
Maybe it gives You the infos You need.

hActiveWnd = If( ::oWnd != nil, ::oWnd:hWnd,;
If( nDlgCount > 1 .or. lWRunning(),;
GetActiveWindow(), GetWndApp() ) )

Best regards
Uwe

What's lWRunning?

What does the "lWRunning" function?

Antonio, when I use xharbour january 2013 and FWH1309 and compile a simple test (achoice): #include "FiveWin.ch"//----------------------------------------------------------------//function Main()   SET _3DLOOK ON   MsgInfo( MsgSelect( { "one&qu...

when I compile simpe progam using FWH 2013.09 and xHarbour.com #include 'fivewin.ch' proc main alert('Test 2013.09') return a got error Type: C >>>xhb.exe -o"t.c" -m -n -q -gc0 -I"S:\include" -I"R:\include" -I"R:\include\w32" "t.prg"<<...

I have the latest FWH build, re-downloaded this morning, which is 13.09 ( 2nd Build ). My primary project code builds perfectly usining FWH 13.08 and xHarbour ( .com ) from Summer 2010. Using FWH 13.09, with the EXACT SAME LINK SCRIPT AND CODEBASE ... yields the following errors unresolved externals...

Antonio, I installed FWH 13.09 but after rebuilding my application, I got a whole list of externals which weren't found : _HB_FUN_RESALLFREE _HB_FUN_SYSREFRESH _HB_FUN_LASTKEY _HB_FUN_LWRUNNING _HB_FUN_READBITMAP _HB_FUN_GETWNDAPP _HB_FUN_DIALOGBOX _HB_FUN_WINRUN .... (a lot more) Any idea what is w...

...  1330 LVSCROLL                WINDOW.PRG      485  1114  1119  1134  1195 LWHEN()                (function  in ?)    WINDOW.PRG      700  3377 LWRUNNING()            (function  in ?)    WINDOW.PRG     1332  1343 M                      WINDOW.PRG     2062 MAXIMIZE()             (function  in ...

... Loadlib32() LoadLibrary() LoadMenu() LoadResource() LoadString() LoadValue() LocalShrink() LogEvent() LogStatics() lOpen() LPToDP() lRMDir() lWRunning() lXor() LZCopyFile() MakeWin() MapDialogRect() MCIGetErrorString() MCISendCommand() MCISendString() MdiCtrlAdjust() MDIRecEdit() MeasureItem() ...

... assigned for a dialog // "U" if empty ::nLastKey = 0 ++nDlgCount hActiveWnd = If( ::oWnd != nil, ::oWnd:hWnd,; If( nDlgCount > 1 .or. lWRunning(),; GetActiveWindow(), GetWndApp() ) ) ::lCentered = lCentered ::lModal = lModal ::bLClicked = bLClicked ::bRClicked = bRClicked ::bWhen = ...

... 'destroy' does call PostQuitMessage(0), however I end up with the xHb app code running in task manager with the Frame Wnd closed. If I check lWRunning() at that point it returns .f. so the FW event loop is not running but the xHb code is still running and never returns to after the Frame ...

... OF oDlg TO oFont ACTIVATE DIALOG oDlg CENTERED ; ON PAINT DrawBitmap( hDC, hLogo, 6, 6 ) DeleteObject( hLogo ) oFont:End() If lRet == Nil .Or. ( !LWRunning() .And. lRet ) DBCLOSEALL() SET RESOURCES TO ErrorLevel( 1 ) /* Rossine, Please add these lines in source\function\errsysw.prg: Código: */ ...