http://vir.jxstnu.edu.cn/xieyunc/index.php zh-cn http://vir.jxstnu.edu.cn/xieyunc/read.php?290 xieyunc <xieyunc@jxstnu.cn> Tue, 20 Jul 2010 05:16:23 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?290

另附安装过程中出现 File Not found 'DesignIntf.dcu'和File Not found 'Proxies.dcu'在Delphi 7~2007下的解决方法：
1、File Not found 'DesignIntf.dcu'在Delphi 7~2007下的解决方法：
在Library中加入$(BDS)\Lib\ToolsAPI 的搜索路径。

2、File Not found 'Proxies.dcu'在Delphi 7~2007下的解决方法：
把uses DsgnIntf 改为 uses DesignIntf，并且在Package Requires列表中加入DesignIDE.dcp，该文件在$(BDS)\Lib目录下。
点击这里下载文件 ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?289 xieyunc <xieyunc@jxstnu.cn> Fri, 16 Jul 2010 14:43:35 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?289 在Library中加入$(BDS)\Lib\ToolsAPI 的搜索路径。

2、File Not found 'Proxies.dcu'在Delphi 7~2007下的解决方法：
把uses DsgnIntf 改为 uses DesignIntf，并且在Package Requires列表中加入DesignIDE.dcp，该文件在$(BDS)\Lib目录下。
]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?287 xieyunc <xieyunc@jxstnu.cn> Sat, 29 May 2010 03:30:00 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?287 http://www.anqn.com/dev/delphi/2009-07-17/a09113204.shtml ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?286 xieyunc <xieyunc@jxstnu.cn> Sat, 29 May 2010 03:11:06 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?286 var          X,   Y:   Integer;       //   X   and   Y   整数类型          P:   ^Integer;           //   P   指向整数类型的指针 begin          X   :=   17;               //   给   X   赋值          P   :=   @X;              //   把   x的地址赋给p          Y   :=   P^;              //   取出p所指向的数值赋给y end;
第二行定义了两个变量X,y.   第三行声明了p是指向整数类型的指针;意味着p能够指向x或者y的地址.第五行赋给x值,第六行把x的地址赋给p.最后通过p指向的变量赋值给y.此时,x和y有相同的值.

操作符@用来取出变量的地址,也可以取出过程和函数的地址.而符号^有两个目标,当它出现在类型定义的前面时如 ^typename 表示指向这种类型的指针;当它出现在指针变量后边时   如 point^ 返回指针指向的变量的值;

理解指针比较容易理解面向对象的pascal语言,因为指针经常在幕后操作.任何要求动态分配大的内存空间的类型可以用指针类型.例如,long-string变量,实际在使用指针进行操作.另外一些高级的编程技术需要使用指针类型.有时指针是适应object   pascal严格的类型限制的唯一方法.同过一个通用的指针类型,通过类型转换成不同的指针类型,如下面的例子:
type     PInteger   =   ^Integer; var     R:   Single;     I:   Integer;     P:   Pointer; //通用的指针     PI:   PInteger; begin     P   :=   @R; //取出R的内存地址     PI  :=   PInteger(P); //把通用类型转换成指向整数类型的指针     I   :=   PI^; end;
注意：由于实数和整数的存储格式不同.这种赋值只是把原始的二进制数据从R拷贝到I,而不进行转换，故I的值和R的值是不相同的.

保留字nil是一个特殊的常量可以赋给任何指针类型,当nil赋給一个指针时,指针什么也不指向,是一个空指针.
@操作符返回变量的内存中的存储地址,或者是过程\函数\方法;

1.如果变量,@X返回的是x的地址。如果编译选项{$T-}没有打开,着返回的事一个通用的指针,如果编译选项打开了,着返回的是x的类型对应的指针.

2.如果是例程(过程\函数),@F返回的是F的入口点，@F的类型是一个指针。

3.当@用在类的方法中时,则方法的名称必须有类名,例如@TMyclass.Dosomething指针指向TMyclass的dosomething方法。

