Dessin d'une ligne entre 2 points...Résolu

Question

Salut tout le monde ;o)



j'ai un petit probl&#232;me, je souhaite dessiner une ligne directement sur
la form, en connaissant les coordonn&#233;es de ses deux extr&#233;mit&#233;s... Mais
je ne sais pas comment faire... Voici mon code : 





procedure Tprincipal.maj_graph();

begin

//Calcul des coordonn&#233;es des points

if ((valeur1 1) and (valeur 1)) or ((valeur1 = 0) and (valeur = 0)) then

        begin

        coordX := coordX1 + 6;

        coordY := coordY1;

        end;

if (valeur1 1) and (valeur 0) then

        begin

        coordX := coordX1;

        coordY := coordY1 + 50;

        end;

if (valeur1 0) and (valeur 1) then

        begin

        coordX := coordX1;

        coordY := coordY1 - 50;

        end;

//Dessins points





//D&#233;calage des coordonn&#233;es dans le temps

coordX1 := coordX;

coordY1 := coordY;

valeur1 := valeur;

end;



Merci d'avance de votre aide !...

DREAMER2208 · Accepted Answer

Salut tout le monde ;o)



Le probl&#232;me avec LineTo, c'est qu'il prend comme origine le curseur, si
j'ai bien tout compris. J'ai r&#233;ussi &#224; trouver comment faire, je me sert
d'un canvas : 



begin

Canvas.Brush.Color := cllime;

canvas.Rectangle(coordX1,coordY1,coordX + 3,coordY + 3);

end;



Et la sa marche impec ! Merci quand m&#234;me ni69 !



Bonne prog &#224; tous !

ni69 · Answer

Tu peux utiliser LineTo pour dessiner une ligne. Cherche cette instruction dans l'aide de Delphi pour en savoir plus... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_Kenavo · Answer

T'as de droles de m&#233;thode pour tracer des lignes !......




LineTo
trace une ligne &#224; partir des coordonn&#233;es de la plume. Pour modifier ces
coordonn&#233;es on utilise MoveTo. Si on veut une ligne de (X0,Y0) &#224;
(X1,Y1), &#231;a donne :



Canvas.MoveTo(X0,Y0);

Canvas.LineTo(X1,Y1);



Ken@vo


<hr size="2" width="100%">
Code, Code, Codec !

http://www.pourflorenceethussein.org/

DREAMER2208 · Answer

Merci, c'est vrai que c'est plus simple... Avec ma m&#233;thode, je
m'embrouillais avec l'&#233;paisseur de la ligne, ce qui provoque un
d&#233;calage de mes traits... Par contre, je ne sais pas encore comment
mettre la ligne en couleur... Parce qu'avec ma m&#233;thode pr&#233;c&#233;dente, la
couleur s'appliquait &#224; l'int&#233;rieur du rectangle, mais une ligne n'a pas
d'&#233;paisseur...



Merci bcp !

cs_Kenavo · Answer

Pour la couleur :



Canvas.pen.color := clxxx;


Et regarde toutes les propri&#233;t&#233;s du TPen pour l'&#233;paisseur, le style (continue, pointill&#233;, ....)





Ken@vo


<hr size="2" width="100%">
Code, Code, Codec !

http://www.pourflorenceethussein.org/

DREAMER2208 · Answer

Merci beaucoup Kenavo ! J'aurais une derni&#232;re question, c'est comment
effacer ce qui a &#233;t&#233; trac&#233;... J'avais r&#233;ussi &#224; trouver une m&#233;thode,
mais elle effa&#231;ais aussi l'image que j'utilise comme fond...Donc j'ai
abandonner, et j'arrive plus &#224; la retrouver... si qqun connais, sa
m'arrangerais... Merci beaucoup d'avance ! et bonne prog !

cs_Kenavo · Answer

Tu as deux m&#233;thodes pour effacer un ligne sur un fond :

1 - Tout redessiner sauf la ligne que tu veux effacer. 

2 - Dessiner les lignes avec le propri&#233;t&#233; Pen.Mode &#224; pmXor (fonction
Xor entre le fond et la couleur de la ligne). Pour en effacer une, il
suffit de la retracer en mode pmXor avec la m&#234;me couleur .



Ken@vo


<hr size="2" width="100%">
Code, Code, Codec !

http://www.pourflorenceethussein.org/

Dessin d'une ligne entre 2 points...

7 réponses

Votre réponse