FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New FWH 18.07
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
New FWH 18.07
Posted: Fri Sep 21, 2018 08:43 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Re: New FWH 18.07
Posted: Sat Sep 22, 2018 08:44 AM
I have this error

Code (fw): Select all Collapse
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 (fw): Select all Collapse
  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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: New FWH 18.07
Posted: Sat Sep 22, 2018 10:08 AM
Dear Maurizio
At moment, remove style WS_CHILD in DEFINE DIALOG and try

Code (fw): Select all Collapse
nOr( 0, WS_POPUP )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: New FWH 18.07
Posted: Sat Sep 22, 2018 10:59 AM
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 (fw): Select all Collapse
      do while ::hContainerWnd:WinStyle( WS_CHILD )


Please substitute
Code (fw): Select all Collapse
      do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil
Regards



G. N. Rao.

Hyderabad, India
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Re: New FWH 18.07
Posted: Sat Sep 22, 2018 03:36 PM
Dear Mr. Rao ,

you are right :-) , with this it works

Code (fw): Select all Collapse
 do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. ::hContainerWnd:oWnd != nil


Thanks
Maurizio
www.nipeservice.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: New FWH 18.07
Posted: Sat Sep 22, 2018 03:40 PM

Mr. Maurizio

Thanks for testing.

Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: New FWH 18.07
Posted: Fri Oct 05, 2018 03:45 PM

Please download revised build. This includes the above fix.

Regards



G. N. Rao.

Hyderabad, India
Posts: 195
Joined: Sun Jul 22, 2012 07:01 PM
Re: New FWH 18.07
Posted: Wed Oct 10, 2018 07:38 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: New FWH 18.07
Posted: Fri Oct 12, 2018 07:21 PM

Robb,

yes, very good idea, thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion