|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#7
|
||||
|
||||
Цитата:
Код:
{ TAnimate } TAnimate=class(TBase) private bitmap: array of TBitmap; Код:
procedure TAnimate.setBitmap(bitmap0: array of TBitmap); var i: Integer; begin SetLength(bitmap, Length(bitmap0)); for i := 0 to High(bitmap) do bitmap[i] := bitmap0[i]; end; |