Page 4 of 5
Re: New FWH 11.11
Posted: Mon Nov 28, 2011 10:23 am
by Antonio Linares
Yes
Re: New FWH 11.11
Posted: Mon Nov 28, 2011 12:46 pm
by 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
Re: New FWH 11.11
Posted: Mon Nov 28, 2011 4:31 pm
by Antonio Linares
Günther,
Are you linking [x]Harbour's png.lib ?
Re: New FWH 11.11
Posted: Mon Nov 28, 2011 10:42 pm
by byte-one
Yes Antonio, i linked this lIb from xHarbour! A little bit higher in this topic we had the same question and problem!
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 6:45 am
by 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
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 10:29 am
by 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!
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 11:22 am
by Antonio Linares
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 11:48 am
by 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.
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 6:23 pm
by Antonio Linares
Günther,
Please try this Class TWindow Method GoNextCtrl():
Code: Select all | Expand
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
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 7:21 pm
by 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??
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 7:53 pm
by byte-one
byte-one wrote: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??
Re: New FWH 11.11
Posted: Tue Nov 29, 2011 7:54 pm
by byte-one
I found, this is only? on gets!?
Re: New FWH 11.11
Posted: Wed Nov 30, 2011 10:32 am
by 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.
Re: New FWH 11.11
Posted: Wed Nov 30, 2011 1:58 pm
by Antonio Linares
Günther,
Please make this small change in Class TGet Method GetDlgCode():
Code: Select all | Expand
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
Re: New FWH 11.11
Posted: Wed Nov 30, 2011 2:04 pm
by Antonio Linares
I am testing on this example:
gunther.prg
Code: Select all | Expand
#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