Discussion :

[anto974]

Bonjour, j'ai un projet informatique à réaliser sous lazarus et, étant débutant, j'ai besoin d'un renseginement.

J'ai créé dans un Timage un ellipse (Image.canvas.ellipse(...)). J'arrive à la remplir d'une couleur uni mais je souhaiterais en fait y introduire une image (type TBitmap). L'idéal serait que l'image puissent être entièrement chargée dans cette ellipse (non coupée) en sachant que les coordonnés de l'éllipse seront amené à changer.

Pourriez vous m'aider?!

Merci d'avance.

[yann.m]

bonjour

avant de dessiner ton ellipse tu as besoin d'assigner une image au TBrush de ton canvas

exemple avec 2 Timage sur une fiche, chacune ayant une image bitmap précédemment chargée:

Code :

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

1
2
3
4
5
 
...
Image1.Picture.Bitmap.Canvas.Brush.Bitmap := Image2.Picture.Bitmap;
//dessin de l'ellipse, etc...
...

[anto974]

Bonjour

Tout d'abord merci a toi Yann de m'avoir répondu.

Ta réponse résout partiellement mon problème. Je sais maintenant comment associer une image à un Tbrush, cependant, j'aimerais pouvoir modifier la taille de l'ellipse et donc optimiser la taille de l'image. Je ne sais pas si lazarus permet de faire ce genre de choses.
Plus précisement, je veux dessiner une planete dans un Timage (donc avec canvas.ellipse...) et insérer dans le contour de ce canvas l'image d'une vraie planète (la terre par exemple). Mais la taille de la planete à dessiner etant une variable, il faudrait que l'image s'adapte au canvas à chaque fois que le rayon de la planete change.

Vos réponses sont les bienvenues !

Merci et a bientot

[yann.m]

hello

Ma version de lazarus semble buggé en ce qui concerne certaines fonctions de dessin mais essaye avec le code suivant:

avec Image1 = ton image finale et Image2 ton image de la terre

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
 
 
...
 
procedure ...;
var
    tmp: TBitmap;
    r: Trect;
begin
 
    // rectangle de référence
    r.Left := 100;
    r.Top := 100;
    r.Right := 200;
    r.Bottom := 200;
 
    // bitmap temporaire pour le TCanvas.Brush
    tmp := Tbitmap.Create;
    tmp := Image1.Picture.Bitmap;
    tmp.Canvas.StretchDraw(r,Image2.Picture.Bitmap);
 
    // assigner tmp au brush et dessin de l'ellipse
    Image1.Picture.Bitmap.Canvas.Pen.Style:= psClear;
    Image1.Picture.Bitmap.Canvas.Brush.Bitmap := tmp;
    Image1.Picture.Bitmap.Canvas.Ellipse(r);
 
end;
...