Discussion :

[Charly910]

Bonjour à tous,

est il possible d'afficher un motif ou une texture stockée par exemple dans un Bmp, dans un polygone dessiné sur un Canvas.

(si possible de façon simple sans OpenGL ...)

Merci

Charly

[Caribensila]

Salut,

Tu affectes la texture au Canvas.Brush.Bitmap de ton polygone, puis tu fais un Canvas.FloodFill(X,Y,TCol,fsBorder).
X,Y étant des coordonnées quelconques à l'intérieur du polygone,
TCol la couleur da la ligne délimitant le polygone.

C'est pas très rapide, mais c'est simple et ça fonctionne bien.

[Paul TOTH]

tu peux utiliser le principe des masques de transparence pour faire cela

voir ce très vieil exemple

http://tothpaul.free.fr/tips.php?pv_transbmp

le masque c'est simplement ton polygone en monochrome, l'image à copier étant ta texture

[Gilbert Geyer]

Bonjour,

Tu peux aussi dessiner le polygone et son remplissage texturé en même temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btnPolygoneClick(Sender: TObject);
var        bmp : tBitMap;
begin     With imgFond.Canvas do
          begin            
            bmp := tBitMap.create;
            bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'mCuirVert.bmp');
            brush.Bitmap:=bmp;
            Polygon([Point(10, 10), Point(30, 180), Point(130, 30), Point(240, 120)]);
            bmp.free;
          end;
end;

A+.

[Charly910]

Merci beaucoup à tous les trois

j'essaye cela tout de suite

Charly

[Charly910]

Super,

je ne me souvenais plus que brush avait un propriété Bitmap !

C'est exactement ce que je cherchais

merci encore

A+

Charly

PS : je vais aussi tester la méthode de Paul