Discussion :

[Lung]

Comment dessiner une bitmap dans le canvas d'un TImage ?

J'ai une sous-procédure qui me retourne une bitmap sur lequel elle a dessiné tout un tas de chose.
Quand j'essai de la dessiner dans le Canvas d'un TImage, ça ne fonctionne pas (le TImage reste blanc).

Code :

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

1
2
GenerationImpression(BitmapImpression);
FormApercuAvantImpression.Image.Canvas.Draw(0, nHauteur, BitmapImpression);

Par contre, si je passe par un fichier intermédiaire, là ça marche :

Code :

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

1
2
3
4
5
6
7
// Dans la sous-procédure GenerationImpression :
BitmapImpression.SaveToFile(GetRepertoireTemp + FICHIER_TEMP);
 
...
 
// Pour afficher la bitmap dans mon TImage :
FormApercuAvantImpression.Image.Picture.Bitmap.LoadFromFile(GetRepertoireTemp + FICHIER_TEMP);

Mais, c'est pas une solution.
Déjà c'est un peu lourd, et surtout j'ai besoin de dessiner des bitmaps les unes à la suite des autres (en hauteur).

Comment dois-je faire ?

[Paul TOTH]

si je ne m'abuse FormApercuAvantImpression.Image.Picture.Assign(BitmapImpression)

[Papy214]

bonjour ??
svp ???

sinon: +1


Au pire, si ça fonctionne avec SaveTofile, ça fonctionnera aussi avec SaveToStream et ça évite l'enregistrement sur disque.

[Gilbert Geyer]

Bonjour,

J'ai une sous-procédure qui me retourne une bitmap sur lequel elle a dessiné tout un tas de chose.
Quand j'essai de la dessiner dans le Canvas d'un TImage, ça ne fonctionne pas (le TImage reste blanc).

Il manque peut-être un Image.Refresh, Image.RePaint, ou un Image.Invalidate.
Ou bien c'est que le BitmapImpression est lui-même tout blanc.

A+.

[Andnotor]

nHauteur est dans la limite de l'image ?

[Paul TOTH]

nHauteur est dans la limite de l'image ?

ah tient j'avais pas vu, le but n'est pas de placer l'image dans un TImage mais de la dessiner à une position donnée

[Lung]

si je ne m'abuse FormApercuAvantImpression.Image.Picture.Assign(BitmapImpression)

Effectivement ça fonctionne, mais je n'ai plus le choix de la position en hauteur.

Ou bien c'est que le BitmapImpression est lui-même tout blanc.

Non, il est bon. Je l'ai vérifié avec le SaveToFile. Le fichier BMP est bon.

nHauteur est dans la limite de l'image ?

Normalement oui (sinon, ça serait embêtant ).

ah tient j'avais pas vu, le but n'est pas de placer l'image dans un TImage mais de la dessiner à une position donnée

C'est ça.
En gros, la sous-procédure est dans une boucle. Et chaque bitmap doit être dessinée à la suite de la précédente (en hauteur) dans le canvas de mon TImage.
Je suis sûr qu'il ne me manque pas grand chose, mais je ne vois pas comment faire ...

[Andnotor]

GenerationImpression ne se présenterait-il pas comme ça ?

Code :

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

1
2
3
procedure GenerationImpression(aBitmap :TBitmap);
begin
  aBitmap := TBitmap.Create;

Dans quel cas il manquerait un var.

Code :

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

1
2
3
procedure GenerationImpression(var aBitmap :TBitmap);
begin
  aBitmap := TBitmap.Create;

[Lung]

J'avais mis out

Code :

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

procedure TOngletMusique.GenerationImpression(out BitmapImpression: Graphics.TBitmap);

Même avec var, ça ne change rien.

BitmapImpression est créée et détruite à l'extérieur par l'appelant.
Voici ma boucle d'appel :

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
var
   i, nHauteur: Integer;
   BitmapImpression: TBitmap;
begin
   if PageControl.PageCount = 0 then
      Exit;
 
   nHauteur := 0;
   FormApercuAvantImpression.Image.Height := 0;
 
   for i:=0 to Pred(PageControl.PageCount) do
   begin
      BitmapImpression := TBitmap.Create;
      try
         //.
         (PageControl.Pages[i] as TOngletMusique).GenerationImpression(BitmapImpression);
 
         FormApercuAvantImpression.Image.Height := FormApercuAvantImpression.Image.Height + BitmapImpression.Height;
         FormApercuAvantImpression.Image.Width := BitmapImpression.Width;
//         FormApercuAvantImpression.Image.Picture.Assign(BitmapImpression);
         FormApercuAvantImpression.Image.Canvas.Draw(0, nHauteur, BitmapImpression);
      finally
         BitmapImpression.Free;
      end;
 
      nHauteur := FormApercuAvantImpression.Image.Height;
   end;

[ThWilliam]

Bonjour.

