2011年7月27日
TeeChart经验总结 3.Panel和Walls
摘要： Panel是画图的基础,所以优先从这里讲起.Walls为Series表现的区域,有Left,Right,Bottom,Back之分,其中Left,Right,Bottom都为3D显示时候用的,Back就是Series绘图区域.先说Panel,看图:Color是用来修改Panel显示的颜色,如果Walls的Transparent属性为True,那么都会显示这个颜色,如果为False,就可以自行定义颜色显示.Bak Image Inside,顾名思义,就是让背景图片是否显示在Back Wall里.Borders:用来设计Panel的边缘,都很简单.Separation:是和Walls的间隔.Mar 阅读全文
posted @ 2011-07-27 17:32 solokey 阅读(883) 评论(0) 推荐(0)
  2011年7月21日
TeeChart经验总结 2.初识
摘要： 完成了安装以后,在additional选项卡里,就可以选择TChart进行使用.在Options->Language->Change中,可以修改TeeChart Editor为中文菜单,但是不推荐这样做,毕竟写代码还是得用英文的.Edit Chart:打开TeeChart Editor界面,可以进行Series,Axis,Wall之类的参数编辑.Print Preview:打印预览...Export Chart:可以将Chart导出图片之类的格式.Custom Axes:可以编辑 自定义Axis,也就是轴Seires:可以编辑 曲线序列,也就是数据集合.先贴一张TeeChart E 阅读全文
posted @ 2011-07-21 23:13 solokey 阅读(908) 评论(0) 推荐(0)
TStream与内存段相互转换
摘要： 刚才有人问起..顺手写的.他是用于DLL,所以我多写了2个函数.在DLL里提供内存指针输出,一定要记得提供相应的内存释放函数.有借有还,再借不难...老规矩..下面是demo 1 var 2 MS: TMemoryStream; 3 bytes: PByte; 4 size: Integer; 5 begin 6 MS := TMemoryStream.Create; 7 MS.LoadFromFile('d:\1.rar'); 8 size := StreamToBytes(MS, bytes); 9 10 MS.Clear;11 12 BytesToStream(bytes 阅读全文
posted @ 2011-07-21 23:10 solokey 阅读(340) 评论(0) 推荐(0)
VB下的TIniFile类(模拟Delphi)
摘要： 因为一个需求,写了这样一个类..写的我很胸闷.好多东西都没有现成的...记得一定要SetFileName,不然没法用..而且可能报异常,实在不想写异常处理了..我实在没找到构造函数在哪里....我只尝试了WriteString,ReadString,ReadSections这几个函数,其他的都没测试.调用代码如下:1 Dim sectionlist() As String2 IniFile.SetFileName (".\Test.ini")3 IniFile.ReadSections sectionlist4 Dim i As Long5 Combo1.Clear6 Fo 阅读全文
posted @ 2011-07-21 23:07 solokey 阅读(347) 评论(0) 推荐(0)
TeeChart经验总结 1.安装
摘要： 一点说明,本人还在极其落后的使用Delphi5,所以所有的测试,代码均为D5版本,看的时候要有一颗兼容的心.//------------------------------------------分割线---------------------------------------------------------------第三方组件,尽量使用有源码的版本,方便修改问题,也方便看懂功能,不然改都没法改.安装TeeChart的话,推荐TeeChart Pro v8.01 with Full Source,目录中有一个exe名为:TeeRecompile.exe.运行它.点击:BEGIN.编译完 阅读全文
posted @ 2011-07-21 23:05 solokey 阅读(837) 评论(0) 推荐(0)
打开资源管理器,并将焦点指向某文件
摘要： uses ShellAPI;var FileName: string;begin FileName := 'D:\tools\cpu-z\cpuz.exe'; ShellExecute(0, 'Open' ,'explorer.exe', PChar('/e,/select,' + FileName), nil, SW_NORMAL);end;-------------------------------------------------------无敌分割线----------------------------------- 阅读全文
posted @ 2011-07-21 22:59 solokey 阅读(416) 评论(0) 推荐(0)
得到鼠标和键盘的空闲时间
摘要： var t: TLastInputInfo;begin t.cbSize := SizeOf(t); GetLastInputInfo(t); Label1.Caption := IntToStr(GetTickCount - t.dwTime); //这里是msend;-------------------------------------无敌分割线----------------------------------------------type PLastInputInfo = ^TLastInputInfo; {$EXTERNALSYM tagLASTINPUTINFO} tagLA 阅读全文
posted @ 2011-07-21 22:57 solokey 阅读(258) 评论(0) 推荐(0)
用代码打开文件或者文件夹的属性
摘要： 1 var 2 sei: SHELLEXECUTEINFO; 3 FileName: string; 4 begin 5 FileName := 'C:\a.a'; 6 with sei do begin 7 cbSize := SizeOf(sei); 8 fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI ; 9 Wnd := Self.Handle;10 lpVerb := 'properties';11 lpFile := PChar(FileN 阅读全文
posted @ 2011-07-21 22:55 solokey 阅读(364) 评论(0) 推荐(0)
让鼠标穿透窗体
摘要： 1 var2 ws: DWORD;3 begin4 ws := GetWindowLong(Form1.Handle, GWL_EXSTYLE);5 ws := ws or WS_EX_TRANSPARENT;6 ws := ws or $80000;7 SetWindowLong(Form1.Handle, GWL_EXSTYLE, ws);8 end; 阅读全文
posted @ 2011-07-21 22:54 solokey 阅读(215) 评论(0) 推荐(0)
把普通函数指针,变成对象方法指针
摘要： delphi里的普通函数指针pointer 为4个字节,但是对象的方法指针是8个字节,由对象指针self(4字节)和函数指针(4字节)组合而成.了解了这句话,将普通的函数指针变成对象的方法指针就不是难事了.这种手段只能用于对象方法只有Sender这一个参数的情况.下面是简单的例子代码. 1 procedure Button2Click(Sender: TObject); //这里是一个普通的函数 2 implementation 3 4 {$R *.DFM} 5 procedure Button2Click(Sender: TObject); 6 begin 7 ShowMessage( 阅读全文
posted @ 2011-07-21 22:53 solokey 阅读(283) 评论(0) 推荐(0)