Прислано Mentor 01.06.2011 17:23
#62
Хорошо, тогда поясню еще раз для остальных:
Изображения загружаются в методе init выражением
Код
pixmaps:=ObjectLoader new loadFromFile:'D:\15pics.obj'.
В данном файле изображение хранятся в формате CgDeviceIndependentImage, в который преобразуются автоматически при загрузке из bmp файлов
(файл 15pics.obj был подготовлен заранее).
Далее происходит преобразование картинок в карты пикселей выражением
Код
1 to:15 do:
[:i|
pixmaps at:i put:((pixmaps at:i) asPixmap)
].
Собственно вывод картинок на экран производится в методе showPosition выражением
Код
(pixmaps at:(position at:pos)) copyArea: winCg
gc: gc
srcX:0
srcY: 0
width: w
height: h
destX: delta1
destY: delta2.