


For x = 0 to picPic.scalewidth
for y = 0 to picPic.ScaleHeight
picPic.PaintPicture x,y,picPic.picture
next y
next x
Urvin писал(а)::twisted: Не цитирую - ламерский вопрос - ламерский ответ...
- Код: Выделить всё
For x = 0 to picPic.scalewidth
for y = 0 to picPic.ScaleHeight
picPic.PaintPicture x,y,picPic.picture
next y
next x
Итак, в твой picPic засовываешь в качестве picture картинку (маленькую), вставляешь код куда-нибудб типа запуска. Наслаждаешься, если не забыл свойство AutoRedraw у picPic поставить в True.
For x = 0 to picPic.ScaleWidth Step picTexture.Width
for y = 0 to picPic.ScaleHeight Step picTexture.Height
picPic.PaintPicture x, y, picTexture.picture
next y
next x
Сейчас этот форум просматривают: AhrefsBot и гости: 15