new and important bug in FW 11.11

[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.00Stack 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.

[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!

[ukservice]

Antonio,

I am afraid is not working.

Pasting numbers into a number field does not work. It does paste nothing.

Thanks.

[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

[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

[Antonio Linares]

Norberto,

[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

[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.,