[v4 beta 10] Bug ... ? Backcolor [Résolu]

[jerexgrz]

Voici un petit code :

Code : Tout sélectionner

InitSprite()
InitMouse()
InitKeyboard()

OpenScreen(800,600,16,"test")
x.l = MouseX()
y.l = MouseY()

LoadSprite(1,"c:\wizard\icnormal.bmp")


Repeat
  ExamineKeyboard()
  ExamineMouse()
  
  StartDrawing(ScreenOutput())
    ;BackColor(RGB(170,150,0))
    Box(0,0,800,600,RGB(170,150,0))   
    
  StopDrawing()
  

  DisplaySprite(1,MouseX(),MouseY())

  FlipBuffers()

Until KeyboardPushed(#PB_Key_Escape)

Comme on peut voir, je dessine une boite jaune à la place d'un ecran noir. Si je fais la meme chose avec backcolor, il ne se passe absolument rien ! (quelque soit la couleur par ex: 170 ou du rgb(170,150,0).

[Dr. Dri]

BackColor change la couleur d'arrière plan des fonctions de dessin.

Code : Tout sélectionner

InitSprite()
InitMouse()
InitKeyboard()

OpenScreen(800,600,16,"test")

Repeat
  ExamineKeyboard()
  ExamineMouse()
 
  If StartDrawing(ScreenOutput())
    BackColor(RGB(170,150,0))
    DrawText(100, 100, "fond jaune")
    
    BackColor(RGB(85,125,255))
    DrawText(100, 120, "fond pas jaune")
   
    StopDrawing()
  EndIf
  
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)

Dri

[jerexgrz]

Ok ! Merci *DRY.

Par contre : ca je suis sur que c'est un bugginous celui la !

Code : Tout sélectionner

...
procedure Dimension ( longueur.l, Largeur.l)
   for YY = 1 to (longueur+10)
...
  next yy
endprocedure

Si on passe, 15 dans la longueur en appelant la procedure, apparement dans la boucle, cela ne fait rien ! (=0)

le +10 permet de verifier, car quand j'ecris des donnees dans un fichier zz.txt , le +10 me permet d'ecrire les 10 lignes et si je le modifie par 6, du coup, le fichier contient +6 ligne alors que normalement le resultat devrait etre de 25 ( 15 +10) ou 21 (15+6).

[jerexgrz]

[quote="jerexgrz"]Ok ! Merci *DRY.

[Dr. Dri]

il faudrait un code plus complet, là avec ça y'a pas de bug

Code : Tout sélectionner

Procedure Dimension ( longueur.l, Largeur.l)
  For YY = 1 To longueur
    Debug YY
  Next YY
  Debug "---"
EndProcedure

Dimension(15, 0)
Dimension(6, 0)

Dri

[jerexgrz]

Oups, le dernier msg n'a pas été effacé !

Non ! il n'y a pas de bug ! Merci encore dry.
J'avais fait une erreur ds la procedure dimension( ...) , au lieu de largeur, j'avais ecrit largueur et dans le code, j'avais ecrit largeur. C pour ca, que ca ne fonctionnait pas du tout !! ( a cause d'un U en trop !)