FiveTech Software tech support forums

... in FueAje\Five\Dialog.prg Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(1516) in FueAje\Five\Dialog.prg Called from CALLWINDOWPROC(0) Called from TMULTIGET:GOTFOCUS(849) in FueAje\Five\mget.prg Called from TWINDOW:HANDLEEVENT(0) Called from TMULTIGET:HANDLEEVENT(1427) ...

... nLParam ) CLASS 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 ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... vez de AAAAAAAA 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 ...

Harvey,

Also change this line:

return CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );

with:

return CallWindowProc( ( WNDPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );

Harvey,

Please replace this line:

LONG lResult = CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );

with:

LONG lResult = CallWindowProc( ( WNDPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );

esta es la linea ofendida LONG lResult = CallWindowProc( (FARPROC) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam ); este es el mensaje de error que interrunpe la compilacion Error E2342 source\\fixsays.prg 18: Type mismatch ...

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

... BeginPaint() Bin2d() Bindtoport() Bitblt() BringWindowtotop() Browse() Btndisable() BtnPaint() BuildCommDCB() C2Hex() CallDll() Calldll32() CallWindowProc() cArgV() cChr2Data() cCtrl2Chr() cDlg2Chr() cFileDisc() cFileExt() cFileMask() cFileName() cFileNoExt() cFileNoPath() cFilePath() cFileSubDir() ...

... ) { if( uMsg == WM_ERASEBKGND ) { return 1; } else if( uMsg == 0x0128 ) // SAYs were erased when pressing ALT WM_UPDATEUISTATE { LONG lResult = CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam ); InvalidateRect( hWnd, NULL, TRUE ); return lResult; ...

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 )

... es donde me da el 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

... From: => TCONTROL:HANDLEEVENT(0) Called From: => TGET:HANDLEEVENT(0) Called From: .\source\classes\WINDOW.PRG => _FW Called From: => CALLWINDOWPROC(0) Called From: => TGET:LBUTTONDOWN(0) Called From: => TWINDOW:HANDLEEVENT(0) Called From: => TCONTROL:HANDLEEVENT(0) Called ...

... método HandleEvent() 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 ...