Pourquoi pas d'objet ligne en Delphi

Bonjour à tous,
Pourquoi au même titre que Rectangle, Cercle, on ne trouve pas d'objet Ligne
à placer sur une Form ?. Je programme en Delphi 6, et il m'arrive de dessiner
une ligne ou plusieurs pour faire de la mise en page, en faisant varier les épaisseurs de pinceau.
En Delphi, on peut bien entendu les dessiner à l'activation de la Form avec MoveTo, LineTo, mais pour la mise en page, bonjour la galère......surtout quand on déplace un ou plusieurs objet....
Existe-t-il un composant ? (je peux bien sur essayer d'en créer un, mais pourquoi vouloir réinventer la roue ???)
Merci de vos réponses
A+

Généralement on fait ça avec un rectangle dont la hauteur est l'épaisseur de la ligne.

Oui bien sur, c'est ce que je faisais jusque là, mais maintenant je voudrais donner un angle à mes lignes, et là, le rectangle ne tourne pas....
Merci

Bonjour,

Je présume que ce que vous rechercher en faite est un composant pour tracer un trait.

Vous pouver créer un composant dériver de TShape.

Il vous faut redefinir le ShapeType et le paint.

TShape montre un exemple simple pour savoir comment fair.

Salut

Si il ne s'agit que de simple ligne pour améliorer l'interface, on peut aussi utiliser la composant Bevel, qui permet de dessiner des rectangles, lignes horizontales ou verticales.

@+ Claudius

les composants TDrawObject d'angus johnson sont pas mal, gratuit et avec source :king:

http://www.angusj.com/delphi/drawobj3.png

Sinon, si vous avez acces à un Canvas, ce qui n'est pas rare...
Et bien de la OnPaint, vous pouvez toujours tracer un ligne avec :

Code:

---

1 2	MoveTo(X,Y); LineTo(X+deltaX,Y+deltaY)

---

Salut à tous, et merci pour toutes ces idées,
Mon problème est que je veux simplement faire des traits, mais pas forcément verticaux ou horizontaux.(et ça s'en avoir à ouvrir la Form).
Je métonne que depuis Delphi 1, personne n'y ait pensé !!!!!!.
On créer des composants Label ou Shape qu'on peut faire pivoter, avoir des formes différentes, et on n'arrive pas à créer un compo Ligne ???????
L'idée de dériver un TShape est sympatique, il suffit de gérer la rotation pour obtenir le tracé d'une ligne dans n'importe qu'elle position.....
Les compos d'exoseven sont chouettes....avec les sources à étudier....
Enfin s'il existe un simple compo Ligne, je prends
A+

Pour un composant "Ligne" vertical ou horizontal les composants Bevel ou Panel conviennent à merveille.

Pour créer un composant "Ligne inclinée" il est possible d'utiliser un Panel rectangulaire dont l'une des diagonales représente cette ligne et de découper les deux triangles situés de part et d'autre de cette diagonale.
Les deux triangles sont à créer avec la fonction CreatePolygonRgn et de les rendre ensuite invisibles avec les routines CombineRgn puis SetWindowRgn l'aide intégrée à Delphi donne plein de détails sur ces routines (mais elles sont en anglais).

Pour vous mettre l'eau à la bouche voici un bout de code qui perce successivement deux polygones (hrgn2) à l'intérieur du Rectangle initial du Panel (hrgn1) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure PercerPanelEnPoutre(panel : tpanel; Poly1,Poly2 : array of tPoint); var hrgn1, hrgn2 : integer; begin with panel do begin hrgn1:= CreateRectRgn (0, 0, width, height);   hrgn2:= CreatePolygonRgn(Poly1,High(Poly1)+1,Alternate); CombineRgn (hrgn1, hrgn1, hrgn2, RGN_XOR);   hrgn2:= CreatePolygonRgn(Poly2,High(Poly2)+1,Alternate); CombineRgn (hrgn1, hrgn1, hrgn2, RGN_XOR);   SetWindowRgn (handle, hrgn1, true); end; end;

---

Pour utiliser cette procedure il faut bien sûr au préalable préparer les données qu'elle utilise dans une routine d'appel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Procedure maRoutineDappel; var panel : tpanel; Poly1,Poly2 : array[0..2] of tPoint; begin panel:=tPanel.create(form1); with panel do begin // ici on fixe les dimensions du panel, et sa couleur en fonction de celles du trait visé. // le rapport hauteur/largeur du Panel doit correspondre à la tangente de l'angle d'inclinaison visé. end; // Ensuite on initialise Poly1 et Poly2 pour les 2 triangles à découper : Poly1[0].x:=0; Poly1[0].y:=0; Poly1[1].x:=tant; Poly1[1].y:=tant; Poly1[2].x:=tant; Poly1[2].y:=tant; // et idem pour Poly2, et ceci en fonction de la diagonale choisie, de l'épaisseur du trait, et des dimensions du Panel initial. // Et enfin on appelle la procédure de découpage : PercerPanelEnPoutre(Poutre.panel,Poly1,Poly2); end;

---

On peut de la même manière découper n'importe quoi dans une Form en place d'un Panel.

Y'apuk'à !!!!