Errores en XBrowse. Mr Rao

[Ariel]

Mr. Rao,

basado en el ejemplo xbwaterm.prg le presento 2 errores a mi entender que suceden en el xbrowse :
1) si ejecuta el ejemplo la cuarta columna en la primera fila (STREET) se ven como en un color mas claro al moverse con las flechas del cursor arriba o abajo, incluso con la rueda del mouse.
2) el metodo bPaintBack, anula el efecto pijama, en realidad anula la configuracion de "bClrStd"

Saludos.

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oWnd, oBrw, oFont, aImage
   local nAlphaLevel := 64

   USE CUSTOMER NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "Calibri" SIZE 0,-15 BOLD

   DEFINE WINDOW oWnd

   oWnd:SetFont( oFont )
   aImage   := oWnd:ReadImage( "..\bitmaps\pngs\2.png", , .t. )

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oWnd ;
      DATASOURCE "CUSTOMER" AUTOCOLS NOBORDER CELL LINES

   WITH OBJECT oBrw
   
      :bClrStd := { || { CLR_BLACK, If(oBrw:KeyNo % 2 == 0, CLR_CYAN, CLR_HBLUE ) } } // colores para lineas normales  
   
      :lTransparent  := .T.

      :bPaintBack := < |Self|
         FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
         ::DrawImage( aImage, ::DataRect():aRect, nil, nil, nAlphaLevel )
         ::lTransparent := .t.
         return nil
         >
         
      //
      :CreateFromCode()
   END

   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont
   PalBmpFree( aImage )

return nil


 

[nageswaragunupudi]

1) si ejecuta el ejemplo la cuarta columna en la primera fila (STREET) se ven como en un color mas claro al moverse con las flechas del cursor arriba o abajo, incluso con la rueda del mouse.

Add this code:

Code: Select all  Expand view

 :lContrastClr  := .f.
 

between WITH OBJECT oBrw and END

[nageswaragunupudi]

2) el metodo bPaintBack, anula el efecto pijama, en realidad anula la configuracion de "bClrStd"

If you want to see the back-color of bClrStd, you can not see the image behind the browse.

[Ariel]

Mr. Rao,

1) funciona ok
2) entiendo.

Muchas gracias.