Как обрезать 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, попробую.

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