FiveTech Software tech support forums

o problema esta aqui, mais precisamente na linha destacada: METHOD DispBegin( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ...

... tudo onde faz cores no xbrowse e continua fazendo como escrito acima ... andei olhando a classe e achei mais ou menos onde eh o problema: METHOD DispBegin ( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC ...

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

... usano e non è 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 ...

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

... Error BASE/1068 Error de argumento: acceso al array Args: [ 1] = N 8716303 [ 2] = N 3 Stack Calls =========== Called from: Window.prg => TGET:DISPBEGIN( 1163 ) Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1684 ) Called from: .\source\classes\TGET.PRG => (b)TGET( 127 ) Called ...

... DiskSpace([<nDrive>],[<nType>])->nBytes DiskTotal([<cDrive>])->nTotalBytes DiskUsed([<cDrive>])->nUsedDiskSpace DispBegin()->Nil DispBox(<nTop>,<nLeft>,<nBottom>,<nRight>,[<cnBoxString>],[<cColorString>])->Nil DispCount()->nDispCount ...

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

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

... get accurate screen sizes when I use bPainted. screenwidth() and screenheight() are not always correct. Maybe it has something to do with buffer/dispbegin(). One of the things I need to do when screen is rotated is change the dialog/window position and size. This also affects bPainted. If i modify ...

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 )

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