Dessins et déplacements

Bonjour,

maintenant que j'ai réussi à régler la transparence des fenêtres sur les 3 OS Desktop, j'aimerais dessiner à main levée avec la souris. Supposons que je trace une ligne fermée, je voudrais ensuite pouvoir la déplacer en cliquant sur la surface délimitée par ma ligne. Quelle technique employer ? Dessiner directement sur le Canvas de la Form me parait difficile à retenir car incompatible avec le déplacement notamment en cas de superposition de lignes. Autre caractéristique : les surfaces délimitées doivent être transparentes.

Merci. Gilles

Bonsoir Gilles

Il faudrait une approche par "calque". Un calque = un dessin (un TBitmap en 32bits pour la transparence, et affichage avec StretchDraw) , Lorsque que tu dessines ta forme tu le fais dans un bitmap temporaire au dimension de ta fenêtre. A chaque fois que tu dessines un pixel tu vérifies si la position x,y est plus grande ou plus petite que les valeurs minimum et maximum de x et y de la "boundingBox" (un TRect, mais c'est pas vraiment top). A la fin tu auras deux points délimitant ton dessin. Il te suffit de "cropper" le bitmap temporaire et de l'ajouter à ta liste de calque, avec la "BoundingBox". Ensuite en "mode sélection" il te suffiras de parcourir la liste de calque et de vérifier que la position de la souris est dans une des "boundingbox" et te restera plus qu'a déplacer le calque sélectionné et redessiner le bitmap à la bonne position. Le problème avec cette technique c'est si plusieurs zones se chevauchent. (C'est le cas avec Gimp ou autres logiciels dans le genre) donc pas trop grave à mon sens.

Code dans le genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Type TBoundingBox = record TopLeft : TPoint; BottomRight : TPoint; end;   TLayer = record BoundingBox : TBoundingBox; Bitmap : TBitmap; end;   TLayers = specialize TFPGList<TLayer>; // cf : https://wiki.freepascal.org/Generics et https://www.freepascal.org/docs-html/current/rtl/fgl/tfpglist.html   procedure ComputeBoundingBox(Calque : TLayer; x,y : Integer); begin if x<Calque.BoundingBox.TopLeft.x then Calque.BoundingBox.TopLeft.x := x else if x> Calque.BoundingBox.BottomRight.x then Calque.BoundingBox.BottomRight.x := x;   if y<Calque.BoundingBox.TopLeft.y then Calque.BoundingBox.TopLeft.y := y else if y> Calque.BoundingBox.BottomRight.y then Calque.BoundingBox.BottomRight.y := y; end;   Function IsInBoundingBox(Calque : TLayer; x,y : Integer): Boolean; begin // Algo Clipping Cohen-Sutherland Result := (Ord(X < Calque.BoundingBox.TopLeft.x) + Ord(X > Calque.BoundingBox.BottomRight.x) Shl 1 + Ord(Y < Calque.BoundingBox.TopLeft.y) Shl 2 + Ord(Y > Calque.BoundingBox.BottomRight.y) Shl 3) = 0; end;

---

Voila, j'espère que j'ai bien compris ta question et que tu comprends ma réponse :zoubi:

A+

Jérôme

Citation:

---

Envoyé par Selzig

Bonjour,

maintenant que j'ai réussi à régler la transparence des fenêtres sur les 3 OS Desktop, j'aimerais dessiner à main levée avec la souris. Supposons que je trace une ligne fermée, je voudrais ensuite pouvoir la déplacer en cliquant sur la surface délimitée par ma ligne. Quelle technique employer ? Dessiner directement sur le Canvas de la Form me parait difficile à retenir car incompatible avec le déplacement notamment en cas de superposition de lignes. Autre caractéristique : les surfaces délimitées doivent être transparentes.

Merci. Gilles

---

Bjr à vous,

Je suppose que vous désirez développer un petit outil de dessin.

Il y a plusieurs volets à traiter:
0. L'objet TPolygone

Code:

---

1 2 3 4 5 6 7 8 9 10

type TPolygone = record ID: integer; Color: TColor; // les sommets Sommets: array of TPoint; // la boîte englobante pour accélérer les calculs BoundingBox: TRect; // si le langage le permet: end;

---

1. Le conteneur pour vos polygones: un dérivé du TList
2. Sélection: Un algorithme pour savoir si un point est dans un polygone.

Ayant développé un logiciel de dessin, je suis à votre disposition.