Ce morceau de code me rend fou car je ne vois pas où est le problème
Quelqu'un peut m'aider s'il vous plait?
Code : Tout sélectionner
Enumeration img 1
#IMG1
#IMG2
EndEnumeration
Structure Shap
idcurrent.l
px.l
py.l
wx.l
wy.l
Array Tab01.l(0,0)
EndStructure
*param.Shap = AllocateMemory(SizeOf(Shap))
*param\Tab01(100,100)
*param\idcurrent = #IMG1
*param\wx = 100
*param\wy = 100
*param\Tab01(0,0) = Random(100,0)
Procedure Gpart1(*param.Shap)
Debug *param\Tab01(3,3)
Debug *param\idcurrent
Debug *param\wx
Debug *param\wy
EndProcedure
If CreateThread(@Gpart1(), *param)
Debug "Thread ok"
EndIf