Page 1 sur 1
Erreur Windows Seven Fred ??
Publié : jeu. 30/juin/2011 15:34
par Backup
il semble que des que l'on utilise un Screen() sous Seven
celui ci envoie un message d'erreur comme quoi le profil couleurs n'est pas le bon bla,bla,bla,bla ..
n'y aurai t'il pas un probleme au niveau de Purebasic , que celui ci oublierai de signaler
un truc obscure a Seven , pour lui dire que tout vas bien ....
c'est souvent que les utilisateurs de mes prg se plaignent sous Seven , de ce probleme ...
est-ce résolu dans la Version 4.60 ??
(je suis encore en 4.51)
Re: Erreur Windows Seven Fred ??
Publié : jeu. 30/juin/2011 15:36
par Fred
Je ne pense pas avoir vu de bug concernant ce probleme. Si t'as un petit exemple qui montre clairement de quoi il retourne, je suis preneur.
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 9:59
par Backup
je vais essayer de te faire ça ..
pour info , Denis a aussi deja rencontré le probleme
lire ici :
http://www.purebasic.fr/french/viewtopi ... 15#p132915
(avant dernier post)
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 10:10
par case
tu utilise quel sous système ? si t'es en dx 7 c'est normal ...
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 11:42
par Backup
ouiii !!
je confirme l'erreur apparait lorsqu'on compile un programme sous XP avec mode Directx7
et qu'on lance ce programme sous Seven !!!
par exemple ceci :
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()
si c'est un comportement normal
il faut le signaler dans la doc ...
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 15:35
par Backup
@fred
Denis t'as mis des captures D'ecran du probleme ici :
http://www.purebasic.fr/french/viewtopi ... 24#p132924
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 15:59
par jbernard13
j'ai crée un excutable du code fourni par dobro et j'ai pas de messages d'erreur comme denis a eu , je suis sous seven 64 bits service pack1 direct x 11
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 16:11
par Backup
jbernard13 a écrit :j'ai crée un excutable du code fourni par dobro et j'ai pas de messages d'erreur comme denis a eu , je suis sous seven 64 bits service pack1 direct x 11
il faut Compiler sous XP avec Directx7 Actif
puis lancer le prg dans Seven !!
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 16:24
par jbernard13
je suis plus sous xp
Re: Erreur Windows Seven Fred ??
Publié : ven. 01/juil./2011 21:22
par Le Soldat Inconnu
Avec DX7, c'est normal
ton écran n'est pas compatible Aéro avec DX7 donc Aéro est stoppé par Windows le temps de l'exécution du programme