Большие изображения на маленькой форме

[Harikolo]

Здравствуйте.
Столкнулся с такой проблемой....
Имеются много (10к+) картинок 256х256 формата jpg. Необходимо их всех склеить и разместить на форме. Каким компонентом это лучше всего сделать?
Также существует еще одна проблема, при их склеивании образуется оч. большая картинка. Как сделать так, что бы размеры формы остались к примеру 800х800, а картинка была на этой форме в натуральную величину (т.е. не уменьшалась), а передвижение по этой картинке осуществлялось с помощью мышки ( при удержании ЛКМ можно было передвигаться по этой большой картинке ).

[Gambler]

Рассчитать где какая картинка и что видно на форме и рисовать только видимую часть. Потому что все грузить в опративу думаю не вариант.

[Harikolo]

А при помощи каких компонентов это можно реализовать? Алгоритм склеивания и вывода я как-нибудь разберу...

Возможно ли в 1 TImage вывести несколько рисунков одновременно?

[Harikolo]

Как я понял, в 1 image нельзя класть несколько рисунков. Рационально ли использовать для склеивания BitMap и вывод его на Image?

[SNUPY]

Готовим рисунок в памяти =)...
Для этого нам понадобяться:
TPicture - 1-а штука
TBitmap -1-а штука

Рецепт:
Грузим рисунок в TBitmap, а потом его в заданную область TPicture при помощи продцедуры StretchDraw

Приятного аппетита!

[SERG1980]

Я бы так сделал
Кидаем на форму ScrollBox на него Image.
Клеим ваши фото в битмапе и выводим на имидж
потом пишем вот это

var xn,yn:integer;//объявлены глобально
procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ssLeft in Shift then
 begin
  xn:=x;
  yn:=y;
 end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var xm,ym:integer;
begin
if  ssLeft in Shift then//ЛКМ
begin
 xm:=-(xn-x);
 ym:=-(yn-y);
 form1.ScrollBox1.ScrollBy(xm,ym);
 xn:=x;
 yn:=y;
end;
end;

и наслаждаемся передвижением по этой картинке с помощью мышки