J'ai un timage dont j'aimerais tracer une ligne d'un point A a un point B
J'ai tenté avec les instructions suivantes mais sa ne fonctionne pas.
l'image sautille et c'est tout.
Il est vrai que je ne suis pas expérimenté
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.canvas.brush.color:=clblue;
image1.Canvas.LineTo(50,70);
image1.canvas.MoveTo(140,500);
end;
merci d'avance pour votre aide