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

Question

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

Answer 1

Delphi中提供了一个演示程序，可以看看。工程在Demo/doc/目录下。

Answer 2

to  zzwu
  那个自带的例子相对来说简当了一点，连添加文字都没有

Answer 3

写文字的功能自己加上去就行了,要知道,能够画图的地方总是可以写文字的. 
麻烦的可能是画bezier曲线,如果原来不了解bezier作图的话,就要化些功夫了.

Answer 4

用DELPHI我觉得不合适做.因为牵涉到矢量图.建议用VC.因为VC中的指针好用.DELPHI里我一般避免指针,太严格了.我做过流程图编辑器.代码是VC的.要的话我找找去.要是DELPHI的话.我也头疼.只能告诉你些方法.具体代码要自己写了.你逐个的细话成小问题问吧.

Answer 5

Delphi7数据库系统设计与开发（清华版）一书中有一个画图程序开发实例，网上有其实例源码，但网址不详自己用GOOGLE搜一下。

Answer 6

to guhaicxl(我来也) 
  我在网上已经找了非常久了，都没有找到有关画图的源码，Delphi7数据库系统设计与开发（清华版），我们这里买书相当困难，买电脑书更加困难，我想买但是都不知道哪里有。因为现在本人及需画图的源代码，还请各位仁兄多多帮帮忙了。

Answer 7

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

Answer 8

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

Answer 9

画三角形:
设三个顶点为(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;

Answer 10

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

Answer 11

to zytangzhou(zytangzhou)
   好的，谢谢。

Answer 12

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

Answer 13

设三个顶点为(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;
//具体函数请看书。。我随手写的。可能有错。

Answer 14

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

Answer 15

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