Discussion :

[MiJack]

Bonjour,

J'ai plusieurs bitmaps que j'aimerais fusionner pour en créer un seul. Concrètement, c'est comme si j'avais un bitmap contenant le chiffre '1', et un autre avec le chiffre '0', et que j'aimerais créer un nouveau bitmap contenant '1001010101' à partir des 2 premiers.

Pouvez-vous m'aiguiller pour mon problème ?

[sjrd]

Bah tu crées un bitmap supplémentaire, auquel tu donnes la même hauteur que des bitmaps et une largeur égale à la somme des bitmaps à accoler. Puis tu effectues un draw de chacun de tes bitmaps.

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
function BitmapsInOne(Bitmaps : TObjectList) : TBitmap;
 var I, Largeur : integer;
 begin
  Largeur := 0;
  for I := 0 to Bitmaps.Count-1 do
    inc(Largeur, TBitmap(Bitmaps[i]).Width);
  Result := TBitmap.Create;
  Result.Width := Largeur;
  Result.Height := TBitmap(Bitmaps[0]).Height);
  Largeur := 0;
  for I := 0 to Bitmaps.Count-1 do
  begin
    Result.Canvas.Draw(Largeur, 0, TBitmap(Bitmaps[i]));
    inc(Largeur, TBitmap(Bitmaps[i]).Width);
  end;
end;

[MiJack]

Merci pour ta méthode, mais il y a une erreur. Le TBitmap n'a pas de méthode Draw, mais en farfouillant un peu dans l'aide j'ai remarqué que tu avais fait une inversion : c'est

Code :

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

Result.Canvas.Draw(Largeur, 0, TBitmap(Bitmaps[i]));

au lieu de

Code :

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

TBitmap(Bitmaps[i]).Draw(Largeur, 0, Result.Canvas);

ça passe désormais à la compilation, je vais essayer la méthode concrètement dès que possible.

[sjrd]

Euh oui c'est en effet comme ça... J'ai inversé

J'ai corrigé mon précédent post

[MiJack]

Merci ça marche