FiveTech Software tech support forums

... Control there are "more" (Array)   x :=  hb_valToExp(oMain:aControls[ii]) __itemSetObj( __itemSetRef( {{HWND, 394868}, {NOLDPROC, 4294903408}, {CCAPTION, }, {CVARNAME, oSayActive}, {NID, 102}, {TWINDOW:NTOP, 864}, {TWINDOW:NLEFT, 10}, {NBOTTOM, 893}, {NRIGHT, 649.00}, ...

... TPGet //** P3N - 06/19/14 local oClp, cText, n DEFAULT SELF:CTRL_V := ' ' do case 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 ...

... nAt ] // esto está en la 3353 if ValType( oWnd ) == "O" aRet[ 1 ] = oWnd:HandleEvent( nMsg, nWParam, nLParam ) aRet[ 2 ] = oWnd:nOldProc endif return aRet endif return nil porque puede ser que dé este error? Gracias! Roberto Tiene toda la pinta de que hay un problema en la creacion ...

... nAt ] // esto está en la 3353 if ValType( oWnd ) == "O" aRet[ 1 ] = oWnd:HandleEvent( nMsg, nWParam, nLParam ) aRet[ 2 ] = oWnd:nOldProc endif return aRet endif return nil porque puede ser que dé este error? Gracias!

... RESOLVIDO ASSIM, TGET: METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGet ... 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 ...

... NNOT()                 (function  in ?)    WINDOW.PRG     3967  3986 NNOTIFYCODE            WINDOW.PRG     1374  1377  1381  1398  1401  1404 NOLDPROC                WINDOW.PRG      422  2563  2703  2704  2705  3837 NOPACITY()             (function  in ?)    WINDOW.PRG      915   917 NOR() ...

Frances,

My mistake, I missed to remember that dialogboxes are not (Windows) subclassed so there is no a valid ::nOldProc.

We may need to subclass the dialog calling Method ::Link(). But we need to find the right place to call it.

... INLINE 1ENDCLASSMETHOD Paint() CLASS TMydialog   local aInfo := ::DispBegin()     CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )   if ValType( ::bPainted ) == "B"      Eval( ::bPainted, ::hDC, ...

... from start: 0 hours 0 mins 5 secs Error occurred at: 12/11/09, 08:57:19 Error description: Error BASE/1004 Class: 'NIL' has no exported method: NOLDPROC Args: [ 1] = U Stack Calls =========== Called from: => NOLDPROC(0) Called from: => TRICHEDIT:DESTROY(0) Called from: => TWINDOW:HANDLEEVENT(0) ...

... from start: 0 hours 0 mins 12 secs Error occurred at: 10/12/2009, 12:35:28 Error description: Error BASE/1004 Class: 'NIL' has no exported method: NOLDPROC Args: [ 1] = U Stack Calls =========== Called from: => NOLDPROC(0) Called from: => TRICHEDIT:DESTROY(0) Called from: => TWINDOW:HANDLEEVENT(0) ...

Richard,

Its not that simple as we are calling the standard Windows Button paint procedure and if we override it, then we will not get the standard button painting

CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

Maybe we find a way

Prueba a comentar la llamada a CallWindowProc:

// CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )

... gpf . alguna idea ? if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else Aqui se proudce el gpf CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 ) endif un saludo y gracias

... de TGet.prg, y de momento no he tenido problemas y hace lo que deseo. El método al final queda: .../... case nMsg == WM_PASTE CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) ::oGet:buffer = Pad( GetWindowText( ::hWnd ), Len( ::oGet:buffer ) ) DEFINE CLIPBOARD oClp OF Self FORMAT TEXT ::oGet:Pos ...

... internal status ::oGet:SetFocus() ::DispText() if ::oGet:type$"DN" ::nPos := 1 endif ::oGet:Pos = ::nPos ::SetPos( ::nPos ) CallWindowProc( ::nOldProc, ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() ) ShowCaret( ::hWnd ) endif else HideCaret( ...