Olá no me funciona xbrowse com bitmaps. O que está errado?
// Definição do xbrowse
oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4047 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:bClrRowFocus := { || { CLR_BLACK, RGB( 150,231,70 ) } }
oBrw:bChange := { || Muda(), oBrw:Refresh() }
oCol := oBrw:AddCol()
oCol:AddResource("CHECKON")
oCol:AddResource("CHECKOFF")
oCol:cHeader := ""
oCol:nArrayCol := 1
oCol:nWidth := 20
oCol:bStrData := nil
oCol := oBrw:AddCol()
oCol:cHeader := "Nº BOLETO"
oCol:nArrayCol := 2
oCol:nWidth := 100
oBrw:l2007:=.t.
oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } }
...
// Load Array
VetBol :={}
For x = 1 to 5
AAdd(VetBol,{".f.",oArqBol:BOLETO})
Next x
oBrw:SetArray( VetBol )
oCol:bBmpData := {|| IIF( oBrw:aArrayData[ oBrw:nArrayAt ][1], 1, 2) }
oBrw:Refresh()
Gracias
↧