当一个过程变量在赋值语句的左边时，编译器期望一个过程值在赋值语句的右边。这种赋值使得左边的变量可以指向右边定义的过程或者函数入口点。换句话说，可以通过该变量来引用声明的过程或者函数，可以直接使用参数的引用。
var     F:   function(X:   Integer):   Integer;     I:   Integer; function   SomeFunction(X:   Integer):   Integer;   ... F   :=   SomeFunction;     //   给f赋值 I   :=   F(4);                   //   调用所指向的函数
在赋值语句中，左边变量的类型决定了右边的过程或者方法指针解释。
var     F,   G:   function:   Integer;     I:   Integer; function   SomeFunction:   Integer; begin   //... end;   //... F   :=  SomeFunction;         //   给f赋值 G   :=   F;                          //   把F的值拷贝给G I   :=   G;                          //   调用函数
第一句获得函数的入口，第二句将指针复制，第三句获得函数的返回值。

有时候还可以这样使用
if   F   =   MyFunction   then   ...;
在这里，F的出现导致一个函数调用；编译器调用F指向的函数，然后调用Myfunction，比较结果。这个规则是无论何时一个过程变量（procedural   variable）出现在一个表达式中，它表示调用所指向的函数或者过程。有时F指向一个过程（没有返回值），或者f指向一个需要参数的函数，则前面的语句会产生一个编译错误。要比较F和Myfunction需要用
if   @F   =   @MyFunction   then   ...;
@F把F转换成一个包含地址的无类型的指针变量,@myfunction返回myfunction的地址。获得一个过程变量的内存地址使用@@。例如，@@F返回F的地址。

@操作符通常把一个无类型的指针值赋给一个过程变量，例如：
var   StrComp:   function(Str1,   Str2:   PChar):   Integer;
  ...
@StrComp   :=   GetProcAddress(KernelHandle,   'lstrcmpi ');
调用GetProcAddres函数,用strcomp指向这个值任何过程变量可以赋成nil，表示指证什么也不指向。但是试图调用一个nil值的过程变量导致一个错误，为了测试一个过程变量是否可以赋值，用标准的赋值函数Assigned
if   Assigned(OnClick)   then   OnClick(X);
]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?277 xieyunc <xieyunc@jxstnu.cn> Tue, 22 Dec 2009 10:01:15 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?277 １、FastMM
主页：http://fastmm.sf.net Delphi 2006 中一个重要的更新就是使用开源内存管理器 FastMM 替调了使用了 N 年的老内存管理器。

FastMM 在外国 Delphi 社区非常有名，其主要目的就是重新实现一个高效、安全、稳定的内存管理器（Borland 的内存管理器问题多多，如 Dll 和 Exe 间无法共享，多线程下效率底－－一些情况下甚至于低一个数量级！），在代号为 Dexter 的 Delphi 2006 没 release 之前已经听李维大肆鼓吹说 Dexter 如何出色，还在 CSDN 上说他 Demo 证明 FastMM 在 Delphi 和 BCB
下能提高 NNN% 的效率！
相对旧内存管理器，FastMM 有诸多的优点：

a、彻底实现了 Borland 的内存管理器，可以完全取代现有的内存管理器（“取代”就是第一个 uses FastMM4，that is all ...） b、实现了内存管理器共享机制，Exe 和 Dll 间共享内存管理器不需要任何 Dll 支持 c、集成了内存泄漏检测功能 d、充分兼容现有的代码、Delphi 旧内存管理器模式 e、为了加速 Delphi IDE（如 Delphi 5/6/7、Delphi 2005）的启动速度、管理内存占用等，他提供了 BorlndMM.dll 的替代，直接替换 Bin 中的 Dll 即可！

２、FastCode
主页：http://fastcode.sf.net 国外一个非常知名的delphi项目，是一个高效的可代替delphi的rtl的函数库，里面的函数
大多都是用汇编写成的，Delphi2006中就有很多代码就是参考了fastcode（或者直接拷贝过去）。 它就特点就是一个字：快！

３、VirtualTreeview
主页：http://www.delphi-gems.com 最强大的树形控件，到底有多强，自已去体会吧！ 这个控件也是
Delphi2006的IDE使用的控件之一（里面的所有树形相关控件都是用的这个），Delphi2006之所以速度快，很大程序上也有这个控件的一部分功劳！

