New FWH 18.07

New FWH 18.07

Postby Antonio Linares » Fri Sep 21, 2018 8:43 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42065
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 18.07

Postby Maurizio » Sat Sep 22, 2018 8:44 am

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
User avatar
Maurizio
 
Posts: 823
Joined: Mon Oct 10, 2005 1:29 pm

Re: New FWH 18.07

Postby cnavarro » Sat Sep 22, 2018 10:08 am

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

Code: Select all  Expand view

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
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: New FWH 18.07

Postby nageswaragunupudi » 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: 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
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 18.07

Postby Maurizio » Sat Sep 22, 2018 3:36 pm

Dear Mr. Rao ,

you are right :D , with this it works

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


Thanks
Maurizio
www.nipeservice.com
User avatar
Maurizio
 
Posts: 823
Joined: Mon Oct 10, 2005 1:29 pm

Re: New FWH 18.07

Postby nageswaragunupudi » Sat Sep 22, 2018 3:40 pm

Mr. Maurizio

Thanks for testing.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 18.07

Postby nageswaragunupudi » Fri Oct 05, 2018 3:45 pm

Please download revised build. This includes the above fix.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 18.07

Postby rhlawek » Wed Oct 10, 2018 7: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
User avatar
rhlawek
 
Posts: 194
Joined: Sun Jul 22, 2012 7:01 pm

Re: New FWH 18.07

Postby Antonio Linares » Fri Oct 12, 2018 7:21 pm

Robb,

yes, very good idea, thanks
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42065
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 29 guests