[M@TRiX]

Здраствуйте программеры! Интересует такой вопрос! Нужен компонент для загрузки графических файлов различного типа, но конечно же не такого убогого как Image, компонент конечно тоже хороший, но требуется что-либо более функциональное!

Задача стоит такая чтобы я мог видеть мозайку картинок, надеюсь вы это понимаете! ТОже самое как в масдае эскизы! Или мож кто знает или есть исходник того как это можно самому реализовать!

Заранее спасибо!

[M@TRiX]

Ну что? Никто чтоли не пробовал ничего подобного? Мож всё-таки кто-нибудь знает как быстро загрузить в программу много картинок?

[Decoding]

Может это подойдет - http://www.ruloads.com/dev/java/16193prog.html

[4kusNick]

http://www.hicomponents.com
платный компонент DImageEn

http://imaginglib.sourceforge.net
бесплатный компонент, я его юзаю, делал один хороший чел, продолжает развивать его, можно с ним по аське консультироваться на английском

[zoltan]

Для отображения мозайки можно использовать стандартный Timage, для поддержки различных форматов иди на torry.net там много есть чего интересного
Соответственно код для отображения мозайки :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
img:array[0..10] of TImage;
begin
x:=0;
y:=0;
for i:=0 to 10 do
begin
///////////////////////////////////////////////////////////
img[i]:=Timage.Create(self);
img[i].parent:=Form1;
img[i].picture.loadfromfile('c:\temp.bmp');
img[i].visible:=true;
img[i].left:=x;
img[i].top:=y;
img[i].Stretch :=true;
img[i].Width:=200 ;
img[i].Height:=150;

///////////////////////////////////////////////////////////
inc(x,img[i].Width+8);
if x>form1.Width-img[i].Width   then
begin x:=0;
inc(y,img[i].Height +8);
end;
Application.ProcessMessages
end;

end;

[zoltan]

Если есть вопросы пиши в асю 114971329

[4kusNick]

Не хочу тебя обидеть, но, думаю автор топика уже сюда не заходит (см. дату его сообщения и кол-во сообщений) =)

Но все равно спасибо, код и другим пригодится =)