Grace au super code de TYPHOON, j'ai maintenant ma spirale dans un anneau rond.
Comme il m'a dit....t'as plus qu'a ......
Hummm humm excusez moi c'est nerveux
Donc y m'a dit que j'avais plus qu'a creer un sprite et mettre l'icone dedans ....
Apres trois heures entre la recherche sur les forums et la torture d'un code qui m'avait au demeurant rien fait
J'etais content car si y'a une chose dont je suis fier, c'est que je reste constant dans le resultat de mes durs labeurs.....je suis arrivé a rien
Pas moyen de faire apparaitre ce satané icone de Biiiiiiiiiiiiiiiiiiiiiiiiiiiip !!!!
Vu que je fais jamais de graphisme ou presque si ce n'est le skinnage des form...autant dire que j'y vois clair comme la nuit par une nuit d'eclipse.
Alors si quinquin y peut me dire, ce qui gazouille pas...
J'obtiens le handle de l'image par l'API "SHGetFileInfo_" mais c'est peut etre pas le handle qu'attend la fonction "DrawImage" j'ai un peu tout essayé les imageID et tout le toutim ....meme l'api "GetDlgCtrlID_" et peau de zobi...
Code : Tout sélectionner
Enumeration
#Sprite
EndEnumeration
Structure MySHFILEINFO
hIcon.l
iIcon.l
dwAttributes.l
szDisplayName.b[#MAX_PATH]
szTypeName.b[80]
EndStructure
InitSprite()
OpenWindow(0,0,0,200,100, "Icon",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0, 0, 100, 100, 0, 0, 0)
DragAcceptFiles_(WindowID(0), #True)
Repeat
Evenement = WaitWindowEvent()
If Evenement = #WM_DROPFILES
Define Dropped.l, Num.l, Index.l, Size.l, FileName.s
Dropped = EventwParam()
Num = DragQueryFile_(Dropped, - 1, "", 0)
For Index = 0 To Num - 1
Size.l = DragQueryFile_(Dropped, Index, 0, 0)
FileName.s = Space(Size)
DragQueryFile_(Dropped, Index, FileName, Size + 1)
Next
DragFinish_(Dropped)
If SHGetFileInfo_(FileName, 0, @Info.MySHFILEINFO, SizeOf(MySHFILEINFO), #SHGFI_ICON|#SHGFI_LARGEICON)
IconHandle = Info\hIcon
ImageGadget(0, 100, 0, 32, 32, IconHandle)
CreateSprite(#Sprite, 32, 32)
StartDrawing(SpriteOutput(#Sprite))
DrawImage(IconHandle, 0, 0, 32, 32)
StopDrawing()
DestroyIcon_(IconHandle)
EndIf
EndIf
Until Evenement = #PB_Event_CloseWindow
Bonne journée
