Копирование фрагмента изображения [D3, D4, D5, Win95/98, NT4]
vbazik © (2002-01-15 18:01:00)
Приведенный фрагмент кода, любезно предоставленный Мво,
копирует изображение с image1 на image2 в ограниченную полигоном
PolyRgn область. Под Win9x работает нормально, но :( под Win NT не
копирует в выделенную многоугольником PolyRgn область :(
(копируется Rect целиком) В чем причина? Как сделать, чтобы
работало под NT ? Заранее благодарен всем кто откликнется.
procedure TForm1.Button1Click(Sender: TObject);
var
PolyRgn: hRgn;
APolygon: array[1..5] of TPoint;
r: Trect;
begin
APolygon[1] := Point(0,0);
APolygon[2] := Point(0,80);
APolygon[3] := Point(150,150);
APolygon[4] := Point(150,100);
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;
MBo (2002-01-16 08:08:00) [1]
nt нет, проверить не на чем.
посмотри, что возвращает SelectClipRegion
Наверх 
ЧАТ |
Орешник |
|
