FiveTech Software tech support forums

Wilson,

Prueba esto:

oTree:bEraseBkGnd = { || nil }

Joaquín,

Prueba asi:

oTree:bEraseBkGnd = { || nil }

... CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hCDC,0 )   ENDIFRETURN 1  2. Al definir el Scroll hay que poner: oVScroll:bEraseBkGnd := { || NIL } 3. Cuando se redimensiona el control, hay que pintarlo en un DC compatible: FUNCTION ResizeCtrl( PARAMETROS... )  ...

... cambiao el valor de ::oVScroll:nWidth el Scroll se borra y se redibuja creando un parpadeo muy feo. He optado por incluir la clausula: ::oVScroll:bEraseBkGnd := { || NIL } Y, el cuerpo del Scroll ya no parpadea, pero si sus botones. Algo es algo. ¿Hay alguna forma de acceder a los objetos BUTTON ...

...  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      431   585   585 BFINDNEXT              WINDOW.PRG     ...

There is a problem in the bEraseBkGnd of TSay. The following sample doesn't show a colored SAY if the theme is activated: #include "Fivewin.ch"#include "Image.ch"FUNCTION MAIN()    LOCAL oDlg, oSay  ...

... focus //----------------------------------------------------------------------------// METHOD EraseBkGnd( hDC ) CLASS TDialog if ! Empty( ::bEraseBkGnd ) return Eval( ::bEraseBkGnd, hDC ) endif if ::oBrush != nil FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) return 1 // Leave ...

... and show bitmaps too. If you want to keep using those buttons, and change the dialogs colors, then you need to change this: oFolder:aDialogs[ n ]:bEraseBkGnd = nil or create a function DrawPBack() in your main PRG that fills the dialog the way you want. Please note how it is used from Class TFolder: ...

... http://img145.imageshack.us/img145/4406/folder2tz2.jpg Estoy usando : oFld:aDialogs[1]:bEraseBkGnd := nil oFld:aDialogs[1]:SetBrush( oNwBrush ) Ya probe tambien : oFld:aDialogs[1]:oBrush := oNwBrush Algo que me este faltando para esto ...

Acwoo,

Please check that you have the DATA bEraseBkGnd declared in Class TWindow

Are you using a modified Class TDialog or Class TWindow ?

... bytes Time from start: 0 hours 0 mins 3 secs Error occurred at: 04/12/2007, 19:33:31 Error description: Error BASE/1004 Message not found: TDIALOG:BERASEBKGND Args: [ 1] = O Object Stack Calls =========== Called from: => __ERRRT_SBASE(0) Called from: => TDIALOG:ERROR(172) Called from: source\rtl\tobject.prg ...

... bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 01/12/2007, 14:34:28 Error description: Error BASE/1004 Message not found: TDIALOG:BERASEBKGND Args: [ 1] = O Object Stack Calls =========== Called from: => __ERRRT_SBASE(0) Called from: => TDIALOG:ERROR(172) Called from: source\rtl\tobject.prg ...

... bytes Time from start: 0 hours 0 mins 2 secs Error occurred at: 30/11/2007, 13:36:14 Error description: Error BASE/1004 Message not found: TDIALOG:BERASEBKGND Args: [ 1] = O Object Stack Calls =========== Called from: => __ERRRT_SBASE(0) Called from: => TDIALOG:ERROR(172) Called from: source\rtl\tobject.prg ...

Thanks for the reply

The error message now is:

Error Base/1004 Message not found: TDIALOG:BERASEBKGND

Please help

This may also help:

@ 3, 2 GET oGet VAR cGet OF oFld:aDialogs[ 1 ]

oFld:aDialogs[ 1 ]:bEraseBkGnd = { | hDC | DrawPBack( oFld:aDialogs[ 1 ]:hWnd, hDC ), 1 }