Tu utilises un seul TImage que tu redimensionnes à chaque fois tant en hauteur qu'en largeur !!! Dans ton code, je ne vois pas de vérification de image.width minimale. Si ton dernier bitmap est moins large que les précédents, tu amputes ceux-ci !
Pourquoi ne pas utiliser plusieurs TImage créés dynamiquement avec comme Parent, par exemple, un TPanel ou un TScrollBox ?
Tu n'as plus alors à te soucier de la position Y où tu dessines sur l'image : mettre chaque image à la taille du bitmap, lui assigner le bitmap, puis la positionner juste en dessous de l'image précédente.

Autre solution: créer un seul grand bitmap (prévoir une hauteur et une largeur suffisante), lui donner une couleur de fond (FillRect), dessiner sur ce bitmap les BitmapImpression, puis "retailler" le bitmap en fonction de la hauteur totale obtenue et de la plus grande largeur. Il ne reste plus qu'à afficher ce bitmap.

Thierry

[Andnotor]

@Lung

out en tout cas pas !

Mais ça ne pourra de toute façon pas marcher ainsi. Si le TImage est vide à l'appel de son canevas, un bitmap est automatiquement créé à la dimension du TImage. Mais par la suite, retailler le TImage n'a aucun influence sur le bitmap interne, il faut aussi le redimensionner
Là, au deuxième passage, tu dessines hors bitmap, et si le premier BitmapImpression est vide...

[Lung]

Tu utilises un seul TImage que tu redimensionnes à chaque fois tant en hauteur qu'en largeur !!! Dans ton code, je ne vois pas de vérification de image.width minimale. Si ton dernier bitmap est moins large que les précédents, tu amputes ceux-ci !

La largeur est commune à toutes les images (même si je ne la connait pas d'avance). C'est pour ça.

Pourquoi ne pas utiliser plusieurs TImage créés dynamiquement avec comme Parent, par exemple, un TPanel ou un TScrollBox ?
Tu n'as plus alors à te soucier de la position Y où tu dessines sur l'image : mettre chaque image à la taille du bitmap, lui assigner le bitmap, puis la positionner juste en dessous de l'image précédente.

Ça serait un moyen de contourner le problème si ça ne servait qu'à ça.
Mais, si l'aperçu des image est convenable, j'utilise la même chose pour dessiner sur le canvas du TPrinter et imprimer mes images.
Donc, il faut absolument que je dessine ces images sur un canvas (TImage et TPrinter).

Autre solution: créer un seul grand bitmap (prévoir une hauteur et une largeur suffisante), lui donner une couleur de fond (FillRect), dessiner sur ce bitmap les BitmapImpression, puis "retailler" le bitmap en fonction de la hauteur totale obtenue et de la plus grande largeur. Il ne reste plus qu'à afficher ce bitmap.

Bonne idée.
Je vais probablement finir par faire ça, étant donné qu'une feuille A4 n'a pas une hauteur infinie.
Mais, avant d'en arriver à ces problématiques là, j'essayais de mettre au moins 2 bitmaps, l'une en dessous de l'autre.

[Lung]

Mais ça ne pourra de toute façon pas marcher ainsi. Si le TImage est vide à l'appel de son canevas, un bitmap est automatiquement créé à la dimension du TImage. Mais par la suite, retailler le TImage n'a aucun influence sur le bitmap interne, il faut aussi le redimensionner
Là, au deuxième passage, tu dessines hors bitmap, et si le premier BitmapImpression est vide...

C'était donc ça le truc !

Et comment redimensionner ce canvas ?
Il n'a pas de propriété Height (width non plus d'ailleur). Ca serait trop facile ...

[Lung]

Ça marche !

J'ai tenté de jouer avec le bitmap du TImage (histoire de), et ça semble être la solution :

Code :

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

1
2
3
4
5
6
7
8
9
         (PageControl.Pages[i] as TOngletMusique).GenerationImpression(BitmapImpression);
 
         FormApercuAvantImpression.Image.Height := FormApercuAvantImpression.Image.Height + BitmapImpression.Height;
         FormApercuAvantImpression.Image.Width := BitmapImpression.Width;
         FormApercuAvantImpression.Image.Picture.Bitmap.Height := FormApercuAvantImpression.Image.Height + BitmapImpression.Height;
         FormApercuAvantImpression.Image.Picture.Bitmap.Width := BitmapImpression.Width;
 
//         FormApercuAvantImpression.Image.Picture.Assign(BitmapImpression);
         FormApercuAvantImpression.Image.Canvas.Draw(0, nHauteur, BitmapImpression);

Mais, je ne comprend pas le rapport entre dessiner sur le canvas du TImage, et redimensionner le Timage.Picture.Bitmap.

En tout cas, pour votre aide à tous.

[Andnotor]

Il te suffit de regarder la source de TImage. Derrière Canvas, il y a un GetCanvas qui crée un bitmap aux dimensions du TImage si Picture.Graphic n'est pas assigné.
Un canevas n'est qu'une surface de dessin mais n'est pas mémorisé. Le TImage passe par un TBitmap pour qu'il le soit. S'il ne le faisait pas, ce serait simplement un TPaintBox