1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
LOCAL
iLargeurColonne est un entier
iHauteurLigne est un entier
iIndice est un entier
bfImg est un Buffer
iIndice = TableAjouteLigne(Table1)
iLargeurColonne = Table1.Col_Conteneur[iIndice]..Largeur-1
iHauteurLigne = Table1.Col_Conteneur[iIndice]..Hauteur-1
Image1..Largeur = iLargeurColonne
Image1..Hauteur = iHauteurLigne
dDébutDessin(Image1)
dRectangle(0,0,iLargeurColonne-1,iHauteurLigne-1,iJauneClair,iNoir)
bfImg = dSauveImagePNG(Image1,enMémoire)
Table1.Col_Conteneur[iIndice].Image1..Largeur = iLargeurColonne
Table1.Col_Conteneur[iIndice].Image1 = bfImg
//Ces exemples ne fonctionnent pas, c'est la raison pour laquelle je doit passer par un champ Image de ma fenêtre :
//dCopieImage(Image1,Table1.Col_Conteneur[iIndice].Image1)
//dDébutDessin(Table1.Col_Conteneur[iIndice].Image1)
//dRectangle(0,0,iLargeurColonne-1,iHauteurLigne-1,JauneClair,iNoir) |
Partager