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

Вниз

Как обрезать WMF?   Найти похожие ветки 

← →
BaDeVlad   (2004-10-26 11:54) [0]

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

---

← →
MBo ©   (2004-10-26 13:17) [1]


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);


---

← →
BaDeVlad   (2004-10-26 14:37) [2]

Thanks, попробую.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.299 c