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




Вниз

Копирование фрагмента изображения 


vbazik   (2002-01-15 18:01) [0]

Приведенный фрагмент кода, любезно предоставленный Мво, копирует изображение с 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) [1]

nt нет, проверить не на чем.
посмотри, что возвращает SelectClipRegion




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




Наверх





Память: 0.71 MB
Время: 0.026 c
1-8886            Dmitriy_R             2002-01-15 13:51  2002.02.04  
Генерация случайного числа в диапазоне 30......90


7-9002            Dmitry V. Averuanov   2001-10-22 11:16  2002.02.04  
Нужно определить уровень сигнала на входе звуковой карты


1-8931            Matvey                2002-01-17 01:05  2002.02.04  
Загруженность процессора (во время цикла)?


14-8981           anod                  2001-12-12 19:42  2002.02.04  
Вопрос по Перлу


3-8785            Niky                  2002-01-05 09:01  2002.02.04  
excel