Bonjour,

Je chercher à faire un graphique comme celui ci


J'ai réussi à faire le fond avec ca

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
 with stat.canvas do begin
 
    Brush.Color := $00C2EECE; //Color est en réalité Form1.Color c'est à dire la propriète color de form1 que l'on peut voir
                        // et modifier dans l'inspecteur d'objet
    Pen.Color := $00C2EECE;
    Brush.Style := bsSolid; // ainsi, le rectangle sera rempli.
                          //pour voir les autres possibilités faire F1 sur bsSolid
    Rectangle(0, 0, stat.Width, stat.Height); //permet d'effacer le dessin
    Pen.Color := $00A8E3B3;
    for i := 0 to (stat.Width div 50) do begin
      moveto(stat.Width - i * 50, 0);
      lineto(stat.Width - i * 50, stat.Height);
    end;
 
    for i := 0 to (stat.Height div 25) do begin
      moveto(0, stat.Height - i * 25);
      lineto(stat.Width, stat.Height - i * 25);
    end;
    Pen.Color := clblack;
 
    for i := 0 to listbox1.Count - 1 do begin
 
      // ICI LES VALEURS
 
    end;
 
  end;
Maintenant j'ai une liste d'ordonnés, et j'aimerais à partir de ces valeurs faire une courbe comme ci dessus...
Comment dessiner des points ? Comment les relier ?
Comment colorer la partie inférieur de la courbe ?
Comment faire cet effet de transparence ?

Merci d'avance pour votre aide