当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： 一直都听说delphi中画布使用简单方便。

 

 

利用Delphi中的画布画树

     一直都听说delphi中画布使用简单方便.现在我就利用画布实现一个简单的树机构的图形表示.系统支持节点选择.移动.保存树.打开树等.为了实现的方便用到了递归与指针,虽然效率有点问题但是在快速解决问题还是蛮好的.

  源代码如下: 【程序编程相关:delphi连接数据库浅谈】

  程序写的比较乱,欢迎交流:sss@pacia.com.cn 【推荐阅读:开发一个密码查看器】

interface 【扩展信息:Delphi开发Web应用程序打印组件】

  unit u_tree;

uses

  windows, messages, sysutils, classes, graphics, controls, forms, dialogs,

  extctrls, stdctrls, jpeg, menus,inifiles32;

type

  tobj= record

    objid   : string;

    centerx : integer;

    centery : integer;

    typeno  : integer;

    selected : boolean;

    fnode    : string;

    showed  : boolean;

  end;

  tfrm_tree = class(tform)

    panel1: tpanel;

    paintbox1: tpaintbox;

    panel2: tpanel;

    label1: tlabel;

    button2: tbutton;

    button1: tbutton;

    button3: tbutton;

    button4: tbutton;

    button5: tbutton;

    button6: tbutton;

    mainmenu1: tmainmenu;

    fadestream1: tmenuitem;

    randomrandomselection1: tmenuitem;

    savedialog1: tsavedialog;

    opendialog1: topendialog;

    button7: tbutton;

    procedure paintbox1mousedown(sender: tobject; button: tmousebutton;

      shift: tshiftstate; x, y: integer);

    procedure formcreate(sender: tobject);

    procedure button1click(sender: tobject);

    procedure button2click(sender: tobject);

    procedure paintbox1paint(sender: tobject);

    procedure button3click(sender: tobject);

    procedure button4click(sender: tobject);

    procedure button5click(sender: tobject);

    procedure button6click(sender: tobject);

    procedure paintbox1mouseup(sender: tobject; button: tmousebutton;

      shift: tshiftstate; x, y: integer);

    procedure paintbox1mousemove(sender: tobject; shift: tshiftstate; x,

      y: integer);

    procedure fadestream1click(sender: tobject);

    procedure randomrandomselection1click(sender: tobject);

    procedure button7click(sender: tobject);

  private

    { private declarations }

    toolno : integer;                        //1 画点,2 选择  3 查看  4 移动 5子移动

    beginx,beginy,endx,endy : integer;

    clicked:boolean;

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：