４、graphics32
主页：http://www.graphics32.org Graphics32图像控件是专门用于Windows Bitmap快速绘脊辜及函式库，能够轻易制作半透明视觉效果，可以作出图层效果，缩放，Alpha混合，角度旋转等多种图像效果。 带有六个控件：TPaintBox32, TImage32, TBitmap32List, TRangeBar, TGaugeBar, TImgView32.

５、GraphicEx
主页：http://www.delphi-gems.com Delphi的图形增强控件，为Delphi增加数十种图形格式的支持

TIFF images (*.tif; *.tiff), extended base line implementation
1..16 bits per sample
indexed, grayscale, RGB(A), CMYK, L*a*b*
uncompressed, packed bits, LZW, CCITT T.4, Thunderscan, Deflate, new style JPEG
GFI fax images (*.fax), uses TTIFFGraphic to read
SGI images (*.bw, *.rgb, *.rgba, *.sgi)
1..16 bits per sample
indexed, grayscale, RGB(A)
uncompressed, RLE
Autodesk images files (*.cel; *.pic) old style only
8 bits per sample, indexed and uncompressed
Truevision images (*.tga; *.vst; *.icb; *.vda; *.win), write support included
5 and 8 bits per sample
grayscale, indexed, 15 bits RGB (555), 24 bits RGB(A)(888)
uncompressed, RLE
ZSoft Paintbrush images (*.pcx, *.pcc; *.scr)
1..8 bits per sample
grayscale, indexed, RGB
uncompressed, RLE
Kodak Photo-CD images (*.pcd)
8 bits per sample in YCbCr in any resolution (192 x 128 up to 6144 x 4096)
Portable pixel/gray map images (*.ppm, *.pgm, *.pbm)
1 and 8 bits per sample
grayscale, indexed, RGB uncompressed
Dr. Halo images (*.cut, *.pal)
8 bits per sample indexed, RLE compressed
CompuServe images (*.gif)
1, 4, 8 bits per sample indexed, LZW compressed
SGI Alias/Wavefront images (*.rla, *.rpf)
8 bits per sample RGB(A), RLE compressed
Standard Windows bitmap images (*.bmp, *.rle, *.dib)
Photoshop images (*.psd, *.pdd)
1, 8, 16 bits per sample
indexed, RGB, CMYK, CIE L*a*b*
uncompressed and packed bits
Paintshop Pro images (*.psp)
1, 4, 8 bits per sample
indexed, grayscale, RGB
uncompressed, RLE and LZ77
single-layered files only!
Portable network graphic images (*.png)
1, 2, 4, 8, 16 bits per sample
indexed, grayscale alpha, RGB(A), LZ77 compressd

６、Toolbar 2000
主页：http://www.jrsoftware.org/ 强大的工具栏控件，delphi自带的Toolbar和它一比简直就是鸡肋！

７、CoolTrayIcon
主页：http://subsimple.com/delphi.asp
CoolTrayIcon：在任务栏放置图标的控件，是同类空间中功能最为完善和强大的。
1、支持动态图标
2、交互式气球样式的提示框
3、支持bitmaps到icons的转换
4、支持设计状态预览
5、提供继承的TextTrayIcon可以让你直接显示Text文本
6、8个代码例子1个exe例子。

它的网站还有其它优秀资源若干！　　

８、PicShow
主页：www.delphiarea.com TPicShow是一套图形平滑特效控制组件，包含150多种特效。 TDBPicShow是数据感知的TPicShow组件。

９、simplegraph
主页：www.delphiarea.com 一个简单易用的开源矢量控件,比较适合做工作流和其它一些简单的需要矢量图形的场合.

１０.EssModel
主页：http://essmodel.sourceforge.net/index.html 将代码转换为UML图形的工具，支持Delphi和Java

１１.GDI+ Plus
HomePage: http://www.progdigy.com/modules.php?name=gdiplus

１２JVCL、JCL
主页：http://jvcl.sf.net http://jcl.sf.net

JVCL JEDI-VCL 是开放源码的 Delphi 控件库，有 300 多个控件。很多知名的控件 Rxlib/Ralib/DockPresident等等都加入了JVCL的队伍，作为开放源码项目，这些控件附带源码，而说有原码采用相同的编码标准 (Coding standard)，保持了程序格式的统一。另外，这有300 多个控件的控件库使用 Mozilla Public Licence("MPL") 。 Delphi 程序员如果需要什么控件，建议先去 JVCL http://jvcl.sourceforge.net 找找，说不定已经有现成的可以用了。

