关于Ehlib的ReadOnly小BUG修正。

原创 2004年11月02日 09:27:00
Ehlib本来是一个非常不错的控件,但是TDBEditEh的ReadOnly有一些问题,在后续版本之间也尚未修正。经追踪源代码后,发现
procedure TCustomDBEditEh.CMEnter(var Message: TCMEnter);
begin
  SetFocused(True);
  inherited;
  if AutoSelect and not (csLButtonDown in ControlState) then SelectAll;
  if SysLocale.FarEast and FDataLink.CanModify then
    SetControlReadOnly(False ); //regular_smile.gif有问题,关联数据集后将ReadOnly改为True总是可以为修
                                                //改,因此这里出现问。
end;

//再查看Readonly属性声明,域变量FReadOnly 有问题,将改为即可。
  SetControlReadOnly(FReadOnly);  //将此函数修改
//更早一点的版本我不知道,但是,2.5版本以来就有这个问题,按照此方法可以解决、、ReadOnly问题。
编译包文(Ehlib7.0,或Ehlib6.0,动态包)件即可。如果你用包方式发布,还将编译过的包覆盖原来的BPL文件即可。

另外,为了支持D6,D7特有的扁平风格界面。在单元DBCtrlsEh里的每一个TDBEDITEH,TDBDateTimeEdithEh等等编辑控件加入,
   property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;

我们在设计期可以设置 BorderStype := bsNone; BevelKind  :=bkTile;获得扁平风格;可为你的程序编辑控件添加了不少的风格。

别忘了编译包文件。

修改bug的一个小故事

今天在网站上看见一个故事,很有趣,但也值得思考:那还是80年代初期,我爸爸在一家存储设备公司工作,这个公司现在已经不存在了,它生产磁带机和驱动这些磁带高速运转的气动系统 —— 这是那个时代的产物。他们...
  • qq_25673113
  • qq_25673113
  • 2016年09月09日 15:23
  • 206

EhLib控件的使用说明

EhLib控件的使用说明 一. DBGridEh组件: 1.      属性。       2.      使用统计栏功能 (1)   设置统计栏行数,将DBGridEh.Foot...
  • beyondqd
  • beyondqd
  • 2012年05月31日 17:54
  • 3218

uva658

题目大意: 首先给出n和m,表示有n个bug和m个补丁。一开始存在n个bug,用1表示一个bug存在0表示不存在,所以一开始就是n个1,我们的目的是要消除所有的bug,所以目标状态就是n个0。对于每...
  • vv494049661
  • vv494049661
  • 2016年03月10日 18:41
  • 558

ehlib导出EXCEL 所见即所得

ehlib导出EXCEL 所见即所得
  • n29882942
  • n29882942
  • 2010年12月25日 17:36
  • 866

Proxool 0.9.1 srping配置的BUG修正

Proxool 0.9.1 spring配置BUG修正
  • applebomb
  • applebomb
  • 2011年01月03日 14:56
  • 2608

关于TabControl控件的bug修正

  当TabControl控件的tabPages属性有很多Tabpage时,明明你自定义好了排放顺序,结果一运行,惨了,顺序乱套了,你再自定义一下顺序,兄弟,这不管用的。以下方法算是能解决这问题:  ...
  • wulong1105
  • wulong1105
  • 2008年10月25日 14:27
  • 251

UVA658 It's not a Bug, it's a Feature!

题解:这折磨人的题目…补丁在修正BUG时,有时也会引入新的BUG,假定有n(n...
  • qq_21057881
  • qq_21057881
  • 2015年12月19日 21:34
  • 613

一个小程序的小BUG

先看程序: #include #include #define N 1000000 //#define M 10000 #define M 1000000 void main(void) { ...
  • yihualuomeng
  • yihualuomeng
  • 2013年12月13日 16:52
  • 767

微信小程序bug总结, 不定期更新

上传文件, 回应的json需要手动JSON.parsewx.hideLoading();看起来是个同步的api, 不过有时需要异步调用, 如:setTimeout(() => { wx.hideL...
  • butterfly5211314
  • butterfly5211314
  • 2017年10月24日 12:38
  • 657

EhLib V5.2.84 安装方法

安装方法: (1)在C:/Program Files/Borland/Delphi7下, 新建目录Ehlib (2)将Common和Delphi7中的目录的文件拷贝到上面的这个目录...
  • duck04551
  • duck04551
  • 2012年02月13日 13:27
  • 3208
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于Ehlib的ReadOnly小BUG修正。
举报原因:
原因补充:

(最多只允许输入30个字)