I add on an array oDTipGrad the value of a dbf record (oDTipGrad)->Bitmap
Apri_Dbf("Tabelle" )
(oDTipGrad)->(DbSeek("G"))
DO WHILE (oDTipGrad)->CveTab="G" .AND. !(oDTipGrad)->(EoF())
AAdd(aGradiBmp,(oDTipGrad)->Bitmap)
(oDTipGrad)->(DbSkip())
ENDDO
Chiudi_Dbf("Tabelle",oDTipGrad)
then I create the xbrowse
and I must show the bitmap on xbrowse
oCol:= oApp():AddCol()
oCol:AddResource("sort1") // this for Header
oCol:AddResource("sort2") // this for the header
oCol:cHeader := "Grado"
oCol:nHeadBmpNo := if( (oDVds)->( ORDNUMBER() ) == 7, 1, 2)
oCol:nHeadBmpAlign := AL_RIGHT
oCol:bLClickHeader :={ ||(Sel_Index(6,oDVds) , oApp():=6,oApp():refresh()) }
oCol:AddBmpFile(aGradiBmp[(oDVds)->GRADO])
oCol:bStrData := { || (oDVds)->GRADO}
oCol:bBmpData := { || (oDVds)->GRADO+2}
oCol:nWidth :=40
But Not run ok !!!
have you an Idea ?
Apri_Dbf("Tabelle" )
(oDTipGrad)->(DbSeek("G"))
DO WHILE (oDTipGrad)->CveTab="G" .AND. !(oDTipGrad)->(EoF())
AAdd(aGradiBmp,(oDTipGrad)->Bitmap)
(oDTipGrad)->(DbSkip())
ENDDO
Chiudi_Dbf("Tabelle",oDTipGrad)
then I create the xbrowse
and I must show the bitmap on xbrowse
oCol:= oApp():AddCol()
oCol:AddResource("sort1") // this for Header
oCol:AddResource("sort2") // this for the header
oCol:cHeader := "Grado"
oCol:nHeadBmpNo := if( (oDVds)->( ORDNUMBER() ) == 7, 1, 2)
oCol:nHeadBmpAlign := AL_RIGHT
oCol:bLClickHeader :={ ||(Sel_Index(6,oDVds) , oApp():=6,oApp():refresh()) }
oCol:AddBmpFile(aGradiBmp[(oDVds)->GRADO])
oCol:bStrData := { || (oDVds)->GRADO}
oCol:bBmpData := { || (oDVds)->GRADO+2}
oCol:nWidth :=40
But Not run ok !!!
have you an Idea ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio