FiveTech Software tech support forums

... - 3-::nrowheight*2,::nheaderHeight/::nHeaderLines)*0.8; ,, .t., Eval( ::bClrHeader, Self ) [ 2 ] ) end // add lines end ::DispEnd( aInfo ) ::oFont:Deactivate( hDC ) return 0 4. METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TXBrowse ... if ::lDrag return Super:LButtonDown( ...

Commenting out DispBegin() and DispEnd() is not the right thing to do. Please also see http://forums.fivetechsupport.com/viewtopic.php?f=20&t=38740 WBrowse is the fastest browse. XBrowse is not created to provide a faster alternative, ...

... una cattiva idea se inizio ad usarla pure io Ho delle titubanze tutto qua. Il commento che ho messo nel metodo Paint per evitare il dispbegin() e dispend() e aver messo al posto della solita tabella customer una tabella non dico più grande ma con più campi rende molto più evidente quanto segnalo ...

In method METHOD Paint() CLASS TXBrowse if I rem DispBegin() and DispEnd() // local aInfo := ::DispBegin() and at the end of method I rem if ::nLen == 0 ::EraseData( nFirstRow ) // ::DispEnd( aInfo ) return nil endif // ::DispEnd( aInfo ) the problem is ...

... DispBox(<nTop>,<nLeft>,<nBottom>,<nRight>,[<cnBoxString>],[<cColorString>])->Nil DispCount()->nDispCount DispEnd()->Nil DispOut(<exp>,[<cColorString>])->Nil DllCall(<cDllFile>|<nDllHandle>,[<nCallingConvention>],<cFuncName>|<nOrdinal>,[<xParams,...>])->nResult ...

... DirName DirRemove DisableWaitLocks DiskChange DiskFree DiskName DiskReady DiskReadyW DiskSpace DiskTotal DiskUsed DispBegin DispBox DispCount DispEnd DispOut DllCall DllExecuteCall DllLoad DllPrepareCall DllUnload DMY DOSError DosParam DoW DoY DriveType DToC DtoR DToS ElapTime Empty Enhanced ...

Buenos dias Antonio, ya las agregue pero salen estos errores: :( :( 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) (Rev. 6406) Copyright 1999-2009, h...

Otto,

In METHOD Paint() CLASS TMetroPanel

comment out these lines:

// aInfo := ::DispBegin()

and

// ::DispEnd( aInfo )

With that is a little better

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

Joaquin,

Prueba a usar el pintado a doble buffer:

local aInfo := ::oWnd:DispBegin()

::oWnd:SetBrush( oBrush2 )

::oWnd:DispEnd( aInfo )

... pruebaló, a mi me funciona. Por otro lado, tu modificación ya te he comentado en otro mensaje, que lo había probado, tanto antes como después del DispEnd() y funciona con el parpadeo contínuo. El parapadeo es porque tfolderex para pintar la rayita azul al pasar por una pestaña, repinta continuamente ...

Buenas tardes Antonio, Eso ya lo había probado, incluso antes del DispEnd(), pero tiene otro efecto colateral negativo y feo. Si tienes un tfolderex con varias pestañas, con que pases el ratón por encima de las otras pestañas, a la vez que se pinta la rayita ...

Antolin,

Tendrias que plantearte el implementarle el pintado a "doble buffer" que es la única manera de evitar los parpadeos.

Tienes muchos ejemplos en las clases de FWH. Busca por:

local aInfo := ::DispBegin()

... pintado estandard ...

::DispEnd( aInfo )

Antonio, This way the background is properly filled. Now if you uncomment the calls to DispBegin() and DispEnd() an unexpected border appears at the top and at the left. I just tried but I don't see any border, with or without the two calls. And, by the way, I don't see the ...

... ::nWidth, ::aGrad() )         endif      endif      endif   // ::DispEnd( aInfo )return nil This way the background is properly filled. Now if you uncomment the calls to DispBegin() and DispEnd() an unexpected border ...