Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.10;
Скачать: CL | DM;

Вниз

Помогите с графикой, 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!
Огромное спасибо !!! Все работает :-)))))



Страницы: 1 вся ветка

Текущий архив: 2002.01.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.005 c
3-28445
szap
2001-12-07 15:09
2002.01.10
Альтернатива TQuery


1-28508
Notify
2001-12-23 18:23
2002.01.10
Проблема при развертывании формы на весь экран и одновременном блокировании изменений ее размеров.


1-28458
Aleksandr
2001-12-21 14:33
2002.01.10
Как корректно уничтожить из дестрактора компоненты ScrollBar


1-28511
VadX
2001-12-21 15:29
2002.01.10
Вопрос


1-28456
Serg5
2001-12-21 19:36
2002.01.10
Знатоки, подскажите. плиз, как запретить ввод любых значений в StringGrid, кроме первой колонки. Т.е. остальные попросту у меня предназначенны для отображения результата.