Stretchdraw une image sur une imprimante toile


Tronçon de dessiner un graphique à une imprimante.la toile est très pauvre. Ici, c'est une meilleure solution.
procédure DrawImage(Toile: TCanvas DestRect: TRect ABitmap: TBitmap)
var
& nbsp & nbsp Tête, Bits: Pointeur
& nbsp & nbsp HeaderSize: DWord
& nbsp & nbsp BitsSize: DWord
begin
& nbsp & nbsp GetDIBSizes(ABitmap.Poignée, HeaderSize, BitsSize)
& nbsp & nbsp GetMem(en-Tête, HeaderSize)
& nbsp & nbsp GetMem(Bits, BitsSize)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp GetDIB(ABitmap.Poignée, ABitmap.La Palette, en-Tête^, Bits^)
& ! & ! & ! & nbsp StretchDIBits(Toile.Poignée, DestRect.À Gauche, DestRect.En haut,
& ! & ! & ! & ! & ! & ! & ! & nbsp DestRect.Droit, DestRect.En bas,
& ! & ! & ! & ! & ! & ! & ! & nbsp 0, 0, ABitmap.Largeur, ABitmap.Hauteur, Bits,TBitmapInfo(en-Tête^),
& ! & ! & ! & ! & ! & ! & ! & nbsp DIB_RGB_COLORS, SRCCOPY)
& nbsp & nbsp enfin
& ! & ! & ! & nbsp FreeMem(en-Tête)
& ! & ! & ! & nbsp FreeMem(Bits)
& nbsp & nbsp fin
fin









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


Stretchdraw une image sur une imprimante toile

Stretchdraw une image sur une imprimante toile : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation