Page 1 of 1
new and important bug in FW 11.11
Posted: Tue Dec 20, 2011 9:01 pm
by ukservice
Hello,
In samples\testget.prg.
In second get, Number.
Paste a test.
Code: Select all | Expand
Error occurred at: 12/20/2011, 22:01:25
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = N 0.00
Stack Calls
===========
Called from: => LEN( 0 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 552 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3160 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 266 )
Called from: testget.prg => MAIN( 30 )
Thanks.
Re: new and important bug in FW 11.11
Posted: Tue Dec 20, 2011 9:52 pm
by Antonio Linares
John,
This change is required in Class TGet:
Code: Select all | Expand
case nMsg == WM_PASTE
if GetFocus() == ::hWnd
CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 )
if ValType( ::oGet:Original ) $ "CM"
SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) )
elseif ValType( ::oGet:Original ) == "N"
SetWindowText( ::hWnd, Val( GetWindowText( ::hWnd ) ) )
endif
...
Thanks!
Re: new and important bug in FW 11.11
Posted: Wed Dec 21, 2011 4:03 pm
by ukservice
Antonio,
I am afraid is not working.
Pasting numbers into a number field does not work. It does paste nothing.
Thanks.
Re: new and important bug in FW 11.11
Posted: Wed Dec 21, 2011 6:14 pm
by norberto
HI, im using fwh 11.11 released 13/12 in several appls production, i need fix this and anothers?? please can list fix to apply after 13/12. thanks
Re: new and important bug in FW 11.11
Posted: Wed Dec 21, 2011 6:35 pm
by Antonio Linares
John,
This is right code, thanks:
Code: Select all | Expand
case nMsg == WM_PASTE
if GetFocus() == ::hWnd
CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 )
if ValType( ::oGet:Original ) $ "CM"
SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) )
endif
::oGet:Buffer = GetWindowText( ::hWnd )
::oGet:Pos = GetCaretPos()[ 2 ]
::oGet:Assign()
if ::bChange != nil
Eval( ::bChange,,, Self )
endif
endif
return 0
Re: new and important bug in FW 11.11
Posted: Wed Dec 21, 2011 6:44 pm
by Antonio Linares
Norberto,
Re: new and important bug in FW 11.11
Posted: Thu Dec 22, 2011 9:53 am
by ukservice
Antonio,
Thanks. It works now.
Also, it´s pending the other bug in clause NO MODIFY.
In method initiate() you could also comment out SetColor( GetSysColor(COLOR_GRAYTEXT) , GetSysColor( COLOR_BTNFACE )):
if ::lReadOnly .and. ::nClrText == GetSysColor( COLOR_WINDOWTEXT ) ;
.and. ::nClrPane == GetSysColor( COLOR_WINDOW )
// ::SetColor( GetSysColor(COLOR_GRAYTEXT) , GetSysColor( COLOR_BTNFACE ))
// ::Disable()
endif
Thanks
Re: new and important bug in FW 11.11
Posted: Mon Dec 26, 2011 10:47 am
by ukservice
Antonio,
Working code is:
Code: Select all | Expand
METHOD Initiate( hDlg ) CLASS TGet
Super:Initiate( hDlg )
::oGet:SetFocus()
if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_PASSWORD )
::lPassword = .t.
endif
// Ballon tooltip when CapsLock is on on XP
if ::lPassword
SetWindowLong( ::hWnd, GWL_STYLE,;
nOr( GetWindowLong( ::hWnd, GWL_STYLE ), ES_PASSWORD ) )
endif
if ::lReadOnly .and. ::nClrText == GetSysColor( COLOR_WINDOWTEXT ) ;
.and. ::nClrPane == GetSysColor( COLOR_WINDOW )
::SetColor( GetSysColor(COLOR_GRAYTEXT) , GetSysColor( COLOR_BTNFACE ))
//::Disable()
endif
::Disable() can´t be used as the first GET with NO MODIFY clause in a Dialog does not retrive the value.
So just comment out ::SetColor(...).
Thanks.,