New FWH 11.11

[Antonio Linares]

Rimantas,

The problem comes from BTNBMP controls when using NOBORDER clause, as they don't get WS_TABSTOP style.

The solution is to modify Class TBtnBmp this way:

Code: Select all  Expand view

  ::nStyle    = nOR( WS_CHILD, WS_VISIBLE,; // WS_CLIPSIBLINGS
                      If( lBorder, If( l2007, 0, WS_BORDER ), 0 ),;
                      If( lBorder .and. ;
                      ! Upper( oWnd:ClassName() ) $ "TBAR;TOUTLOOK;TXBROWSE", WS_TABSTOP, 0 ),;
                      If( ( ! lBorder ) .and. oWnd:IsKindOf( "TDIALOG" ), WS_TABSTOP, 0 ) )
 

After that change, this example (which is similar like yours but simpler) is working fine

rimantas.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, cPassw := Space( 10 )

   DEFINE DIALOG oDlg TITLE "Rimanta's Test" ;
      SIZE 400, 200

   @ 1, 2 SAY "User:"

   @ 1, 5 GET cPassw PASSWORD

   @ 50, 40 BTNBMP PROMPT "Ok" SIZE 40, 15 NOBORDER ACTION oDlg:End()

   @ 50, 110 BTNBMP PROMPT "Cancel" SIZE 40, 15 NOBORDER ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

[Rimantas]

Rimantas,

The problem comes from BTNBMP controls when using NOBORDER clause, as they don't get WS_TABSTOP style.

The solution is to modify Class TBtnBmp this way:

Code: Select all  Expand view

  ::nStyle    = nOR( WS_CHILD, WS_VISIBLE,; // WS_CLIPSIBLINGS
                      If( lBorder, If( l2007, 0, WS_BORDER ), 0 ),;
                      If( lBorder .and. ;
                      ! Upper( oWnd:ClassName() ) $ "TBAR;TOUTLOOK;TXBROWSE", WS_TABSTOP, 0 ),;
                      If( ( ! lBorder ) .and. oWnd:IsKindOf( "TDIALOG" ), WS_TABSTOP, 0 ) )
 

After that change, this example (which is similar like yours but simpler) is working fine

Antonio ,

OK , I did change in btnbmp.prg and added prg to project . Now it's working . But I hope to get true fwh libs with changes . 11.11 is the last month to me . What about that ?

[Antonio Linares]

Rimantas,

We published FWH 11.11 today. Lets see if there are some more fixes to apply and then we will publish it again in a day or two

In the meantime, your code is working fine

[Antonio Linares]

Michel,

We just downloaded the most recent demo for xHB and added these libs:

libcmt.lib
http://code.google.com/p/harbour-and-xharbour-builds/downloads/detail?name=LIBCMT.LIB&can=2&q=

libcpmt.lib
http://code.google.com/p/harbour-and-xharbour-builds/downloads/detail?name=libcpmt.lib&can=2&q=

png.lib
http://code.google.com/p/harbour-and-xharbour-builds/downloads/detail?name=png.lib&can=2&q=

mem32.lib
http://code.google.com/p/harbour-and-xharbour-builds/downloads/detail?name=mem32.lib&can=2&q=

send32.lib
http://code.google.com/p/harbour-and-xharbour-builds/downloads/detail?name=send32.lib&can=2&q=

Also we had to recompile FWH\source\function\gettasks.prg as it was not properly build

and our example was properly built and executed fine

[Antonio Linares]

Used xbp file:

test.exe.xbp

Code: Select all  Expand view

CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS =
LAUTORUN =
LDEBUG = .F.
LGUI = .T.
LIBFOLDERS =
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER =
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =

[test.prg]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =

[mem32.lib]

[send32.lib]

[LIBCMT.LIB]

[libcpmt.lib]

[png.lib]
 

[driessen]

Antonio,

I tried out your suggestion. Unfortunately, the error "couldn't build" persists.

This is my PRG-file :

Code: Select all  Expand view

******************************************************************************
*                                                                            *
*   Program : IPADRES.PRG                                                    *
*   Author  : DRIESSEN Michel                                                *
*   Date    : 24/11/2011 - Ipadres - xHarbour                                *
*                                                                            *
*   Goal    : Looking for internal en external IP-address                    *
*                                                                            *
******************************************************************************
#INCLUDE "FIVEWIN.CH"
#DEFINE DEFAULT(xVar,xVal) xVar=IF(xVar=NIL,xVal,xVar)
******************************************************************************

