New FWH 18.07

[Antonio Linares]

viewtopic.php?f=16&t=36115

[Maurizio]

I have this error

Code: Select all  Expand view

Application
===========
   Path and name: d:\prg_SQL\MASTRO\mastrosql.exe (32 bits)
   Size: 6,913,024 bytes
   Compiler version: Harbour 3.2.0dev (r1603301435)
   FiveWin  version: FWH 18.07
   C compiler version: Microsoft Visual C++ 19.0.23506 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 22/09/2018, 10:03:07
   Error description: Error BASE/1004  Message not found: NIL:WINSTYLE
   Args:
     [   1] = U  

Stack Calls
===========
 
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:WINSTYLE( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCOMBOMETRO:OCONTAINERWND( 946 )
   Called from: .\source\classes\CONTROL.PRG => TCOMBOMETRO:FORWHEN( 911 )
   Called from: .\source\classes\CONTROL.PRG => TCOMBOMETRO:FWLOSTFOCUS( 1180 )
   Called from: .\source\classes\CONTROL.PRG => TCOMBOMETRO:HANDLEEVENT( 1747 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3486 )
   Called from:  => SYSREFRESH( 0 )
   Called from: .\source\classes\BTNFLAT.PRG => TBTNFLAT:LBUTTONDOWN( 284 )
   Called from: .\source\classes\CONTROL.PRG => TBTNFLAT:HANDLEEVENT( 1759 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3486 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 287 )
   Called from: ..\my_func\funzioni_SQL.prg => LOGINOPERATORE( 277 )
   Called from: basemastro.prg => CARICAVARIABILI( 441 )
   Called from: mastrosql.prg => MAIN( 95 )
 

the PRG

Code: Select all  Expand view

  DEFINE DIALOG oDlg STYLE nOr( WS_CHILD, WS_POPUP ) ;
          SIZE ScreenWidth()/ nDiv  , ScreenHeight() / 2 COLOR  CLR_BLUE ,CLR_WHITE

   @ 1.2, 5 SAY "Inserisci le tue creadenziali" FONT oFont1 TRANSPARENT

   @ 4, 9 SAY "UserName:" FONT oFont2 TRANSPARENT

   @ 4,15 COMBOMETRO oC VAR cUserName ITEMS aOpeNome  ;
         OF oDlg   FONT oFont2 SIZE 150, 20 COLOR CLR_WHITE, RGB( 0x33, 0x66, 0xCC )

   @ 5.8, 9 SAY "Password:" FONT oFont2 TRANSPARENT

   @ 6.7, 15 GET cPw FONT oFont2 SIZE 100, 14 COLOR "N*/W" NOBORDER PASSWORD

   @ 150, ScreenWidth() / 15 + 100 FLATBTN PROMPT "Ok" ;
          SIZE 50, 20 ACTION ( lOk := .T., oDlg:End() ) FONT oFont2

   @ 150, ScreenWidth() / 15 + 170 FLATBTN PROMPT "Cancel" ;
          SIZE 50, 20 ACTION oDlg:End() FONT oFont2

   // *** line 277 OF  LOGINOPERATORE
   ACTIVATE DIALOG oDlg CENTERED

maurizio
www.nipeservice.com

[cnavarro]

Dear Maurizio
At moment, remove style WS_CHILD in DEFINE DIALOG and try

Code: Select all  Expand view

nOr( 0, WS_POPUP )
 

[nageswaragunupudi]

Dear Mr. Maurizio

Mr. Cristobal suggested a workaround.

Please try this solution and let us know the result.

Please make this modification to fwh\classes\control.prg line no:946

For the existing line 946

Code: Select all  Expand view

     do while ::hContainerWnd:WinStyle( WS_CHILD )

Please substitute

Code: Select all  Expand view

     do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil

[Maurizio]

Dear Mr. Rao ,

you are right , with this it works

Code: Select all  Expand view

do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil

Thanks
Maurizio
www.nipeservice.com

[nageswaragunupudi]

Mr. Maurizio

Thanks for testing.

[nageswaragunupudi]

Please download revised build. This includes the above fix.

[rhlawek]

Antonio,

Instead of doing stealth release of updates that we have to go looking for in message sub posts, can you please adopt a practice of posting an explicit update notice. e.g. "New FWH 18.07" should become "New FWH 18.07-2". Just something obvious so we don't just happen across the fact there has been an update to an existing release.

Robb

[Antonio Linares]

Robb,

yes, very good idea, thanks