FiveTech Software tech support forums

Dear Silvio,

Class TGroup is based on a standard Windows class, so we use its default paint procedure:

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

and the change of the color line is not supported by Windows

A user defined Class TGroupEx should be implemented to have control on that

... 670) 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) in ...

... 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 ), 1, Len ...

... Error: Unresolved external '_HB_FUN_TBGETRECT' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|TOOLBAR
Error: Unresolved external '_HB_FUN_CALLWINDOWPROC' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|TOOLBAR
Error: Unresolved external '_HB_FUN_LOADSTRING' referenced from P:\32BITS\FWH\LIB\FIVEHX ...

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

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 in parameter 'lpPrevWndFunc' (wanted 'long (__stdcall *)(HWND ...

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

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

... 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;
}

else if ...

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 )

... 1633/gpfqf2.th.jpg]


En esta linea del metodo paint 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

... Called 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 From: => TGET ...