张志峰的博客

水滴石川,积少成多。

导航

2011年7月29日

摘要: var I, D, M: Integer; F, A, B, C: Real;begin //I := 4 / 2; //错误的用法 //I := 3 div 2; //正确的用法 //I := 4 div 2; //正确的用法 F := 3.2 div 2.3; //错误的用法 //F := 3.2 / 2.3; //正确的用法end; 阅读全文

posted @ 2011-07-29 18:19 ╰★张志峰★╮ 阅读(5724) 评论(0) 推荐(1) 编辑

2011年7月28日

摘要: 在编写过程中如果入到传入的参数是动态数组的话可以这么做type TPoints = array of TPoint;Points: TPoints;SetLength(Points, 3); Points[0].X := 150; Points[0].Y := 150; Points[1].X := 240; Points[1].Y := 50; Points[2].X := 320; Points[2].Y := 200;源码如下:unit UForm_Image8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, G 阅读全文

posted @ 2011-07-28 19:28 ╰★张志峰★╮ 阅读(3772) 评论(0) 推荐(0) 编辑

摘要: 1. 画两次不就可以了。。第一次画大的,第二画小的。。procedure TForm1.Button1Click(Sender: TObject); begin with Canvas do begin Rectangle(100,100,300,300); Rectangle(150,150,250,250); Brush.Color := clRed; FillRect(rect(150,150,250,250)); end; end;2.先创建出HRGH的区域,再用CombineRgn获取环带的区域,之后填充: var a, b, c: HRGN; hbr: HBRUSH; begin 阅读全文

posted @ 2011-07-28 17:34 ╰★张志峰★╮ 阅读(557) 评论(2) 推荐(0) 编辑

2011年7月27日

摘要: //高斯投影正、反算 //////6度带宽 54年北京坐标系 //高斯投影由经纬度(Unit:DD)反算大地坐标(含带号,Unit:Metres) void GaussProjCal(double longitude, double latitude, double *X, double *Y) {int ProjNo=0; int ZoneWide; ////带宽 double longitude1,latitude1, longitude0,latitude0, X0,Y0, xval,yval;double a,f, e2,ee, NN, T,C,A, M, iPI;iPI = 0.01 阅读全文

posted @ 2011-07-27 11:25 ╰★张志峰★╮ 阅读(3590) 评论(2) 推荐(1) 编辑

摘要: 阅读全文

posted @ 2011-07-27 11:22 ╰★张志峰★╮ 阅读(622) 评论(0) 推荐(0) 编辑

摘要: 这个程序是根据网上找到的VC代码改写而成的Delphi库单元,经验算,比较准确,支持西安80及北京54。 本人原创,转载请保留本人信息。http://wallimn.javaeye.com 代码及使用方法如下(javaeye的博客代码高亮竟然不支持delphi,抗议): unit Translate; { 经纬度坐标与高斯-克吕格投影坐标的互算。 时间:2009-05-11 博客:http://wallimn.javaeye.com 转载请保留此信息 } interface uses Math; type TTranslate = class(TObject) protected a,f,e2 阅读全文

posted @ 2011-07-27 11:12 ╰★张志峰★╮ 阅读(10157) 评论(1) 推荐(0) 编辑

2011年7月26日

摘要: 首先要看SetMapMode,这两个函数,SetWindowExtEx设置客户区逻辑坐标的范围,SetViewportExtEx设置客户区逻辑坐标的映射范围,这三个函数决定了从逻辑坐标到物理坐标的映射方式。可以看看GDI中关于坐标映射的内容 阅读全文

posted @ 2011-07-26 15:57 ╰★张志峰★╮ 阅读(1082) 评论(0) 推荐(0) 编辑

摘要: CRect 就是一个普通的数据结构(类?)HRGN是资源句柄(由操作系统管理,数量有限)1 构造出异形HRGN(这个HRGN必须有效,并且不为空)2 SetWindowRgnCRect顾名思义,只是个矩形HRGN是区域,有各种api函数可以创建任意形状的区域创建区域后,使用SetWindowRgn改变窗体区域 不规则窗口在Windows下有两种方式可以实现,一种是用Region,一种是用Layered Window.看样子你用的是第一种.用这种方式,你只要生成一个适合的Region并SetWindowRgn就可以了.你说用CRgn是对的,而直接使用HRGN不对,那应该是你用的不对.再仔细检查一 阅读全文

posted @ 2011-07-26 14:01 ╰★张志峰★╮ 阅读(16778) 评论(1) 推荐(0) 编辑

2011年7月25日

摘要: 1.说话要用脑子,做事慎言,话多无益.讲话不要只顾一时痛快.信口开河,以为人家给你笑脸就是欣赏,没完没了的把掏心窝子的话都讲出来,结果让人家彻底摸清了家底.还偷笑你. 2.遇事不要急于下结论,即便有了答案也要等等,也许有更好的解决方式,站在不同的角度就有不同答案,要学会换位思维. 3.对小人一定要忍让,退一步海阔天空,实在不行把属于自己的空间也关给他们,站他们如莺燕舞般陶醉吧.大人大度量.惹着小人就等与惹了麻烦,所以要敬而远之. 4.这世道没有无缘无故的爱,也没有无缘无故的恨,不要参与评论任何人,做到心中有数就可以了.谁也没有理论依据来介定好人与坏蛋,其实就是利益关系的问题. 5.做事情一定要 阅读全文

posted @ 2011-07-25 15:55 ╰★张志峰★╮ 阅读(212) 评论(0) 推荐(0) 编辑

2011年7月22日

摘要: http://www.cnblogs.com/del/archive/2008/05/26/1207768.html (图形处理)http://www.cnblogs.com/del/archive/2008/06/02/1212382.html(WinAPI: SetWindowExtEx、SetViewportExtEx)http://www.cnblogs.com/del/archive/2008/06/03/1212534.html (WinAPI: ExtCreateRegion - 区域变换) 阅读全文

posted @ 2011-07-22 15:25 ╰★张志峰★╮ 阅读(854) 评论(0) 推荐(0) 编辑