Stretchdraw une image sur une imprimante toile

Stretchdraw une image sur une imprimante toile

Stretchdraw une image sur une imprimante toile : Plusieurs milliers de conseils pour vous faciliter la vie.

Tronçon de dessiner un graphique a une imprimante.la toile est tres pauvre. Ici, c'est une meilleure solution.
procedure DrawImage(Toile: TCanvas DestRect: TRect ABitmap: TBitmap)
var
& nbsp & nbsp Tete, Bits: Pointeur
& nbsp & nbsp HeaderSize: DWord
& nbsp & nbsp BitsSize: DWord
begin
& nbsp & nbsp GetDIBSizes(ABitmap.Poignee, HeaderSize, BitsSize)
& nbsp & nbsp GetMem(en-Tete, HeaderSize)
& nbsp & nbsp GetMem(Bits, BitsSize)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp GetDIB(ABitmap.Poignee, ABitmap.La Palette, en-Tete^, Bits^)
& ! & ! & ! & nbsp StretchDIBits(Toile.Poignee, DestRect.A Gauche, DestRect.En haut,
& ! & ! & ! & ! & ! & ! & ! & nbsp DestRect.Droit, DestRect.En bas,
& ! & ! & ! & ! & ! & ! & ! & nbsp 0, 0, ABitmap.Largeur, ABitmap.Hauteur, Bits,TBitmapInfo(en-Tete^),
& ! & ! & ! & ! & ! & ! & ! & nbsp DIB_RGB_COLORS, SRCCOPY)
& nbsp & nbsp enfin
& ! & ! & ! & nbsp FreeMem(en-Tete)
& ! & ! & ! & nbsp FreeMem(Bits)
& nbsp & nbsp fin
fin