Errores en XBrowse. Mr Rao
Posted: Fri Aug 21, 2020 11:02 am
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.
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
#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