New FWH 11.11

[Antonio Linares]

Yes

[byte-one]

Antonio, I cannot use 11.11! The error always exist:

Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_png_set_longjmp_fn' referenced from C:\FWH\LIB\FIVEHC.LIB|FWPNG

[Antonio Linares]

Günther,

Are you linking [x]Harbour's png.lib ?

[byte-one]

Yes Antonio, i linked this lIb from xHarbour! A little bit higher in this topic we had the same question and problem!

[Antonio Linares]

Günther,

Please search for _png_set_longjmp_fn inside png.lib and check if it exists or not

You can use Total Commander, UEStudio, etc... to do it

[byte-one]

Antonio, it seems, i have a old version from png.lib! If i use the newest xharbour from your downloadsite, this lib is NOT included in this build!

[Antonio Linares]

Günther,

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

[byte-one]

Thanks Antonio! I have build my app with success. But the TAB and/or Enter are not ok. It seems, that gets with action are a problem. I send you tomorrow a complete app with install-routine and the points they are not functioning in 11/11.

[Antonio Linares]

Günther,

Please try this Class TWindow Method GoNextCtrl():

Code: Select all  Expand view

METHOD GoNextCtrl( hCtrl ) CLASS TWindow

   local hCtlNext
   
   if ! Empty( ::aControls ) .and. hCtrl == ::LastActiveCtrl():hWnd .and. ;
      ! Empty( ::oWnd ) .and. ( ( Upper( ::oWnd:ClassName() ) $ "TFOLDER;TPAGES;TFOLDEREX" ) )
      hCtlNext = NextDlgTab( ::oWnd:oWnd:hWnd, ::oWnd:hWnd )
   else
      hCtlNext = NextDlgTab( ::hWnd, hCtrl )
   endif

   ::hCtlFocus = hCtrl
   SetFocus( hCtlNext )

return nil
 

[byte-one]

Antonio, its better!! But when the focus is on a control from tfolderex and i press TAB, the next control is outside the actual tfolderex-dialog. This is also in previsious direction.
Also a NOWAIT-Problem??

[byte-one]

Antonio, its better!! But when the focus is on a control from tfolderex and i press TAB, the next control is outside the actual tfolderex-dialog. This is also in previsious direction.
Also a NOWAIT-Problem??

[byte-one]

I found, this is only? on gets!?

[byte-one]

Antonio, whats the difference between get-controls and the other? For gets in tfoldex-dialogs the ::gonextctrl() are not functioning. The focus jump outside the tfolderex after a get pressing TAB or enter.

[Antonio Linares]

Günther,

Please make this small change in Class TGet Method GetDlgCode():

Code: Select all  Expand view

METHOD GetDlgCode( nLastKey ) CLASS TGet

   if Len( ::oWnd:aControls ) == 1
      return DLGC_WANTALLKEYS
   endif

   ::oWnd:nLastKey = nLastKey

   if ::oWnd:IsKindOf( 'TXBROWSE' )
      return DLGC_WANTALLKEYS
   else
      if ::oWnd:oWnd != NIL .and. ::oWnd:oWnd:ClassName() $ "TFOLDER;TFOLDEREX"
         return DLGC_WANTALLKEYS
      endif
   endif

return nil
 

[Antonio Linares]

I am testing on this example:

gunther.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, cTest := "Hello world", cAnother := "Another GET"

   DEFINE DIALOG oDlg SIZE 400, 300

   @ 3, 5 FOLDEREX oFld PIXEL ;
      PROMPT "&One", "&Two", "&Three" ;
      SIZE 190, 120
     
   @ 1, 1 GET oGet VAR cTest OF oFld:aDialogs[ 1 ]
   
   @ 2, 1 GET cAnother OF oFld:aDialogs[ 1 ]  
   
   @ 7.2, 14 BUTTON "Ok"    
         
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oGet:SetFocus(), .F. )

return nil