GET-PICTURE-Problem

[byte-one]

If i insert a text from clipboard the text is not converted to uppercase, if the get has picture clausula "@!". Other pictures i have not tested.

[karinha]

Example?

Regards.

[Antonio Linares]

Günther,

In Class TGet (source/classes/get.prg) try this:

Code: Select all  Expand view

      case nMsg == WM_PASTE
           if GetFocus() == ::hWnd
              CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 )
#ifdef UTFREVN
              if ::lWideChar
                 ::oGet:buffer   := ::GetText()
                 ::oGet:pos := ::nPos := nHiWord( ::SendMsg( EM_GETSEL ) ) + 1
                 ::SetText( ::oGet:buffer )
              else
                 if ValType( ::oGet:Original ) $ "CM"
                    SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) )
                 endif
                 ::oGet:Buffer = GetWindowText( ::hWnd )
                 ::oGet:Pos   =  nLoWord( ::SendMsg( EM_GETSEL ) ) + 1
              endif

#else
              if ValType( ::oGet:Original ) $ "CM"
                 SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) )
              endif

              ::oGet:Buffer = GetWindowText( ::hWnd )
              ::oGet:Pos = GetCaretPos()[ 2 ]
#endif
              ::oGet:UpdateBuffer()  // New !!!
              ::Assign()
              if ::bChange != nil
                 Eval( ::bChange,,, Self )
              endif
           endif
           return 0