Помогите сделать просмоторщик рисунков!!!!! [D5, D6, Win2k, WinXP]
Kutuzov © (2002-06-18 15:11:00)
Уважаемые знатоки у меня к Вам большая просьба, мне надо
сделать просмоторщик рисунков(что-то типа ACD-SEE).
У меня есть папка с рисунками(*.jpg), и нужно на форму
вывести ети рисунки, тоесть на каждый рисунок нужно отвести какуюто
отдельную область. Я работал только с TImage, а как мне динамически
можно создать какуюто область куда можно открыть определенный файл.
Если можно привелите пример, или подскажите где я могу найти ответ
на этот вопрос.
Заранее благодарен.
Neolord (2002-07-02 05:08:00) [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;
Наверх 
ЧАТ |
Орешник |
|
