一直都听说delphi中画布使用简单方便。_程序员之家(利用Delphi中的画布画树 )

开发技术指南» 文章正文

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

·delphi中将ucs2编码的字符串转化为gb2312编码的简单方法 »显示摘要«

摘要：最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的： function ucs2togbk(const invalue: string): string;var i: integer;begin result := ; for i......

·改变windows的缺省打印机 »显示摘要«

摘要：如果你想要改变windows的缺省打印机,你必须在windows的win.ini中改变设备键。发送一条 wm_wininichange 消息： var strini: array[0..max_path] of char; arrwindows: array[0..64] of char;begin getwindowsdirectory(strini, sizeof(strini)); st......

利用Delphi中的画布画树

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

源代码如下: 【程序编程相关:DB2 信息集成: 总览图】

程序写的比较乱,欢迎交流:sss@pacia.com.cn 【推荐阅读:我们针对各种全异的数据源开发实体 EJB】

interface 【扩展信息:DB2 Universal Databa】

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;

... 下一页

·delphi下的opengl开发 »显示摘要«

摘要：opengl最初是由silicon图形公司开发的底层图形库规范。你的系统中准确实现这个规范的部分，通常被称为opengl驱动，它允许你使用几何集合(点，线，多边形，图像等等)来描述你希望表现的场景。让肉眼观察起来较为舒适的中等规模场景，通常在毫秒级的速度上实现，这意味着该库文件有足够的能力来支持你创建一个生机勃勃的虚拟世界。 opengl驱动一般以二进制库文件的形式提供。它能够动态的连接到你的程序......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：