Discussion :

[obscuwave]

Bonjour,

J'utilise le tutoriel de Laurent Dubettier Grenier pour la création du jeu pong avec lazarus mais lors de l'etape création de la balle, je dois rentrer :

Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(0,0,15,15);

Mais lors du lancement celui ci m'indique canvas not found. Je suis débutant et aimerais bien savoir si vous pouviez m'aider a regler ce problème :p

[gvasseur58]

Bonjour,

Dans quelle méthode as-tu tapé ce code ?
Le tutoriel indique qu'il faut l'intégrer dans la procédure FormKeyPress de la fiche principale.

Pour intégrer ceci, dans la procédure FormKeyPress, nous allons donc rajouter le code ci dessus à l'endroit suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Ord(Key) = VK_SPACE then
        Begin
               Canvas.Brush.Color:=clWhite;
               Canvas.Rectangle(0,0,15,15);
        End;

Le canevas n'existe qu'en rapport avec une surface sur laquelle dessiner. Ici, ce sera la fiche principale.
Dans l'inspecteur d'objet (à gauche de la fiche normalement), choisis le volet événements puis double-clique sur OnKeyPress pour créer le gestionnaire. Dans le squelette de procédure que crée automatiquement Lazarus, entre le code voulu...

Bonjour,

J'utilise le tutoriel de Laurent Dubettier Grenier pour la création du jeu pong avec lazarus mais lors de l'etape création de la balle, je dois rentrer :

Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(0,0,15,15);

Mais lors du lancement celui ci m'indique canvas not found. Je suis débutant et aimerais bien savoir si vous pouviez m'aider a regler ce problème :p

[obscuwave]

Ah oui , excuse je suis juste... Mais merci d'avoir perdu ton temps pour moi, je t'en suis reconnaisant