Тема: Сайт групп факультета ИТ МИРЭА :: Человек и Smalltalk

Прислано 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.