200分,高难度问题(200分)

收,但愿对你有帮助

pengyi007,你能不能也发给我一份,非常感谢！,Email:daisyrose@163.net

pengyi007 我没有收到能不能在发一遍,Email:zhwenh@yeah.net

在画的时候自己保存各种对象！

我也正在研究这方面的技术，有一大堆原码（10000行）看不太明白，唉[]

to:zhwenh@yeah.net
daisyrose@163.net
收!

to pengyi007
能不能给我一份
如果能的话
我就要哭了
因为它困惑了我很长的时间了
我不知如何感激你
我们这里落后
我找了所有的地方也找不到这种矢量图的资料
再次请你发我一份
zhouzhouhaitao@sina.com.cn

to: 阿周
收!

哈哈！什么好事！有没有我的份！
cdyxl@163.com

pengyi007 :
能不能给我发一份。
非常感谢。

pengyi007 :
能不能给我发一份。
非常感谢。
qianwt@vip.sina.com

pengyi007,不知道怎么回事我就是收不到你给我发的东西，能不能发到 zhangwh@renre.com 里，
真是不好意思。

pengyi007
能不能发一份给我，非常感谢
lysh@net99.com.cn

zhwenh
收!

pengyi007 :
能不能给我发一份。
非常感谢。
ztiger_11@163.com

pengyi007 :
能不能给我发一份。
非常感谢。
email:chen_811006@sina.com.cn

用MetaFile和MetaFileCanvas

gaohuaigang@163.com

我也要一分，多少分都可以

我公布一个现在做的画图函数代码，希望对大家有所帮助。

{TODO -oXQ: 画图主函数}
{
函数功能： 按照给定的参数画图形
创建时间： 2003-03-05
参 数： 1：画布；2：起始点；3：终止点；4：形状标识；5：画笔颜色；6：画笔模式；7:画笔类型；8：线宽度；9：画刷类型；10：画刷颜色
修 改： 2003-03-18 加入画布颜色控制填充线条颜色，加入画线类型
2003-03-20 参数改变，形成结构体
}
Procedure TDrawShape.Paint_Rect(Shape_Struct:TShape_Record);
var
X1,X2,Y1,Y2:integer;
begin
with Shape_Struct.OwnImage.Canvas do
begin
with Shape_Struct do
begin
Pen.Color := Pen_Color;
Pen.Mode := Pen_Mode;
Pen.Style := Pen_Style;
Pen.Width := Pen_LineSize;
Brush.Style := Brush_Style;

if(Brush_Style <> bsClear) then
begin
Brush.Color := Brush_Color; //画网格线需要
end;

case ImageShape of
1: //画直线
begin
MoveTo(bpt.X,bpt.Y);
LineTo(ept.X,ept.Y);
end;
2: //画矩形
begin
Rectangle(bpt.X,bpt.Y,ept.X,ept.Y);
end;
3: //画椭圆
begin
Ellipse(bpt.X,bpt.Y,ept.X,ept.Y);
end;
4: //画圆角矩形
begin
RoundRect(bpt.X,bpt.Y,ept.X,ept.Y,20,20);
end;
5: //画多边形
begin
LineTo(bpt.X,bpt.Y);
LineTo(ept.X,ept.Y);
end;
6: //描点
begin
MoveTo(bpt.X,bpt.Y);
LineTo(ept.X,ept.Y);
//Pixels[bpt.X,bpt.Y]:= PenColor;
end;
7: //画笔功能
begin
MoveTo(bpt.X,bpt.Y);
Pen.Mode := pmCopy;
LineTo(ept.X,ept.Y);
end;
8: //橡皮擦功能
begin
Pen.Color := clWhite;
Pen.Mode := pmCopy;
Pen.Width := 5;
LineTo(ept.X,ept.Y);
end;
9: //画圆弧形
begin
X1 := (bpt.X + 2*ept.X) div 3;
X2 := (ept.X + 2*bpt.X) div 3;
Y1 := (bpt.Y + 2*ept.Y) div 3;
Y2 := (ept.Y + 2*bpt.Y) div 3;
Arc(bpt.X,bpt.Y,X1,Y1,X2,Y2,ept.X,ept.Y);
end;
10: //画控件
begin

end;
end;
end;
end;
end;