JCL：大量的函数库让人爱不释手，基本你用的函数在这里都能找到！

１３TMPHexEditor
主页：http://www.mirkes.de/en/delphi/vcls/hexedit.php

优秀的十六进制编辑控件

１４SynEdit
主页：http://synedit.sourceforge.net 最好的代码编辑控件，支持语法高亮显示，品质超过所有同类的商业控件！

１５LOG4J
主页：http://log4delphi.sourceforge.net/

用过java的人，应该很熟悉log4j吧？

What is Log4Delphi? Log4Delphi is an Open Source project that aims to produce a high quality and usable

logging suite for Borland's Delphi based on the Log4J package from the Apache

Software Foundation.

The main goals of the project are:

Simplicity. Simplicity should drive everything, the suite should be simple to

understand and simple to use. Loosely based on Log4J. The Log4J package is a mature logging package for the Java

Platform. Log4Delphi is based on that package in such a way that those who know and

understand Log4J will easily pick up and learn Log4Delphi. Finally, Log4Delphi should be flexible enough to easily integrate into new and

existing Delphi projects, by following standard Delphi practices. Those interested in the Log4J package can find more information here.

１５ DUnit Xtreme testing for Delphi 单元测试 EurekaLog 异常 DelForEX 代码排版

１６ 还有dspack，N多视频相关软件都是用dspack写的。Asphyre免费开源的delphi游戏引擎，也是用directx的。

１７ zeoslib（免费的数据库引擎）
主页：http://zeoslib.sf.net
不但可以访问免费的小型的数据库如：mysql,postgresql,interbase,firebird,而且mssql,db2,oracle,sybase 也同样支持！
更愉快的： 访问任何数据库都是统一的控件，只要选择不同的Protocol就可以了

１８ 开源的xml读写控件
1.XMLParser http://www.destructor.de/
2.omnixml http://www.omnixml.com/
3.XDOM http://www.philo.de/xml/  功能一个比一个强，就看你喜欢哪一个了，都不需要dll

１９ Tbx
主页：http://www.g32.org/tbx/ http://www.rmklever.com/delphitbx.html
tbx是一套非常优秀的ToolBar2000的界面增强控件，虽然比devexpress功能稍弱，但是界面上却比它更为漂亮，而且是免费的

２０ 用于支持多语言的VCL孔件组 TntWare Delphi Unicode Controls
主页：http://www.tntware.com/delphicontrols/unicode/

２１ Fundamentals
主页：http://fundementals.sourceforge.net/
Delphi Fundamentals是一套综合的Delphi代码模块。包括用于处理Unicode,字符串，日期结构，Socket 组件和数学运算的类库

２２ Pascal Script 3.0 (原ifps III)
主页：http://www.remobjects.com

Innerfuse Pascal Script 3 是一款免费的用Delphi编写的脚本引擎，IFPS允许你在程序运行时使用Object Pascal语言，是一套能够编译到exe文件的单元，使用脚本引擎的好处：能够让你的程序让用户的自定义而不需要重新编译，你能够发布升级程序只需要发布脚本文件即可。

品质优秀，即使和商业的脚本引擎相比是有过之而无不及（如fastscript，tms script）曾有人评价说：它是除了delphi以外最强大的，虽然有些夸张，但也从某些方面印证了它的强大！

２３ TDelphiWebScript
主页：http://www.dwscript.com/

TDelphiWebScript(DWS)提供类似Delphi中Pascal语言的Script语言，可用于编写Web服务器端的cgi、 ISAPI、NSAPI应用程序，其包含的TdwsFunc控件能够为DelphiWebScript增添新函数。

DelphiWebScript语言和 PERL相比易读易学，可以象PHP或ASP一样被综合在HTML代码中

２４ turbopower

主页：http://www.turbopower.com/ 曾经最优秀的商业控件，今天的开源产品

Abbrevia：数据压缩控件

Async Professional：最好的通讯控件 Async Professional CLX

B-Tree Filer：看名字就知道是做什么的了

Essentials：漂亮的界面开发控件

FlashFiler：优秀的数据库引擎

Internet Professional： 开发Internet的利器

LockBox：加密控件，支持多种加密算法

