Je confirme ce soucis qui viens je pense aussi d'aero ou plutôt intervient quand on code avec xp et qu'on tourne sous 7.
Je n'ai plus de quoi compiler sous xp pour le moment (faut que je remette virtual pc) mais le symptôme apparait lorsque l'on quitte mon prog
birthday cake generator :
Le scroll texte de fin entraine ce symptôme.
Mais si je compile le code suivant sous 7, j'ai plus de soucis (c'est le même code ou presque).
Faudrait que les possesseurs d'xp le compile et nous envoie l'exe pour qu'on test sous vista/7
Code : Tout sélectionner
; Sinus Scroll Texte.
; sans starfield
If Not InitMouse () Or Not InitSprite ()
End
EndIf
x.f = 2
Y.f = 40
vx.f = 20
vy.f = -45
pas.f=0.2
Declare Ondulation(x,Y,Texte.s,r,v,b)
Declare QuitScroll()
Global HSin.f = 15
Global LSin.f = 40
Global VitesseAngle.f = 1 * #PI / 35
Global Vitesse.c = 1
LoadFont (0, "arial" ,14)
Global angle.f, FontID , long_text_bas
Procedure Ondulation(x,Y,Texte.s,r,v,b)
StartDrawing ( ScreenOutput ())
DrawingMode (1)
FrontColor ( RGB (r,v,b) )
DrawingFont ( FontID (0))
angle + VitesseAngle
If angle >= 2 * #PI
angle = 0
EndIf
PosX = 5
For n = 1 To Len (Texte)
Lettre.s = Mid (Texte, n, 1)
PosY = 35 + HSin * Sin (angle + PosX / LSin )
DrawText (x+PosX, Y+PosY,Lettre)
PosX + TextWidth (Lettre)
Next
StopDrawing ()
EndProcedure
Procedure QuitScroll()
OpenWindow (1, 1,1, 400, 100, "LDV MULTIMEDIA" , #PB_Window_ScreenCentered|#PB_Window_BorderLess )
StickyWindow(1,1)
OpenWindowedScreen ( WindowID (1) , 1, 1, 400, 100, 10, 1, 1)
x= 400
Y=1
Repeat
Event= WaitWindowEvent ()
Texte.s= "LDV MULTIMEDIA - FOR YOUR PLEASURE - http://ldvmultimedia.com"
x-2
Ondulation(x,Y,Texte.s,255,255,0)
ExamineMouse ()
If MouseButton (2) Or MouseButton(1)
quite=1
EndIf
FlipBuffers ()
ClearScreen ( RGB (0, 0, 0))
If x<-720
quite=1
EndIf
Until quite=1
End
EndProcedure
QuitScroll()
et après j'ai lu la notice et j'ai défini le chemin et ça a marché 
!