Показ картинок, как реализовать.

[Zeraim]

Здрасте, мне надо чтобы картинка показывалась во весь экран и вокруг картинки была чёрная заливка. Вопрос у меня в том как это реализовать, пока что появилась идея, брать Image с чёрным фоном, растягивать его на весь экран, и показывать на нем картинку нужную, но как это еще можно сделать?

[Баламут]

Form1.color := clBlack;
Form1.BorderStyle := bsNone;
From1.WindowState := wsMaximized;

[Zeraim]

Спасибо, у меня возник сейчас еще один вопрос, проблема в том что у меня не 1 картинка будет, а предположительно 200 8) Как можно их все поочередно показывать? Для этого надо сделать все 200 Image и потом поочереди Visible := true ставить?

[Kostia]

Если картинки находятся в одном каталоге, то смотри FindFirst() и FindNext(), а найденную картинку загружаешь в Image1 таким способом Image1.Picture.LoadFromFile().

[Zeraim]

Еслибы были они в папке все былобы просто, мне хотелось бы чтобы все картинки были в самом EXE, просто подумал что можно их както туда запихнуть, пока тока идея кучу имеиджев сделать, хотелось бы узнать как можно еще.

[D-mon]

Засунь их в *.рес, и загружай оттуда.

[mutabor]

В ресурсы, но это ж какой екзешник получится
Ищи статьи по работе с ресурсами, вопросы потом, когда что-то получаться не будет.
Ключевая фраза Jpeg в ресурсы Дельфи Delphi

[D-mon]

Есть еще вариант. Переведи картинки в числовое представление, пиксель равен какому то цвету. Получиться матрица n на m размер рисунка в пикселях. создай соответствующие матрицы и потом отображай их циклом попиксельно в имидж или на форму...

ГЫ.

[Zeraim]

Сообщение от D-mon

Есть еще вариант. Переведи картинки в числовое представление, пиксель равен какому то цвету. Получиться матрица n на m размер рисунка в пикселях. создай соответствующие матрицы и потом отображай их циклом попиксельно в имидж или на форму...

ГЫ.

Не это будет долго подгружать думаю, у меня на машине может и терпимо будет, но если у когото машина слабая 8)

В ресурсы, но это ж какой екзешник получится

Да нет норм, если еще упаковщиками помучать, думаю немнога будет весить.

[Zeraim]

Здрасте, посмотрите код, где ошибка? Дельфи на меня ругается: Internal Error EVA-2889.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i := 1 to Form1.ControlCount do
begin
if Form1.Controls[i] is TImage then
  begin
  Form1.Controls[i].Width := Form1.Width;
  Form1.Controls[i].Height := Form1.Height;
  if Form1.Controls[i-1] is TImage then Form1.Controls[i-1].Visible := false;
  Form1.Controls[i].Visible := true;
  end;
end;
end;

По идее должен показывать имеиджи один за другим по порядку, с интервалом в 3сек.