peut on convertir un sprite en image
sans enregistrer le sprite, puis en chargant l'image, puis eneffacant l'image crée ?
parce qu'sa prend beaucoup de temps
et puis pour que la fenetre soit agrandis quand elle apparait
j'ai bien un code mais ca ne marche pas
Code : Tout sélectionner
UseJPEGImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
UseJPEGImageEncoder()
UsePNGImageEncoder()
;- Fonts
;
Global FontID1
FontID1 = LoadFont(1, "Arial", 9, #PB_Font_Underline)
CreateImage(0, 470, 400)
If InitMouse() = 0 Or InitSprite() = 0 Or InitSprite3D() = 0 Or InitKeyboard() = 0
MessageRequester("Error", "Can't open DirectX 7", 0)
End
EndIf
OpenWindow(0, 0, 0, 1024, 706, #PB_Window_Invisible | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "Renomme")
ShowWindow_(WindowID(0), #SW_maximize)
If CreateMenu(0, WindowID())
MenuTitle("Fichier")
MenuItem(0, "Ouvrir une liste de fichier")
MenuItem(1, "Quitter")
EndIf
If CreateGadgetList(WindowID())
ListViewGadget(0, 0, 0, 200, 686)
TextGadget(1, 250, 10, 140, 20, "Première partie fixe :")
SetGadgetFont(1, FontID1)
StringGadget(2, 400, 5, 135, 20, "")
TextGadget(1, 250, 40, 140, 20, "Seconde partie variable :")
SetGadgetFont(1, FontID1)
StringGadget(3, 400, 35, 135, 20, "")
TextGadget(1, 250, 70, 140, 20, "Troisième partie :")
SetGadgetFont(1, FontID1)
StringGadget(4, 400, 65, 135, 20, "")
TextGadget(1, 250, 100, 110, 20, "Apercu de l'image :")
SetGadgetFont(1, FontID1)
ImageGadget(5, 210, 120, 470, 400, 0)
EndIf
sizex = WindowWidth() - 220
sizey = WindowHeight() - 145
OpenWindowedScreen(WindowID(0), 2000, 2000, sizex, sizey, 0, 0, 0)
ResizeGadget(5, -1, -1, sizex, sizey)
debut = 0
Select_1 = -1
Repeat
event = WaitWindowEvent()
If event = #pb_event_menu
If EventMenuID() = 0
file.s = OpenFileRequester("Selectionnez une liste de fichier", "", "All Type of Image|*.bmp;*.jpg;*.png|BMP format|*.bmp|JPG format|*.jpg|PNG format|*.png|All|*.*", 0, #PB_Requester_MultiSelection)
ClearGadgetItemList(0)
path.s = GetPathPart(file)
pos = -1
Select_1 = -1
Repeat
pos = pos + 1
AddGadgetItem(0, pos, GetFilePart(file))
file = NextSelectedFileName()
Until file = ""
ElseIf EventMenuID() = 1
End
EndIf
EndIf
Select_0 = GetGadgetState(0)
If Select_0 <> Select_1
Select_1 = Select_0
image.s = path + GetGadgetItemText(0, Select_0, 0)
If LoadSprite(2, image, #PB_Sprite_Texture)
CreateSprite3D(1, 2)
ClearScreen(0, 0, 0)
Sprite3DQuality(1)
ZoomSprite3D(1, sizex, sizey)
If Start3D()
DisplaySprite3D(1, 0, 0, 255)
Stop3D()
EndIf
FlipBuffers()
GrabSprite(0, 0, 0, sizex, sizey)
SaveSprite(0, "instable.bmp", #PB_ImagePlugin_BMP)
SetGadgetState(5, LoadImage(0, "instable.bmp"))
DeleteFile("instable.bmp")
EndIf
EndIf
Until event = #pb_event_closewindow
End
)