Comment tracer un trait d'un point donner a un ortre en delphi ?????

Question

pour la patrie :big)  :big)  :big)  :big)  :big)  :big)  :big) 

voila je cherche donc comment tracer un simpple trait d'un point a un otre,
en gros je voudrait pourvoir le tracer en fonction de ces deus point sen soccuper de sa longueur.

merci de me repondre :)

cs_ManChesTer · Answer

Procedure trace(cnv:tcanvas;x,y,x1,y1,c:Longint);
begin
 if c<>-1 then
  cnv.Pen.Color:=c;
 cnv.MoveTo(x,y);
 cnv.LineTo(x1,y1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 trace(form1.Canvas,0,0,Clientrect.Right,Clientrect.Bottom,ClBlue);
 trace(form1.Canvas,Clientrect.Right,0,0,Clientrect.Bottom,ClRed);
 trace(form1.Canvas,0,0,Clientrect.Right div 2,Clientrect.Bottom div 2,ClGreen);
 trace(form1.Canvas,Clientrect.Right,0,Clientrect.Right div 2,Clientrect.Bottom div 2,ClYellow);
end;

Bon Coding ....

ManChesTer.

damomospkie · Answer

merci baucoup ManChesTer c tré simpa de ta part!!!
 :kisses)  :kisses)  :kisses)  :kisses)  :kisses)   :big)  :big)  :big)  :big)  :big)  :big)

lounnaci · Answer

salut j'ai un ptit prob je n'arrive pas a tracer correctement une fonction f(x) sur delphi et ça
quand j'introduit des coordonnées nigatif exp : A (-10,2).

merci

Comment tracer un trait d'un point donner a un ortre en delphi ?????

3 réponses

Votre réponse

Discussions similaires