Форум: "Media";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизПомогите сделать просмоторщик рисунков!!!!! Найти похожие ветки
← →
Kutuzov (2002-06-18 15:11) [0]Уважаемые знатоки у меня к Вам большая просьба, мне надо сделать просмоторщик рисунков(что-то типа ACD-SEE).
У меня есть папка с рисунками(*.jpg), и нужно на форму вывести ети рисунки, тоесть на каждый рисунок нужно отвести какуюто отдельную область. Я работал только с TImage, а как мне динамически можно создать какуюто область куда можно открыть определенный файл. Если можно привелите пример, или подскажите где я могу найти ответ на этот вопрос.
Заранее благодарен.
← →
Neolord (2002-07-02 05:08) [1]Form1.canvas.draw(0,0,jpegfile1);
Form1.canvas.draw(55,45,jpegfile2);
и т.д.
или же весь код:
//картинки рисуются с промежутком 10 пикселей
uses jpeg;
procedure button1.click(sender:tobject);
var jpegfile1,jpegfile2:TJPegImage;bitmap1,bitmap2:TBitMap;
begin
jpegfile1:=TJpeg.create;
jpegfile2:=TJpeg.create;
Bitmap1:=Tbitmap.create;
Bitmap2:=Tbitmap.create;
jpegfile1.loadfromfile("jpg1.jpg");
jpegfile2.loadfromfile("jpg2.jpg");
Bitmap1.assign(jpegfile1);
Bitmap2.assign(jpegfile2);
form1.canvas.draw(0,0, bitmap1);
form1.canvas.draw(bitmap1.width+10,bitmap1.height+10,bitmap2);
//картинки рисуются с промежутком 10 пикселей
end;
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c