Discussion :

[Cpt Anderson]

Bonjour,

je vous explique mon petit problème: je charge une image dans un TPaintbox. Je désire ensuite faire différentes figure sur le paintbox, entre autre des cercle mais je voudrais faire un cercle qui soit transparent (qu'on puisse voir le dessin derrière)
Je crée un Tbitmap dans lequel je dessine le cercle et ensuite je dessine le bitmap sur le paintbox.
Faut-il que j'utilise le bitmap.canvas.Ellipse() ? ou une autre technique ?
C'est un peu le flou avec les propriétés transparent: sur un OS ca fonctionne, sur d'autres non...

Merci d'avance !

[Dr.Who]

garde l'image dans un buffer (TBitmap)
dessine le cercle directement sur TPaintBox avec la propriété Style du Pen à une valeur du genre psMerge etc... (test les valeurs).

sinon, utilise une lib graphique qui comprend facilement l'alpha (GDI+, OpenGL etc.)


ce qui donnerais :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
   PaintBox1.Canvas.Draw(0,0, PictureBuffer); 
   PaintBox1.Canvas.Pen.Color := clFuschia;
   PaintBox1.Canvas.Pen.Style := psMerge;
   PaintBox1.Canvas.Brush.Color := PaintBox1.Canvas.Pen.Color;
   PaintBox1.Canvas.Ellipse(Zone1Rect);
end;

[Cpt Anderson]

Bonjour,

merci pour ta réponse.

garde l'image dans un buffer (TBitmap)
dessine le cercle directement sur TPaintBox avec la propriété Style du Pen à une valeur du genre psMerge etc... (test les valeurs).

Oui mais tous les dessins que je fais sont représentés sous formes d'objets qui sont ensuite ajoutés dans une liste d'objets de manière à ce que je puisse faire des Undo et Redo de mes actions. Ça va me faire une belle usine à gaz de déssiner quelques dessins dans des TBitmap et ensuite sur le PaIntbox et d'autres directement dans mon Paintbox...

sinon, utilise une lib graphique qui comprend facilement l'alpha (GDI+, OpenGL etc.)

J'aimerais garder, dans un premier temps les composants natifs de Delphi 7..pour plusieurs raisons...

est-il envisageable d'utiliser un polyline pour dessiner un cercle ou est-ce une idée débile ?

[Dr.Who]

heu c'est débile oui ...

utilise ellipse plutôt ... polyline ne sert qu'a déssiner des polygones bien angulaire ou des suites de lignes comme pour les graph par exemple.

sinon, encore une autre solution, si ton cercle à toujours la meme taille, tu peux le mettre dans un PNG transparent que tu déssinera avec la méthode Draw du canvas.
la transparence passe toute seule dans ce cas, je l'ai utilisé souvent dans la creation de petit jeux ou d'interface graphique.

tu peux avoir quelques cercles PNG de taille différente (20x20, 40x40 etc) et hop.

mais avec la pure GDI et les composant de base de D7, tu n'aura jamais une vrai transparence.

avec la GDI+, assé simple à mettre en place, tu pourrais le faire aussi.
mais limite la fonctionnalité à Windows!

aprés, tu peux passé à OpenGL ... mais juste pour déssiné un cercle transparent ... c'est un peu lourd.

[Cpt Anderson]

Merci Docteur pour tes réponses...je vais m'en dépatouiller !

[Paul TOTH]

Merci Docteur pour tes réponses...je vais m'en dépatouiller !

quelque chose comme ça ?

[Cpt Anderson]

Merci Paul.

le secret était Canvas.Brush.Style:=bsClear ;

Super ton programme, dire que je viens de passer je ne sais pas combien de jours à faire à peu près la même chose

[Paul TOTH]

Merci Paul.

le secret était Canvas.Brush.Style:=bsClear ;

Super ton programme, dire que je viens de passer je ne sais pas combien de jours à faire à peu près la même chose

pas de soucis... ceci dit un cercle est "toujours" transparent...sinon c'est un disque