OfficePartner：Office自动化的对象的封装

OnGuard： 实现软件的Demo版设置,过期等

Orpheus：完成类似Outlook功能的控件

ShellShock：Windows Shell的功能封装

SysTools：优秀的函数库，甚至包含二维条码控件 SysTools for Kylix

Visual PlanIt：日程,日历控件

XML Partner：这个就不用说了

２５ 推荐了那么多的国外资源，现在来介绍一下国内的精品，看过你就会知道，国内的Delphi人员的开发水平丝毫不比国外逊色！

1.CnPack
主页：http://www.cnpack.org CnPack 组件包是一个涵盖不可视工具组件、界面控件、网络通讯组件、多语言处理等多个方面的 Delphi/C++ Builder 组件包。

2.　CnWizards IDE 专家包是一组集成在 Delphi/C++ Builder 的 IDE 中，用于增强 IDE 功能、提高 IDE 的可用性及开发效率的工具

3.AAFont 平滑特效字体控件包 http://www.cnpack.org/showdetail.php?id=152〈=zh-cn CnPack 开发组管理员 周劲羽 个人作品。 平滑特效字体控件包是一个基于平滑（Anti-aliasing）和特效（Effect）字体技术的控件包，支持透明、半透明、阴影、模糊、渐变色、字体纹理、噪声、轮廓字等特效。 该控件包为开放源码的免费控件包！

4.应用程序病毒免疫器 http://www.cnpack.org/showdetail.php?id=151〈=zh-cn CnPack 开发组管理员 与月共舞 个人作品。 用于给可执行文件增加一个病毒免疫头，当文件被非法修改后，允许自动进行文件修复。 该软件为开放源码的自由软件！

5.DockPresident 停靠窗口控件包 http://www.cnpack.org/showdetail.php?id=153〈=zh-cn CnPack 开发组成员 鲁小班 个人作品。 功能强大的停靠窗口开发控件包，支持多种停靠效果，使用简便.

6.JediEdit 绝地程序编辑器 http://jediedit.sf.net

7.DGL：Delphi版的stl实现 http://dev.cq118.com/web

8.数学函数动态编译器TCompile类 http://www.tomore.com/1/2613.html

２６ EasyGrid 优秀的国产表格控件

http://www.2ccc.com/article.asp?articleid=773

