Как просто нарисовать часть изображения.
Function drawimagerect (image:TImage,x#,y#,xs%,ys%,width%,height%)
DrawImage LoadImage ( PixmapWindow( LockImage(image), xs, ys, width, height) ),x,y
UnlockImage image
End Function
Способ основан на том, что в качестве исходного объекта для LoadImage можно передавать класс TPixmap.
Команду
PixmapWindow(...) можно заменить на аналог с использованием ООП: image.pixmaps[0].window( xs, ys, width, height ). При этом не надо делать после отрисовки
UnlockImage.
Недостаток этого способа - низкое быстродействие, т.к. при поличении окна от TPixmap, происходит копирование части изображения самим процессором, без использования аппаратного ускорения.
Достоинство - простота и краткость.