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;