DREAMER2208
Messages postés17Date d'inscriptionmardi 2 novembre 2004StatutMembreDernière intervention20 octobre 2005
-
1 mai 2005 à 12:11
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 2009
-
3 mai 2005 à 07:49
Salut tout le monde ;o)
j'ai un petit problème, je souhaite dessiner une ligne directement sur
la form, en connaissant les coordonnées de ses deux extrémités... Mais
je ne sais pas comment faire... Voici mon code :
procedure Tprincipal.maj_graph();
begin
//Calcul des coordonnées des points
if ((valeur1 1) and (valeur 1)) or ((valeur1 = 0) and (valeur = 0)) then
DREAMER2208
Messages postés17Date d'inscriptionmardi 2 novembre 2004StatutMembreDernière intervention20 octobre 2005 1 mai 2005 à 14:20
Salut tout le monde ;o)
Le problème avec LineTo, c'est qu'il prend comme origine le curseur, si
j'ai bien tout compris. J'ai réussi à trouver comment faire, je me sert
d'un canvas :
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 2 mai 2005 à 10:31
T'as de droles de méthode pour tracer des lignes !......
LineTo
trace une ligne à partir des coordonnées de la plume. Pour modifier ces
coordonnées on utilise MoveTo. Si on veut une ligne de (X0,Y0) à
(X1,Y1), ça donne :
DREAMER2208
Messages postés17Date d'inscriptionmardi 2 novembre 2004StatutMembreDernière intervention20 octobre 2005 2 mai 2005 à 17:59
Merci, c'est vrai que c'est plus simple... Avec ma méthode, je
m'embrouillais avec l'épaisseur de la ligne, ce qui provoque un
décalage de mes traits... Par contre, je ne sais pas encore comment
mettre la ligne en couleur... Parce qu'avec ma méthode précédente, la
couleur s'appliquait à l'intérieur du rectangle, mais une ligne n'a pas
d'épaisseur...
Merci bcp !
Vous n’avez pas trouvé la réponse que vous recherchez ?
DREAMER2208
Messages postés17Date d'inscriptionmardi 2 novembre 2004StatutMembreDernière intervention20 octobre 2005 2 mai 2005 à 19:18
Merci beaucoup Kenavo ! J'aurais une dernière question, c'est comment
effacer ce qui a été tracé... J'avais réussi à trouver une méthode,
mais elle effaçais aussi l'image que j'utilise comme fond...Donc j'ai
abandonner, et j'arrive plus à la retrouver... si qqun connais, sa
m'arrangerais... Merci beaucoup d'avance ! et bonne prog !
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 3 mai 2005 à 07:49
Tu as deux mé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été Pen.Mode à 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ême couleur .