,Je viens de créer un petit programme qui poura vous faciliter la tache;
Ce prog consiste à convertir une image (touts formats) en base de données DataSection en plus de son lecteur Data pour reconstituer l'image
celà poura vous permettres d'incorporer des images dirrectement dans l'executable; vous enttendrez un signal sonore qui vous indiquera que la convertion est terminée et qu'elle est chargée dans le presse papier pour coller le tous dans votre code en cours d'édition sans avoir à le copier à partir de l'éditeur du convertisseur;
j'attents vos réactions, Merci
Code : Tout sélectionner
;The Fortix .::Convertor V1::.
Enumeration
#Editor_0
#Button_0
#Button_1
#Button_2
EndEnumeration
UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()
Global FontID1
FontID1 = LoadFont(1, "Courier New", 9, #PB_Font_Bold)
Procedure Open_Editor_0()
If OpenWindow(#Editor_0, 344, 172, 256, 250, "Fortix_Convertor_DATA", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Editor_0))
EditorGadget(#Editor_0, 5, 40, 245, 150,#PB_Editor_ReadOnly)
SetGadgetFont(#Editor_0, FontID1)
SetGadgetColor(#Editor_0, #PB_Gadget_BackColor, RGB(0,0,0))
SetGadgetColor(#Editor_0, #PB_Gadget_FrontColor, RGB(0,128,255))
SetWindowColor(#Editor_0, RGB(0,0,128))
GadgetToolTip(#Editor_0, "Une fois la liste DATA établit, copier son contenu puis introduisez le en SectionData dans le code en cour d'édition")
ButtonGadget(#Button_0, 5, 10, 245, 20, "OUVRIR IMAGE")
ButtonGadget(#Button_1, 5, 195, 245, 20, "NOUVELLE IMAGE ?")
GadgetToolTip(#Button_1, "Appuyer ici pour ouvrir une nouvelle image")
ButtonGadget(#Button_2, 5, 220, 245, 20, "ENREGISTRER IMAGE DATA")
GadgetToolTip(#Button_2, "Appuyer ici pour enregistrer votre image DATA en format texte (*.txt)")
;PureCOLOR_SetButtonColor(#Button_2, RGB(128,128,64), RGB(0,128,182))
ProcedureReturn 1
EndIf
EndIf
EndProcedure
If Open_Editor_0()
DisableGadget(#Button_0,0)
DisableGadget(#Editor_0,1)
DisableGadget(#Button_1,1)
DisableGadget(#Button_2,1)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
Num_$=InputRequester("ID","Attribuez un ID de depart:","0")
If Num_$="" Or Num_$=" "
Num_$="0"
EndIf
Nm_File_$ = OpenFileRequester("Ouverture de l'image à convertir", Nm_File_$, "Fichiers Image|*.jpg;*.jpeg;*.tga;*.bmp;*.png;*.tif;*.gif", 0 )
s$=GetFilePart(Nm_File_$)
Label_$=StringField(s$,1," ")
If FindString(Label_$,".",1)
Label_$=StringField(s$,1,".")
EndIf
If Nm_File_$
DisableGadget(#Button_0,1)
DisableGadget(#Editor_0,0)
If LoadImage(0, Nm_File_$)
H = ImageHeight(0)
L = ImageWidth(0)
AddGadgetItem(#Editor_0, 0, "If CreateImage("+Num_$+", "+Str(L)+", "+Str(H)+")")
AddGadgetItem(#Editor_0, 1, "")
AddGadgetItem(#Editor_0, 2, " StartDrawing(ImageOutput("+Num_$+"))")
AddGadgetItem(#Editor_0, 3, "")
AddGadgetItem(#Editor_0, 4, " Restore "+Label_$)
AddGadgetItem(#Editor_0, 5, "")
AddGadgetItem(#Editor_0, 6, " For ay=0 To "+Str(H)+"-1")
AddGadgetItem(#Editor_0, 7, " For ax=0 To "+Str(L)+"-1")
AddGadgetItem(#Editor_0, 8, "")
AddGadgetItem(#Editor_0, 9, " Read a.l")
AddGadgetItem(#Editor_0, 10, " Plot(ax,ay,a.l)")
AddGadgetItem(#Editor_0, 11, "")
AddGadgetItem(#Editor_0, 12, " Next ax")
AddGadgetItem(#Editor_0, 13, " Next ay")
AddGadgetItem(#Editor_0, 14, " StopDrawing()")
AddGadgetItem(#Editor_0, 15, "")
AddGadgetItem(#Editor_0, 16, " ay=0")
AddGadgetItem(#Editor_0, 17, " ax=0")
AddGadgetItem(#Editor_0, 18, "EndIf")
AddGadgetItem(#Editor_0, 19, "")
AddGadgetItem(#Editor_0, 20, "")
AddGadgetItem(#Editor_0, 21, "DataSection")
AddGadgetItem(#Editor_0, 22, " "+Label_$+":")
StartDrawing(ImageOutput(0))
For y=0 To H-1
ligne$=" data.l "
For x=0 To L-1;+(2-1)
hx$=Hex(Point(x,y))
hx$="$"+RSet(hx$,6,"0")
ligne$=ligne$+hx$+","
Next x
ligne$=Left(ligne$, Len(ligne$)-1)
AddGadgetItem(#Editor_0, -1, ligne$)
Next y
StopDrawing()
AddGadgetItem(#Editor_0, -1, "")
; AddGadgetItem(#Editor_0, -1, ";_Hauteur: "+Str(H)+" px")
; AddGadgetItem(#Editor_0, -1, ";_Largeur: "+Str(L)+" px")
AddGadgetItem(#Editor_0, -1, "EndDataSection")
DisableGadget(#Button_1,0)
DisableGadget(#Button_2,0)
SetClipboardText(GetGadgetText(#Editor_0))
MessageBeep_(48)
EndIf
EndIf
Case #Button_1
ClearGadgetItemList(#Editor_0)
DisableGadget(#Button_0,0)
DisableGadget(#Editor_0,1)
DisableGadget(#Button_1,1)
DisableGadget(#Button_2,1)
Case #Button_2
Datalist$ = GetGadgetText(#Editor_0)
DestiFichier$ = SaveFileRequester("Enregistrement du fichier à convertir", Nm_File_$+"_VData.txt", "*.txt", 0 )
CreateFile(2,DestiFichier$+"_VData.txt")
WriteStringN(2,Datalist$)
CloseFile(2)
ClearGadgetItemList(#Editor_0)
DisableGadget(#Button_0,0)
DisableGadget(#Editor_0,1)
DisableGadget(#Button_1,1)
DisableGadget(#Button_2,1)
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
CloseWindow(#Editor_0)
End
EndIf
Note: la version 2 est en cours................
;
;