, strække tegner et grafisk til en printer.canvas er meget fattige.her er en bedre løsning, procedure drawimage (lærred: tcanvas; destrect: trect; abitmap: tbitmap);,, var,, header, bit: pointer,,, headersize: dword;,, bitssize: dword;,, begynder, getdibsizes (abitmap.handle, headersize, bitssize);,, getmem (header, headersize);,, getmem (bit, bitssize);,,,, getdib (abitmap.handle, abitmap. palet, header (bit)), stretchdibits (canvas.handle, destrect. venstre, destrect. top,,, destrect. okay, destrect. bunden, 0, 0, abitmap. bredde, abitmap. højde, bits, tbitmapinfo (header ^), dib_rgb_colors, srccopy); og endelig, freemem (header);,,, freemem (bit),,,,,,,,