FUNCTION IP_ADRES(nSec)

   LOCAL oHttp

   LOCAL cVar1     := ""
   LOCAL cVar2     := ""
   LOCAL cSec      := 0

   LOCAL cIPADRES1 := "www.dnsstuff.com/docs/ipall"
   LOCAL cIPADRES2 := "Your IP Address: <strong>"
   LOCAL cIPADRES3 := "</strong>"

   DEFAULT(nSec,"0")

   cSec := VAL(nSec)

   WsaStartUp()
   cVar1 := GetHostByName(GetHostName())
   WsaCleanUp()

   oHttp := CreateObject("winhttp.winhttprequest.5.1")
   oHttp:Open("GET","http://"+ALLTRIM(cIPADRES1),.f.)
   oHttp:Send()
   cVar2 := oHttp:ResponseText()
   cVar2 := StrExtract(cVar2,ALLTRIM(cIPADRES2),ALLTRIM(cIPADRES3))

   IF cSec = 0
      MsgAlert(IF(!EMPTY(cVar1),"Your current internal IP-address is : "+ALLTRIM(cVar1)+IF(!EMPTY(cVAR2),CHR(13)+CHR(13),""),"") + IF(!EMPTY(cVar2),"Your current external IP-address is : "+ALLTRIM(cVar2),""),"Take care")
   ELSE
      MsgWait(IF(!EMPTY(cVar1),"Your current internal IP-address is : "+ALLTRIM(cVar1)+IF(!EMPTY(cVAR2),"       -       ",""),"") + IF(!EMPTY(cVar2),"Your current external IP-address is : "+ALLTRIM(cVar2),""),"Take care",cSec)
   ENDIF

   QUIT

RETURN(.T.)

******************************************************************************

STATIC FUNCTION StrExtract(cText,cAfter,cBefore)

   LOCAL cRet := SUBSTR(cText,AT(cAfter,cText) + LEN(cAfter))
   LOCAL n

   IF (n := AT(cBefore,cRet)) > 0
      cRet := LEFT(cRet,n - 1)
   ENDIF

RETURN(cRet)

******************************************************************************

FUNCTION OleInvoke(hObj,cMethod,uParam)

#IFNDEF __XHARBOUR__
   RETURN __ObjSendMsg(TOleAuto():New(hObj),cMethod,uParam)
#ELSE
   LOCAL aParams := hb_aParams()
   aParams[1] := TOleAuto():New(hObj)
   RETURN hb_execFromArray(@__ObjSendMsg(),aParams)
#ENDIF

******************************************************************************

FUNCTION OleSetProperty(hObj,cPropName,uValue)

RETURN __ObjSendMsg(TOleAuto():New(hObj),"_" + cPropName,uValue)

******************************************************************************

FUNCTION OleGetProperty(hObj,cPropName)

RETURN __ObjSendMsg(TOleAuto():New(hObj),cPropName)

******************************************************************************

This is my XBP-file :

Code: Select all  Expand view

CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS = C:\FWH\INCLUDE
LAUTORUN = .F.
LDEBUG = .F.
LGUI = .F.
LIBFOLDERS = C:\FWH\LIB
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS =
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER = OBJ
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =

[PRG\IPADRES.PRG]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =

[C:\FWH-Obj\xhb.obj]

[C:\FWH-Lib\libcmt.lib]

[C:\FWH-Lib\libpcmt.lib]

[C:\FWH-Lib\mem32.lib]

[C:\FWH-Lib\png.lib]

[C:\FWH-Lib\send32.lib]

Maybe you can check what is wrong?

Thanks a lot in advance.

[PeterHarmes]

Downloaded all the lib files, get the following now:


xLINK: warning: Multiple '.CRT$XIC' sections found with different attributes (0x40000040 and 0xc0000040).
xLINK: warning: Multiple '.CRT$XIC' sections found with different attributes (0x40000040 and 0xc0000040).
Creating object: \6.00\exe\ord_mod.EXP
Creating library: \6.00\exe\ord_mod.LIB
xLINK: error: Unresolved external symbol '___security_cookie referenced from Fivehmx.lib(GETTASKS.obj)'.
xLINK: error: Unresolved external symbol '@__security_check_cookie@4 referenced from Fivehmx.lib(GETTASKS.obj)'.
xLINK: fatal error: 2 unresolved external(s).

Type: C >>>Couldn't build: ord_mod.exe<<<
Type: C >>>TMAKEPROJECT<<<
Type: C >>>TMAKEPROJECT:REFRESH<<<
Type: N >>>

[driessen]

Sorry, Antonio, but I found the error.

I linked "libpcmt.lib" but it has to be "libcpmt.lib".

So, problem solved.

Thanks.

[PeterHarmes]

Michel,

Are you compiling with xHarbour.com & not getting any errors?

What version of xHarbour builder are you using? I'm still using an old version so i'm wondering if I need to also update xHarbour?

Best regards,

Pete

[Antonio Linares]

Pete,

You have to recompile FWH\source\function\gettasks.prg (add it as another PRG of you app) and you will get it working

[PeterHarmes]

Application compiles now but as soon as i run it, i get:

ORD_MOD.exe has encountered a problem and needs to close.

I will do some test next week and let you know if i can narrow down the problem.

UPDATE - I put in a message in the first line of my code and it didnt appear - I'll try updating my xHarbour to see if that helps

regards,

Pete

[Antonio Linares]

Pete,

With the current demo version is working fine. You may download it and try it

[driessen]

Pete,

I currently use the xHarbour Builder version of Octobre 2011.

[Antonio Linares]

We have published a revised FWH 11.11 version

It includes the working makefiles for the VisualFW (32 and 64 bits) and also the makefile for samples\FiveGen\*

It solves a bug with the recent new GRADIENT clause that was not properly releasing the previously used brush

Please download it again, thanks!

[ukservice]

Antonio,

Does it include TBTNBMP fix?.

Thank you.