constructor Create(x,y: integer; fname: string); Создает набор рисунков, состоящий из одного рисунка, загружая его из файла с именем fname. После создания рисунок отображается на экране в позиции (x,y). Остальные рисунки добавляются методом Add |
constructor Create(x,y: integer; p: Picture); Создает набор рисунков, состоящий из одного рисунка, хранящегося в переменной p. После создания рисунок отображается на экране в позиции (x,y). Остальные рисунки добавляются методом Add |
constructor Create(x,y,w: integer; p: Picture); Создает набор рисунков из объекта p типа Picture. Объект p должен хранить последовательность изображений одного размера, расположенных по горизонтали. Каждое изображение считается имеющим ширину w. Если ширина рисунка в объекте p не кратна w, то возникает исключение. После создания первый рисунок из набора отображается на экране в позиции (x,y) |
constructor Create(x,y,w: integer; fname: string); Создает набор рисунков, загружая его из файла fname. Файл должен хранить последовательность изображений одного размера, расположенных по горизонтали. Каждое изображение считается имеющим ширину w. Если ширина рисунка в файле fname не кратна w, то возникает исключение. После создания первый рисунок из набора отображается на экране в позиции (x,y) |
constructor Create(g: MultiPictureABC); Создает набор рисунков - копию набора рисунков g |
property CurrentPicture: integer; Номер текущего рисунка |
property Count: integer; Количество рисунков в наборе |
procedure Add(fname: string); Добавляет рисунок к набору, загружая его из файла fname. Рисунок должен иметь те же размеры, что и все рисунки из набора |
procedure ChangePicture(fname: string); Меняет набор рисунков на набор, состоящий из одного рисунка, загружая его из файла с именем fname |
procedure ChangePicture(w: integer; fname: string); Меняет набор рисунков на набор, загружая его из файла с именем fname. Файл должен хранить последовательность изображений одного размера, расположенных по горизонтали. Каждое изображение считается имеющим ширину w |
procedure NextPicture; Циклически переходит к следующему рисунку из набора |
procedure PrevPicture; Циклически переходит к предыдующему рисунку из набора |
function Clone: MultiPictureABC; Возвращает клон набора рисунков |
