22.03.2014, 20:31
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Try this:
Код:
constructor TAnimate.Create(x0, y0: Integer; bitmap0: array of TBitmap;
maxFrame0: Integer);
var
I : Integer;
begin
x:=x0;
y:=y0;
SetLength(bitmap,Length(bitmap0));
For I := Low(bitmap0) to High(bitmap0) Do
bitmap[i] := bitmap0[i];
curFrame:= 0;
maxFRame:= maxFrame0;
end;
|