Вопрос о подсветке функций остаёться открытым
Почему нельзя в цикле For... Next задавать ей- FI_Surfaces.Array[ i ] , параметры???
Type FI_SurfacesType
Field Count:Int
Field Array:Int[256]
Field Texture:Int
End Type
Global FI_Surfaces:FI_SurfacesType = New FI_SurfacesType
Function xCreateImageEx:Int (texture:Int, width:Int, height:Int, imageFlags:Int = -1)
FI_Surfaces.Texture = texture
FI_Surfaces.Count = xGetTextureFrames(texture)
If FI_Surfaces.Count>0
If FI_Surfaces.Count>256 FI_Surfaces.Count=256
For Local i:Int=1 To FI_Surfaces.Count-1
FI_Surfaces.Array[ i ] = xGetTextureSurface(texture, i)
Next
'Return xCreateImageExSurf_(FI_Surfaces, width, height, imageFlags)
EndIf
End Function