Discussion :

[delphidebutant]

Bonjour,
J'ai un Array de TPicture, avec une taille assez grande (disons W=200 x H=300).
Je voudrais remplir un TImage, avec les images des TPicture, en les mettant cote à cote.
La hauteur du TImage est plus petite (H=60).
Pour la mise à l'échelle, Image.Stretch:=true et Image.Proportional := true
me permettent de loader un Picture correctement....

Mais pour mettre plusieurs Pictures cote à cote, je vois pas trop.

J'ai essayé :

Code :

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

1
2
with Image.Picture.Bitmap.Canvas do
               Draw(x, 0, Picture[i].Bitmap);

avec un x qui se met à jour

Code :

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

x := x + (Picture[1].Width*Image.Height) div Picture[i].Height;

Mais ça merdouille....le draw ne doit pas se faire avec proportionnalité, ou un truc du genre.

Quelqu'un a-t-il été confronté au pb ?

Il faudrait sans doute mettre tous mes Picture à l'échelle avant Draw ?



Merci pour votre aide.

[LadyWasky]

hou là....

Je te convie à faire un petit tour sur le forum avec comme mots clefs pour la recherche TImage et TBitmap.

En fait, le problême c'est que (tu n'es pas le seul je te rassure) tu considères que les propriétés de ton TImage (Stretch) affectent le dessin du TBitmap qu'il contient alors que ça n'a rien à voir.

Vois plutôt la chose comme ça
- TBitmap est l'image en elle même, codée avec ses pixels et qui est invisible (si, si) tant qu'on ne l'a pas affiché d'une manière ou d'une autre. Cette image à ses propres dimensions et tu peux effectivement agir dessus.

TImage, est une fenêtre (un contrôle fenétré si tu préfères), qui sait afficher des Tbitmap (si on en a chargé un ou créé un dedans) de diverses façons : transparent, centré, étiré, etc... Les dimensions du TImage correspondent aux dimensions de ce qui est affiché sur la fiche et leurs modification ne change en rien les dimensions du Bitmap qu'il affiche.

Donc quand tu "recopie" tes TPicture dans ton TImage, c'est en fait dans le TBitmap qu'il y a dessous que tu le fais.

Du coup, ce ne sont pas les dimensions de Image qu'il faut prendre en compte, mais les dimensions de Image.picture.bitmap.

En plus, StretchDraw, c'est mieux que Draw...

Du coup :

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
var i,x,largeur,hauteur:integer;
    Pictures:array[1..n] of TPicture;
    Arect:Trect;
begin
  x:=0;
  hauteur:=Image.Picture.Bitmap.Height;
  for i:=1 to n do
  begin
    largeur:=(Picture[i].Width*hauteur) div Picture[i].Height;
    Arect:=Bounds(x,0,largeur,hauteur)
    with Image.Picture.Bitmap.Canvas do
         Draw(x, 0, Picture[i].Bitmap);
    x := x +largeur;
  end;
end;

Et puis tu avais mis Pictures[1] au lieu de Pictures[i]...

ça devrait être drôlement plus beau avec ça

[delphidebutant]

Merci pour tes éléments.

Ton Trect doit servir avec le StretchDraw, sans doute ?

J'essaie

Code :

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

StretchDraw(aRect, Picture[i].Bitmap);

mais je ne vois pas mon Picture[i] s'afficher.

Et avec ton code, pareil.

L'image en fond de TImage, mise par défaut, disparait, et c'est tout.
Y aurait-il une propriété de TImage à mettre à true ?
ou du Image.Picture ?
ou du Image.Picture.Bitmap ?
ou du Image.Picture.Bitmap.Canvas ?

Pas simple, tout ça.
Je pencherais pour une propriété du Canvas, vu ce que tu m'as dit...

Si je voulais superposer 2 Pictures au même endroit du TImage, et que l'on voit les 2 Picture par transparence, y a-t-il une propriété à gérer quelque part ?
J'ai fait un truc comme ça, il y a des années, mais impossible de me remémorer le bazar ....

Code :

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

Canvas.CopyMode := cmMergeCopy;

??

[LadyWasky]

Merci pour tes éléments.

Ton Trect doit servir avec le StretchDraw, sans doute ?

J'essaie

Code :

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

StretchDraw(aRect, Picture[i].Bitmap);

Oui, oui, c'est ça... j'avais oublié

mais je ne vois pas mon Picture[i] s'afficher.

Et avec ton code, pareil.

Ha ?
Je vois, ça me fait la même chose...

L'image en fond de TImage, mise par défaut, disparait, et c'est tout.
Y aurait-il une propriété de TImage à mettre à true ?
ou du Image.Picture ?
ou du Image.Picture.Bitmap ?
ou du Image.Picture.Bitmap.Canvas ?

Pas simple, tout ça.
Je pencherais pour une propriété du Canvas, vu ce que tu m'as dit...

Si je voulais superposer 2 Pictures au même endroit du TImage, et que l'on voit les 2 Picture par transparence, y a-t-il une propriété à gérer quelque part ?
J'ai fait un truc comme ça, il y a des années, mais impossible de me remémorer le bazar ....

Code :

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

Canvas.CopyMode := cmMergeCopy;

??

Pour la transparence je fait ca avec Bitblt en général (API Windows), tu devrais trouver du code "Made in waskol" sur le forum...


Pour le reste :

Bon allez, là j'ai testé

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
29
30
procedure TForm1.Button1Click(Sender: TObject);
var i,x,largeur,hauteur:integer;
    Pictures:array[1..3] of TPicture;
    Arect:Trect;
begin
  //Ca, c'est histoire de mettre quelque chose dans le tableau...
  pictures[1]:=Image1.Picture;
  pictures[2]:=Image2.Picture;
  pictures[3]:=Image3.Picture;
 
  //Ca, c'est ce qui t'intéresse
 
  //1) On dimensionne le Bitmap du TImage
  Image.Picture.Bitmap.Height:=Image.Height;
  Image.Picture.Bitmap.Width:=Image.Width;
  x:=0;
  hauteur:=Image.Picture.Bitmap.Height;
  for i:=1 to 3 do
  begin
    largeur:=(Pictures[i].Width*hauteur) div Pictures[i].Height;
    Arect:=Bounds(x,0,largeur,hauteur);
    with Image1.Canvas do
         StretchDraw(Arect, Pictures[i].Graphic);
    x := x +largeur;
  end;
  image.Refresh;
  pictures[1]:=nil;
  pictures[2]:=nil;
  pictures[3]:=nil;
end;

Ca va te plaire...

[LadyWasky]

Pour la transparence, c'est ici :
http://www.developpez.net/forums/sho...ghlight=bitblt

[delphidebutant]

J'ai encore eu quelques soucis avec ton code.
Je mettais

Code :

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

StretchDraw(Arect, Pictures[i].bitmap);

au lieu

Code :

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

StretchDraw(Arect, Pictures[i].Graphic);

ce qui met les Pictures[i].bitmap.Height et Width à zéro...

Mais maintenant, ça marche.

Donc, Big Merci.