FiveTech Software tech support forums

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

... ::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 prg inside ...

... 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 Paint() CLASS TMiCalendario ...

...  555   569 ENDCLASS                WINDOW.PRG      919 ENDMENU                WINDOW.PRG     3913 ENDPAGE                WINDOW.PRG     1894  2997 ENDPAINT()             (function  in ?)    WINDOW.PRG      574   575 ERASEBKGND()           (function  in ?)    WINDOW.PRG      577 EVECOUNT()       ...

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

... ::oPagina:Refresh(), )} ACTIVATE DIALOG ::oWnd CENTER NOWAIT CursorWait() SysRefresh() ELSE ::oWnd:BeginPaint() ::oWnd:Paint() ::oWnd:EndPaint() ENDIF RETURN NIL //----------------------------------------------------------------------------// FUNCTION WorkSheet(cPort) LOCAL oPrn LOCAL ...

... 0 ) METHOD cToChar() INLINE Super:cToChar( "STATIC" ) METHOD Default() METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint() METHOD EndPaint() INLINE If( ::lRePaint, Super:EndPaint(), ( ::lRePaint := .T., 0) ) METHOD HandleEvent( nMsg, nWParam, nLParam ) METHOD ...

... 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() METHOD ScrollDown(nPixels) ...

... DefControl( oControl ) METHOD Destroy() INLINE Super:Destroy(), If( ! ::lModal, .t., nil ) METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(),; If( ::bStart != nil,; Eval( ::bStart, ::bStart := nil ),), .f. METHOD End( nResult ) METHOD EraseBkGnd( hDC ) METHOD GetHotPos( nChar, ...

... Si deberas usar el propio DC para este control... Solo debes tener esto, asi de simple... METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 cuando window envie el mensaje de pintar este es interceptado (HandleEvent ) y llama a este metodo para preparar la ventana creada para ...

... Si deberas usar el propio DC para este control... Solo debes tener esto, asi de simple... METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 cuando window envie el mensaje de pintar este es interceptado (HandleEvent ) y llama a este metodo para preparar la ventana creada para ...

... nId, oWnd, cProgID ) CONSTRUCTOR METHOD Do( cMethodName, uParam1, uParam2, uParam3 ) METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD EraseBkGnd( hDC ) INLINE 1 METHOD GetProp( cPropName ) INLINE ; ActXGetProperty( ActXPdisp( ::hActiveX ), cPropName ) METHOD Initiate( ...

... ) INLINE Super:Initiate( hDlg ), ::Default() METHOD HandleEvent( nMsg, nWParam, nLParam ) METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint() METHOD Paint() METHOD Dynamic() METHOD Refresh() INLINE If( ::bGet != nil, ::SetText( Eval( ::bGet ) ),) METHOD ReSize( nType, nWidth, nHeight ...

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

... METHOD DrawSuper() METHOD DrawHeaders() METHOD Edit( uVar, nCol, nKey, nFlags ) METHOD EditExit( nCol, nKey, uVar, bValid, lLostFocus ) METHOD EndPaint() INLINE If( ::lRePaint, Super:EndPaint(), ; ( ::lRePaint := .T., 0 ) ) METHOD Excel2( cXlsFile, lActivate, oMeter, cTitle, lSave ) #ifdef ...