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 view  RUN

  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.

[Antonio Linares]

John,

This change is required in Class TGet:

Code: Select all  Expand view  RUN

     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 view  RUN

     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 view  RUN

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