Erreur Windows Seven Fred ??

[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)

[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.

[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)

[case]

tu utilise quel sous système ? si t'es en dx 7 c'est normal ...

[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 ...

[Backup]

@fred
Denis t'as mis des captures D'ecran du probleme ici :
http://www.purebasic.fr/french/viewtopi ... 24#p132924

[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

[Backup]

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 !!

[jbernard13]

je suis plus sous xp

[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