利用Delphi中的画布画树

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

    程序写的比较乱，欢迎交流：sss@pacia.com.cn

    源代码如下：

    unit U_Tree;

  interface

  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;
      OLst : TList;
      SelID : string;
      Root : boolean;
      SearilID : integer;
      procedure DrawNode(id:string);
      procedure AddObj(id:string;x,y:integer;typeno:integer;selected:boolean;Fnode:string;showed:boolean);
      function getObj(id : string): TObj;
      function getPObj(id:string): Pointer;
      function getselect: TObj;
      function haveselect:boolean;
      function clickobj(x,y:integer):string;
      procedure DrawFull;
      procedure setselected(x,y:integer);
      function setshowsel(x,y:integer):tobj;
      procedure setfnode(id:string);
      procedure setcnode(id:string);
      procedure clearshowed;
      procedure clearCanvas;
      procedure moveobj(dx,dy:integer);
      procedure movenode(dx,dy:integer;id:string);
      procedure movelocal(dx,dy:integer);
      //procedure
    public
      { Public declarations }
    end;

• [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用Delphi中的画布画树 相关文章：
• ·利用Delphi中的画布画树
• 利用Delphi中的画布画树 相关软件

上一篇:Delphi多层开发方案比较

下一篇:Dunit的感悟

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