| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как обрезать WMF? [D5, Win95/98]

BaDeVlad ©   (2004-10-26 11:54:00) 

С помощью TMetafileCanvas нужно отрендерить один метафайл в другой, обрезав лишние части (типа, в "окно"). При простом Draw'е получаемый метафайл "растягивается" так, чтоб вместить прорисовываемый. Как установить "окно" или просто "отрезать" лишнее?

---

BaDeVlad   (2004-10-26 14:37:00) [1]

Thanks, попробую.

---

MBo   (2004-10-26 13:17:00) [2]


var m1,m2:TMetaFile;
   r:HRGN;
begin
m1 := TMetafile.Create;
with TMetafileCanvas.Create(m1, 0) do begin
 Brush.Color := clRed;
 Ellipse(0,0,100,100);
 Free;
end;
Canvas.Draw(200,0,m1);
m2 := TMetafile.Create;
r:=CreateRectRgn(0,0,50,50);
with TMetafileCanvas.Create(M2, 0) do begin
 SelectClipRgn(Handle,r);
 Draw(0,0,m1);
 Free;
end;
Canvas.Draw(0,0,m2);


---

Наверх