Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Помогите с графикой, please :-( 


vbazik   (2001-12-21 13:16) [0]

Подскажите как наложить на изображение image1:TImage не прямоугольный фрагмент из image2:TImage (например из области внутри произвольного t:TPoligon) Спасибо !!!
Кто знает - подкиньте ссылки на работу с графикой т.е. повороты, сшивка, трансформирование, фильтрация



MBo   (2001-12-21 14:37) [1]

procedure TForm1.Button1Click(Sender: TObject);
var PolyRgn:hRgn;
APolygon:array[1..5] of TPoint;
r:trect;
begin
image1.Picture.LoadFromFile("e:\camera1.bmp");
APolygon[1]:=Point(0,0);
APolygon[2]:=Point(30,20);
APolygon[3]:=Point(50,50);
APolygon[4]:=Point(20,30);
APolygon[5]:=Point(0,0);
PolyRgn := CreatePolygonRgn(APolygon, 5, 0);
SelectClipRgn(image2.Canvas.Handle, PolyRgn);
r:=image1.clientrect;
image2.canvas.copyrect(r,image1.canvas,r);
DeleteObject(PolyRgn);
end;



vbazik   (2001-12-23 02:17) [2]

>MBo!
Огромное спасибо !!! Все работает :-)))))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-28494           Man In Red            2001-12-22 21:08  2002.01.10  
Извините, но приходится еще раз задать этот вопрос, не получается все никак по нормальному сделать! Помогите пожалуйста!


14-28534          Dim                   2001-11-13 07:25  2002.01.10  
Братья и сестры. Очередная пирамида или ......?


1-28459           SerGa                 2001-12-21 21:22  2002.01.10  
Реестр и NT


14-28544          Abajun                2001-11-16 09:38  2002.01.10  
Шифровка


1-28500           Kost                  2001-12-20 16:08  2002.01.10  
Тут еще такой вопросец возник трансформирование Bitmap ov