Discussion :

[Mickey.jet]

bonjour a tous...
je me suis lancé dans la bidouille du dessin avec le canvas d'une form (je trouve ca sympa y a plein de possibilité et je me lance des ptits defis ).
je vous explique j'ai dessiné un cercle avec dedans 8 rayons et je souhaite faire apparaitre ces rayons 1 par 1 pour deonner un effet de déplacement (style horloge)-> par la suite je metterai davantage de rayon...
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 with Form2.Canvas do
  begin
      //contour du cercle en bleu et d'épaisseur 2
      pen.Width := 2;
      pen.Color := clBlue;
 
      //cercle rempli blue
      Canvas.Brush.Color := clBlue;
 
      //dessin du cercle
      Canvas.Ellipse(300,300,150,150);
 
      //couleur des rayons
      pen.Color := clWhite;
 
      //dessin des rayons du cercle
      moveTo(225, 225);
      LineTo(300,225);
 
      moveTo(225, 225);
      LineTo(225,300);
 
      moveTo(225, 225);
      LineTo(150,225);
 
      moveTo(225, 225);
      LineTo(225,150);
 
      moveTo(225, 225);
      LineTo(275,169);
 
      moveTo(225, 225);
      LineTo(170,173);
 
      moveTo(225, 225);
      LineTo(169,274);
 
      moveTo(225, 225);
      LineTo(278,275);
 
  end;

ca me dessine bien mon cercle avec les rayons mais comment dois je m'y prendre pour donner cette sensation de mouvement?

Merci pour l'aide

[Matt2094]

Utilise un TTimer ... A une certaine intervale (que tu auras définis dans le Timer), affiche un de tes rayons, un par un. Mets un compteur pour éviter que ça soit toujours le même que tu affiche ...

[Mickey.jet]

ok mais en faisant ca et en mettant un ProcessMessage tu pense que j'arriverai a continuer a travailler avec mon appli? ben oui je veux pas que ca monopolise mon logiciel...

[Matt2094]

Arpès, ça dépend de la féquence de tracé que tu veux utiliser ... mais je ne pense pas qu'un ptit code comme ça pourra faire laguer un ordi ...

[Mickey.jet]

ok mais encore une question...
Coment je fais pour effacer le rayon précédemment tracé...
Et comment faire pour générer chacun des rayon un pas un alors qu'il n'y a pas de regles entre chaque coordonné des LineTO?

merci

[Matt2094]

Tu le retrace avec la couleur qui tu as choisis pour faire la transparence ; par exemple, le blanc ...
Mais j'ai pas très bien compris ta 2e question ...