２７ http://www.freebyte.com/programm ... phiunicodelibraries ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?275 xieyunc <xieyunc@jxstnu.cn> Sun, 25 Oct 2009 02:54:31 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?275
代码如下：
function DelDirectory(const Source: string): boolean; var     fo: TSHFILEOPSTRUCT; begin     FillChar(fo, SizeOf(fo), 0);     with fo do     begin       Wnd    := 0;       wFunc := FO_DELETE;       pFrom := PChar(Source + #0);       pTo    := #0#0;       fFlags := FOF_NOCONFIRMATION + FOF_SILENT;     end;     Result := (SHFileOperation(fo) = 0); end; ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?274 xieyunc <xieyunc@jxstnu.cn> Sat, 24 Oct 2009 13:58:33 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?274 http://blog.csdn.net/Rzhghost/archive/2007/05/22/1620235.aspx
表格区填满表格线的问题，修改如下(经博主实践，①内容在EHLib 3.6版本，②内容在EHLib 4.1.4和4.2.16版本中均验证通过)：
①3.6版本中修改DBGridEh.pas单元的UpdateRowCount过程：
procedure TCustomDBGridEh.UpdateRowCount; var BetweenRowHeight, t: Integer; OldRowCount, OccupiedHeight, VisibleDataRowCount, NewRowCount: Integer;   //。。。。。。。。。。。。。。 begin   //............................... with FDataLink do    if not Active or (RecordCount = 0) or not HandleAllocated then    begin      //.................    end else    begin      VisibleDataRowCount := (ClientHeight - OccupiedHeight {- LineHeight}) div DefaultLineRowHeight;      if VisibleDataRowCount <= 0 then VisibleDataRowCount := 1;      FDataLink.BufferCount := VisibleDataRowCount;      if FFooterRowCount = 0 then  //增加的一个条件，用户可以用FooterRowCount值来决定是否填满表格线        VisibleDataRowCount := FDataLink.RecordCount;      Inc(OccupiedHeight, DefaultLineRowHeight * VisibleDataRowCount);      NewRowCount := VisibleDataRowCount + TopDataOffset;      if FooterRowCount > 0 then      begin        NewRowCount := NewRowCount + FooterRowCount + 1;        SetRowCount(NewRowCount);        BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};        if BetweenRowHeight < 0 then BetweenRowHeight := 0;        //RowHeights[TopDataOffset + VisibleDataRowCount] := BetweenRowHeight;//原代码行        RowHeights[TopDataOffset + VisibleDataRowCount] := 0;//修改后的代码行        //把多余的不足一行的高度加在最后一行,增加下面一行代码              RowHeights[FTitleOffset + VisibleDataRowCount] := DefaultRowHeight+BetweenRowHeight;      end else        SetRowCount(NewRowCount);      UpdateActive;    end; if OldRowCount <> RowCount then Invalidate; end;

②4.14版本中也是修改DBGridEh.pas单元的UpdateRowCount过程：
procedure TCustomDBGridEh.UpdateRowCount; var BetweenRowHeight,{恢复被注释掉的变量BetweenRowHeight} t: Integer; OldRowCount, OccupiedHeight, VisibleDataRowCount, NewRowCount: Integer; 。。。。。。。。。。。。。 begin ........................... with FDataLink do    if not Active or (RecordCount = 0) or not HandleAllocated then    begin      //MoveColRow(Col, TitleOffset, False, False);      SetRowCount(1 + TopDataOffset);      ContraRowCount := FooterRowCount;      //恢复原代码中被注释掉的语句行      (*========================================================================*)      SetRowCount(1 + TopDataOffset);      Inc(OccupiedHeight, DefaultLineRowHeight);      if HandleAllocated then      begin        if (FooterRowCount > 0) then        begin          SetRowCount(RowCount + FooterRowCount + 1);          BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};          if BetweenRowHeight < 0 then BetweenRowHeight := 0;          RowHeights[TopDataOffset + 1] := BetweenRowHeight;        end;      end;      (*========================================================================*)    end else    begin      VisibleDataRowCount := (ClientHeight - OccupiedHeight {- LineHeight}) div DefaultLineRowHeight;      if VisibleDataRowCount <= 0 then VisibleDataRowCount := 1;      FDataLink.BufferCount := VisibleDataRowCount;      if FFooterRowCount = 0 then  //增加的一个条件，用户可以用FooterRowCount值来决定是否填满表格线            VisibleDataRowCount := FDataLink.RecordCount;      Inc(OccupiedHeight, DefaultLineRowHeight * VisibleDataRowCount);      NewRowCount := VisibleDataRowCount + TopDataOffset;      if FooterRowCount > 0 then      begin        SetRowCount(NewRowCount);        ContraRowCount := FooterRowCount;        //恢复原代码中注释掉的部分        (*========================================================================*)        NewRowCount := NewRowCount + FooterRowCount + 1;        SetRowCount(NewRowCount);        BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};        if BetweenRowHeight < 0 then BetweenRowHeight := 0;        //RowHeights[TopDataOffset + VisibleDataRowCount] := BetweenRowHeight;//这一行仍然不要，改成下面的代码        (*========================================================================*)        RowHeights[TopDataOffset + VisibleDataRowCount] := 0;//修改后的代码行        //把多余的不足一行的高度加在最后一行,增加下面一行代码              RowHeights[FTitleOffset + VisibleDataRowCount] := DefaultRowHeight+BetweenRowHeight;              end else        SetRowCount(NewRowCount);      UpdateActive;    end; if OldRowCount <> RowCount then Invalidate; end;

Tags - dbgrideh , 表格区填满 ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?273 xieyunc <xieyunc@jxstnu.cn> Sat, 24 Oct 2009 13:13:15 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?273 这是在一个ActionList中的某一Action的OnExecute事件代码。
procedure TDM.act_LocateExecute(Sender: TObject); var   myPopupMenu:TPopupMenu;   MyDBGridEH:TDBGridEh; begin   //ShowMessage(TMenuItem(TAction(Sender).ActionComponent).GetParentComponent.Name);   if (TAction(Sender).ActionComponent).GetParentComponent is TPopupMenu then     myPopupMenu := (TAction(Sender).ActionComponent).GetParentComponent as TPopupMenu   else     Exit;   //ShowMessage(MyPopupMenu.PopupComponent.Name);   if (MyPopupMenu.PopupComponent is TDBGridEh) then   begin     MyDBGridEH := TDBGridEh(MyPopupMenu.PopupComponent);     MyDBGridEH.SetFocus;     keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);       //按下Ctrl键     keybd_event(ord('F'), MapVirtualKey(ord('F'), 0), 0, 0);                    //按下F键     keybd_event(ord('F'), MapVirtualKey(ord('F'), 0), KEYEVENTF_KEYUP, 0);    //放开F键     keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); //放开Ctrl键   end; end;

Tags - keybd event , dbgrideh , ctrl f , 查找 , 组合键 , 消息 , 按键 ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?271 xieyunc <xieyunc@jxstnu.cn> Sat, 24 Oct 2009 03:17:18 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?271 一、DBGridEH点击标题自动排序的设定
①按DataSet源类型的不同，在工程中引用EhLib相应排序单元文件，如uses EhLibAdo，uses EhLibCDS，uses EhLibBDE、uses EhLibDBX等，我一般都会在一个公共文件中进行引用，这样就无须在所有用到DBGridEH的单元中都城加入引用语句了，如在DataModule之类的公共窗体中uses EhLibXXX;一次就行了。
②设置DBGridEH的OptionsEH.dghAutoSortMarking := True;如果希望多列排序还可设置OptionsEH.dghMultiSortMarking := True;

③如果你的DataSet源是TClientDataSet，且只想对已下载到本地的数据进行排序的话，则请设置DBGridEH的SortLocal := True;

④设置DBGridEH中所有希望进行排序的列标题的按钮属性为True，即Columns[i].Title.TitleButton := True;字段类型为LookUp类型或计算字段不能排序，故这类字段 列的TitleButton应设置为False，否则点击标题进行排序时会发生异常。

至此，点击DBGridEH标题就可以自动排序了，多列排序需按下Ctrl键。
但是有一个小 BUG（我使用的是EhLibCDS），那就是标题列上的排序图标和排序结果不相符，当升序排列时出现的不是向上的箭头，而是向下的箭头，降序则相反。这应该是EhLib中的设置标题重画方法时赋反了一个逻辑标志值。如何修正它呢？
二、排序标志相反BUG的修正
方法一、最佳方法，找到问题源，修正它！可惜，我没找到。
方法二、修改DBGridEH.res，把两个bmp图标文件对换一下，有点麻烦。
方法三、大致翻阅一下DBGridEH源码，发现排序图标文件标志是由两个常量定义的，
const
...
  bmSmDown = 'DBSMDOWNEH';  
  bmSmUp = 'DBSMUPEH';
...
这就好办了，在此对换一下，又安全又快捷
  //bmSmDown = 'DBSMDOWNEH';  //这是原始内容
  //bmSmUp = 'DBSMUPEH';      //这是原始内容
  bmSmDown = 'DBSMUPEH';      // Modified by 小宇飞刀 2009-10-24 10:31:26
  bmSmUp = 'DBSMDOWNEH';      // Modified by 小宇飞刀 2009-10-24 10:31:26

至此，一切OK！
  
Tags - dbgrideh , 自动排序 , 图标 , bug ]]> http://vir.jxstnu.edu.cn/xieyunc/read.php?270 xieyunc <xieyunc@jxstnu.cn> Wed, 23 Sep 2009 11:48:19 +0000 http://vir.jxstnu.edu.cn/xieyunc/read.php?270 可使用HTTPRIO.HTTPWebNode.OnPostingData 与 OnReceivingData 两个事件。
procedure TForm1.HTTPRIO1HTTPWebNode1PostingData(Sent, Total: Integer); begin   Gauge1.MinValue:=0;   Gauge1.MaxValue:=Total;   Gauge1.Progress:=Sent;   Refresh;; end; procedure TForm1.HTTPRIO1HTTPWebNode1ReceivingData(Read, Total: Integer); begin   Gauge2.MinValue:=0;   Gauge2.MaxValue:=Total;   Gauge2.Progress:=Read;   Refresh;; end;
默认是32K为一个单位
Tags - web , service , 进度条 ]]>