les couleurs sont delavé,je m'en était pas aperçu vu que j'utilisé la 5.50 x86.
mais le problème est quand j'utilise une version 5.44 lts x64 ou meme 5.50x64 de purebasic
ce code en x 86 m'affiche bien des couleurs jaune vert bleu rouge,mais en x64 c'est bleu clair,blanc
j'avais mis un gif dans mon post (capturer avec licecap) c'a s'affiche pas chez vous?car moi je le vois
Code : Tout sélectionner
EnableExplicit
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 ;or UsePNGImageDecoder()=0
MessageRequester("Probleme","Initialisations impossibles",0)
End
EndIf
Enumeration fenetre
#fenetre
EndEnumeration
Enumeration
#bouton
#bouton2
#bouton3
EndEnumeration
#largeur_ecran = 640
#hauteur_ecran =480
Global Event,i
Global couleur.f,couleur2.f,largeur_ecran ,hauteur_ecran
;fenetre
OpenWindow(#fenetre,0,0,#largeur_ecran,#hauteur_ecran,"Pure Miga",#PB_Window_ScreenCentered|#PB_Window_SystemMenu )
OpenWindowedScreen(WindowID(#fenetre),0,0,#largeur_ecran,#hauteur_ecran)
Procedure bouton()
CreateSprite(#bouton,155,155)
StartDrawing(SpriteOutput(#bouton))
Box(0,0,155,155,RGB(155*couleur2,255*couleur,150*couleur2))
StopDrawing()
EndProcedure
Procedure bouton2()
CreateSprite(#bouton2,55,55)
StartDrawing(SpriteOutput(#bouton2))
Box(0,0,55,55,RGB(125*couleur2,255*couleur,70))
StopDrawing()
EndProcedure
Procedure bouton3()
CreateSprite(#bouton3,55,55)
StartDrawing(SpriteOutput(#bouton3))
Box(0,0,55,55,RGB(75*couleur,25*couleur,150))
StopDrawing()
EndProcedure
Repeat;2d
Repeat ;event fenetre
Event = WindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event=0
FlipBuffers()
ClearScreen(RGB(0,0,0))
ExamineKeyboard()
bouton()
bouton2()
bouton3()
DisplayTransparentSprite(#bouton2,40,225,155)
DisplayTransparentSprite(#bouton,200,225,155)
DisplayTransparentSprite(#bouton3,420,225,155)
;-------------------------------
couleur = couleur.f-0.025
couleur2 = couleur2.f - 0.035
Until KeyboardPushed(#PB_Key_Escape) Or event = #PB_Event_CloseWindow
End