Discussion :

[Invité]

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

[BeanzMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

Jérôme

[JP CASSOU]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.