FiveTech Software tech support forums

Dear Yuri, when a window, dialog or control is painted, FWH evals oWnd:bPainted if defined from METHOD Paint() CLASS TWindow      if ValType( ::bPainted ) == "B"         uVal = Eval( ::bPainted, ::hDC, ::cPS, Self )      endif ::cPS is initialized from METHOD _BeginPaint() ...

Una molestia más:

Al crear la lib tsbrowse, me carca error con Harbour 3.2, y con la version Harbour 3.0 no lo hace

TsBrowse(320) Warning W0001 Ambiguous reference 'SUPER'

la linea es:

METHOD BeginPaint() INLINE If( ::lRepaint, Super:BeginPaint(), 0 )

Ayuda.

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

... ::nHeight(), ::nWidth() }, ::nTopColor, ::nBottomColor, .T. )               endif  I am not sure about Paint, PaintBack, BeginPaint, EndPaint, etc where is the correct point manage the transparency. :roll: If anyone is interested, I create this batch to update a single ...

... oWnd:AddControl( Self ) Else oWnd:DefControl( Self ) Endif Return Self METHOD Display() CLASS TMiCalendario IF ::lContinuar ::lContinuar := .F. ::BeginPaint() ::Paint() ::EndPaint() ::lContinuar := .T. ELSE MsgInfo("Para Ccontrolar Que Nao Passe Duas Vezes") ENDIF RETURN SELF METHOD ...

... fondo y después sus contoles, un bitmap compatible por cada control. El problema es que el método PAINT() utiliza ::hDc que viene de sus propio BeginPaint(), y por ahí no se puede pintar en un DC compatible. La suerte es que como mi FWH es antiguo, tengo mis propios controles y podré modificarlos ...

...  1288 BDROPFILES              WINDOW.PRG      427   492  1212  1226  1227  1227  1539  1541 BDROPOVER              WINDOW.PRG      428  3733  3734 BEGINPAINT()           (function  in ?)    WINDOW.PRG      501  3751 BERASEBKGND            WINDOW.PRG      452  2923  2924 BFIND                  WINDOW.PRG ...

... CLASSDATA lRegistered AS LOGICAL METHOD New( nRow, nCol, nHeight, nWidth, oWnd, l3D, nRGB1, nRGB2, oFont ) CONSTRUCTOR METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD Paint() ENDCLASS //----------------------------------------------------------------------------// METHOD ...

... .t. ::oWnd:bPainted := {|| iif(::nPage>0, ::oPagina:Refresh(), )} ACTIVATE DIALOG ::oWnd CENTER NOWAIT CursorWait() SysRefresh() ELSE ::oWnd:BeginPaint() ::oWnd:Paint() ::oWnd:EndPaint() ENDIF RETURN NIL //----------------------------------------------------------------------------// FUNCTION ...

... se paraba en SHOWWINDOW, ahora llega en UPDATEWINDOW y con el mismo problema. En BeginPaint, el ::hDC se queda a 0 y CPS también. Otra cosa para probar ?? Muchas Gracias. Pere

Me puesto a passar por el debugger, y me he encontrado que la función BeginPaint dentro de METHOD _BeginPaint() CLASS TWindow

Me devuelve 0 y cPS no devuelve nada.

Puede ser la Causa?

Se puede solucionar ??

Espero almenos una respuesta,
Gracias.

Pere.

... ) CONSTRUCTOR METHOD ReDefine( cType, nId, oWnd, nClrLite, nClrDark, nClrText, lUpdate, lRounded, cLabel, oFont, ; nSAlign ) CONSTRUCTOR METHOD BeginPaint() INLINE If( ::lRepaint, Super:BeginPaint(), 0 ) METHOD cToChar() INLINE Super:cToChar( "STATIC" ) METHOD Default() METHOD Display() ...

... así como pequeños errores de ortografía y contenido en algunas de ellas. Funciones FWH Español: B2Bin() BarAdjust() Barinvert() Barpaint() BeginPaint() Bin2d() Bindtoport() Bitblt() BringWindowtotop() Browse() Btndisable() BtnPaint() BuildCommDCB() C2Hex() CallDll() Calldll32() CallWindowProc() ...

... TView TWBrowse The following Functions are also rectified. There are many functions yet to be corrected. FiveWin Functions Browse() BarPaint() BeginPaint() Bin2D() BindToPort() BitBlt() BringWindowToTop() BtnDisable() BtnPaint() BuildCommDCB() Regards Anser

... ) CONSTRUCTOR METHOD End() INLINE ::Destroy() METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ) //, ::Default() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(),0 METHOD Paint() METHOD SetPix2mm(Pix2mm) INLINE ::Pix2mm:=IIF(::lInches,Pix2mm/2.54,Pix2mm) METHOD Destroy() ...