, strekken, grafische printer.canvas is slecht.Dit is een betere oplossing.,, programma 's drawimage (canvas: doek; destrect:;:,, wat tbitmap componenten); var, hoofd: aanwijzing van headersize:DWORD;,,,,,,,,, bitssize:DWORD; getdibsizes (abitmap.handle, headersize, bitssize); hoofd functie (,,, headersize);,, functie (BIT, bitssize);,,,, getdib (abitmap.handle bitmap. Palet, hoofd van een ^ ^ ^ ^ ^ ^ ^,,, stretchdibits); (canvas.handle, destrect. Links, destrect. Top,,, destrect. Op de bodem, destrect.,,., 0, 0,. De breedte, lengte, plaats. Tbitmapinfo (hoofd ^),,, dib_rgb_colors, srccopy); en, tot slot, FreeMem (hoofd);,,, FreeMem (een);,,,,, einde.