a causa:
Code: Select all
oCol := oLbxPefa:aCols[ 7 ]
oCol:nEditType := EDIT_BUTTON
oCol:bEditBlock := {|| alert("teste") }
oCol:AddResource("BMP_PRIN")
oCol:nBtnBmp := 1
oCol:nDataBmpAlign := 1
obs2: winxp acontece o erro acima,
*caso remova o codigo trabalha normal