FiveTech Software tech support forums

Mr Rao. Encontré la solución. ::bPaintBack := {|| aOrg := SetBrushOrgEx( ::hDC, nBmpWidth( ::oWnd:oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oWnd:oBrush:hBitmap ) - ::nTop ), FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ), SetBrushOrgEx( ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Hi Antonio, I added new compiled objs to fiveh32.lib and fivewhc32.lib (FWH 13.9) and now I get the following errors in linking exe. fiveh32.lib(xbrowse.obj) : error LNK2001: unresolved external symbol _HB_FUN_SETBRUSHORGEX fiveh32.lib(window.obj) : error LNK2001: unresolved external symbol _HB_FUN_...

Hakan,

In our first tests it was needed, but now, yes you are right we could remove it, as the SetBrushOrgEx() is properly filling the background where we paint the text

... FUNCTION CHILDPAINT( hDC, oWnd ) local aPoint aPoint := ClientToScreen( WndMain():hWnd, { 0, 0 } ) aPoint := ScreenToClient( oWnd:hWnd, aPoint ) SetBrushOrgEx( hDC, aPoint[ 2 ], aPoint[ 1 ] + WndMain():oBar:nHeight - 1 ) FillRect( hDC, GetClientRect( oWnd:hWnd ), oWnd:oBrush:hBrush ) RETURN NIL ...

... hDC, oWnd7, oWndBtn ) LOCAL aPoint aPoint := ClientToScreen( oWnd7:hWnd, { 0, 0 } ) // WndMain() aPoint := ScreenToClient( oWndBtn:hWnd, aPoint ) SetBrushOrgEx( hDC, aPoint[ 2 ] - 1, aPoint[ 1 ] + oWndBtn:nTop + 80 ) //+ WndMain():oBar:nHeight - 1 ) FillRect( hDC, GetClientRect( oWndBtn:hWnd ), ...

... hDC ),; ::oBrush := TBrush():New( , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush // Donde esta mi erro?? Muchas gracias. Regards, ...

Jose Luis,

En source\classes\control.prg método Colors() tienes un ejemplo de como hay que llamar a SetBrushOrgEx() y a FillRect() para rellenar el fondo correctamente.

... TCONTROL:HANDLEEVENT(0) DIALOGBOX(0) TDIALOG:ACTIVATE(0) SHOWDIALOG(156) ... I found in the BITMAP CLASS - Paint method this line SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 ) Any idea? Regards Pier Luigi

... hDC ),; ::oBrush := TBrush():New( , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush //-> RECOMPILE YOUR FIVEHX.LIB Regards, saludos.

... hDC ),; ::oBrush := TBrush():New( , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush

... hDC ),; ::oBrush := TBrush():New( , ::nClrPane ) SetTextColor( hDC, ::nClrText ) SetBkColor( hDC, ::nClrPane ) if ::oBrush:hBitmap != nil SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) endif return ::oBrush:hBrush //----------------------------------------------------------------------------//

... Mirando el código he visto que se produce aquí: if ! ::lTransparent FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 ) FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ) endif ¿Como se podría solucionar? ...

... if ::lActive if ::lView //-> Modificado Por Antonio Linares, em 20/02/2006 Para TRANSPARENT if ::lTransparent .and. ! Empty( ::oBrush:hBitmap ) SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ...