请问那位仁兄有类似系统自带的画图程序的源代码，麻烦请给小弟一份，小弟现在急需，最好源代码功能能比自带画图程序好一点，没有的话类似

ninsen 2004-01-19 02:47:06

因为小弟现在在开发一个商业软件，其中在编辑样品唛头中需要用到用户自己画图形，所以才很急要找一个源程序，因为如果现在自己去想，去完善一个画图程序的话，那么将需要很长的时间，因为我是个人开发，没有那么多的时间，所以肯请各仁兄谁有就帮一下小弟

...全文

37 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

jpyc 2004-01-31

打赏
举报

http://218.56.11.178:8018/FileDown.aspx?FID=184

ninsen 2004-01-31

打赏
举报

to SydPink(呜噜~呜噜)
你能不能下载楼下guhaicxl(我来也) 仁兄说的那个源码，然后加上画三角形的功能，因为小弟未接触过画图这方面的，而现在软件中需要用到这一功能，小弟又没有时间可以研究了，所以肯请仁兄帮一下忙，解决这个三解形的问题，我一定送上两百分，决无食言。

ninsen 2004-01-30

打赏
举报

to zzwu(未名)
你能不能下载楼下guhaicxl(我来也) 仁兄说的那个源码，然后加上画三角形的功能，因为小弟未接触过画图这方面的，而现在软件中需要用到这一功能，小弟又没有时间可以研究了，所以肯请仁兄帮一下忙，到时候分再加上去给大家.

SydPink 2004-01-30

打赏
举报

设三个顶点为(x1,y1),(x2,y2),(x3,y3)
procedure ...;
var
r:HRGN;
begin
with canvas do
begin
BeginPath(Canvas.Handle);
moveto(x1,y1);
linrto(x2,y2);
linrto(x3,y3);
linrto(x1,y1);
EndPath(Canvas.Handle);
PathToRgn(r);
FillRgn(Canvas.Handle,r,Canvas.Brush.handle);
end;

end;
//具体函数请看书。。我随手写的。可能有错。

zzwu 2004-01-29

打赏
举报

http://www.huachu.com.cn提供的例子有写字符的功能,我看过了.

zytangzhou 2004-01-29

打赏
举报

我有一个不知道你用得上否，给我你的电邮

zzwu 2004-01-29

打赏
举报

画三角形:
设三个顶点为(x1,y1),(x2,y2),(x3,y3)
在form1.image1上画此三角形的办法是:

with form1.image1.canvas do
begin
moveto(x1,y1);
linrto(x2,y2);
linrto(x3,y3);
linrto(x1,y1);
end;

ninsen 2004-01-29

打赏
举报

to zytangzhou(zytangzhou)
好的，谢谢。我的邮箱地址：chenninsen@tom.com

ninsen 2004-01-28

打赏
举报

to guhaicxl(我来也)
谢谢你的帮助，分那是没有问题，问你最后一个问题，知道要怎么样才能画出三角形吗？这对我来说很重要。
最近比较忙，就没有上来回这个贴子了。

guhaicxl 2004-01-24

打赏
举报

哦~~别忘了，给分哦~~还有哦你要搞什么软件不凡透露一下

guhaicxl 2004-01-24

打赏
举报

呵~~
帮你找到喽，只是不知这个实例不知对你会不会有，http://www.khp.com.cn/down/down.asp?downtype=1 在下载服务里查找到 Delphi 7数据库系统设计与开发点击下载既可卖电脑书的你可以去华储网http://www.huachu.com.cn或互动出版网http://www.china-pub.com/邮购相关书籍两家网站信誉相当不错我均邮购过。

ninsen 2004-01-24