N
noall
Unregistered / Unconfirmed
GUEST, unregistred user!
var
wmf:tmetafile;//定义图元
wmfcanvas:tmetafilecanvas;//定义图元
begin
wmf:=tmetafile.Create;
wmf.enhanced:=true;
wmfcanvas:=tmetafilecanvas.createwithcomment(wmf,0,'Marco','Demo Metafile');
try
wmfcanvas.Brush.Color :=clwhite;
wmfcanvas.brush.Style :=bssolid;
wmfcanvas.Rectangle(10,10,1000,700);
finally
wmfcanvas.Free;
end;
wmf.savetofile('c:/1.emf');
wmf.free;
end;
保存后用acdsee查看,发现所画的矩形的右边和下边会没有。(分辨率为800*600),应该如何解决呢?
如果图形更大保存为emf文件才不会丢失呢?
wmf:tmetafile;//定义图元
wmfcanvas:tmetafilecanvas;//定义图元
begin
wmf:=tmetafile.Create;
wmf.enhanced:=true;
wmfcanvas:=tmetafilecanvas.createwithcomment(wmf,0,'Marco','Demo Metafile');
try
wmfcanvas.Brush.Color :=clwhite;
wmfcanvas.brush.Style :=bssolid;
wmfcanvas.Rectangle(10,10,1000,700);
finally
wmfcanvas.Free;
end;
wmf.savetofile('c:/1.emf');
wmf.free;
end;
保存后用acdsee查看,发现所画的矩形的右边和下边会没有。(分辨率为800*600),应该如何解决呢?
如果图形更大保存为emf文件才不会丢失呢?