Ou est ce que je me gourre? Dans le debuggeur mes images sont
correctes mais pas à l'écran
//== Je recupere le fond avec les lettres placées
Monfond = new picture(540,540,32)
Monfond.Graphics.DrawPicture(Principale.CPlateau.Backdrop,0,0)
//== Je prend une image pour travailler
Nouvelle = new picture(540,540,32)
//== Je prepare mon rectangle
MonCarre = new picture(36,36,32)
MonCarre.Graphics.PenHeight =2
MonCarre.Graphics.PenWidth =2
MonCarre.Graphics.ForeColor = rgb(255,0,0)
MonCarre.Graphics.DrawRect(0,0,36,36)
MonCarre.Transparent = 1
for i = 0 to ubound(tableauCases)
//== Je prends le fond sans carré
Nouvelle.Graphics.DrawPicture(Monfond,0,0)
//== Je dessine dessus un carré
Nouvelle.Graphics.DrawPicture(Moncarre ,35,35,36,36)
//Pause(1)
//== J'affiche le résultat
Principale.CPlateau.Graphics.DrawPicture(Nouvelle,0,0)
//Principale.CPlateau.Backdrop =Nouvelle
Principale.Refresh
Next
J'ai essayé avec un drawrect... pareil
Que je passe par le backdrop ou le graphic de CPlateau c'est pareil
Le code me parait correct...
|