TImage Array?

[Stilet]

Мне надо картинку двигать

Как двигать?

то нужно битмапу установить значения ширины и высоты вручную

По-моему если загружаешь из файла он сам выставляет габариты хотя могу и ошибаться

[inndim]

Vigilante

Он по идее будет закрашивать label'ы и т.п.

Вместо timage брось на форму например PaintBox и рисуй на его канве

mass[1].LoadFromFile('C:\Documents and Settings\Роман\Мои документы\Мои рисунки\neverdie.bmp');
paintbox1.Canvas.Draw(0, 0, mass[1]);

[Deamonig]

По-моему если загружаешь из файла он сам выставляет габариты хотя могу и ошибаться

Ну чуть выше этого я какраз написал что

если загружается катинка из файла то Битмапу автоматически присваиваются ширина и высота загружаемой картинки. Если же вы создали битмап и хотите на нем рисовать посредством Canvas что либо, то нужно битмапу установить значения ширины и высоты вручную

То есть во втором предложении я имел ввиду, что мы не загружали картинку из файла, то в таком случаем делаем все ручками.

[russian-stalker]

Сообщение от Deamonig

Также имейте ввиду что если Битмап после завершения работы программы не удалить, то он будет "висеть" в оперативной памяти компьютера забивая ресурсы, потому в OnDestroy:

for i:=1 to n do
mass[1].Free;

Если не ошибаюсь-делфи сама чистит память по завершению приложения.

[Deamonig]

Хмм.. всегда думал что ресурсы таким образом забиваются, где то читал об этом, что важно освобождать ресурсы. Но сделав небольшую программу убедился в обратном - битмапы таки автоматически удаляются из памяти по завершению работы программы. Может быть этот недостаток был в ранних версиях Delphi?

[Alex Cones]

Это недостаток винды - она может очистить память а может и НЕ очистить. Так что, если понасоздавать, то в памяти может получиться убыток казне.

[Vigilante]

Спасибо. Так кроме paintbox'a нет варианта?
Тогда может лучше делать TImage; ?
PS снег делаю, тренеруюсь.

[inndim]

Я бы остановился на paintbox, у TImage сложнее менять цвет фона - я имею ввиду не заполненных картинкой областей, поэксперементируйте.

[DomiNick]

Если же вы создали битмап и хотите на нем рисовать посредством Canvas что либо, то нужно битмапу установить значения ширины и высоты вручную :

mass[1].Width:=X;
mass[1].Height:=Y;

И надо бы ещё формат задавать:

mass[1].PixelFormat:=pf24bit;

Но сделав небольшую программу убедился в обратном - битмапы таки автоматически удаляются из памяти по завершению работы программы.

Если не ошибаюсь-делфи сама чистит память по завершению приложения.

Никто ни за кем никогда ничего не чистит - просто ОС обычно при завершении процесса удаляет всё что программа насоздавала (ну должна по идее), но вовсе не стоит на неё надеяться...

Так кроме paintbox'a нет варианта?

Да зачем PaintBox? Можно просто на форме рисовать...

PS снег делаю, тренеруюсь.

Если снежинки одинаковые, то и массива не надо никакого...

Пример:

Var Form1: TForm1; SnowSprite: TBitmap;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Randomize;
Form1.WindowState:=wsMaximized;
SnowSprite:=TBitmap.Create;
SnowSprite.LoadFromFile('C:\SnowFlake.bmp');
Timer1.Interval:=600;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Var i: Byte;
Begin
Repaint;
For i:=0 To 9 Do
      Canvas.Draw(Random(ClientWidth-SnowSprite.Width), Random(ClientHeight-SnowSprite.Height), SnowSprite);
End;

Procedure TForm1.FormDestroy(Sender: TObject);
Begin
SnowSprite.Free;
End;