由演示程序 coolstuf 而找到的工具栏错位问题

原创 2005年02月11日 12:58:00

DELPHI 光盘中有一个浏览器的演示程序 coolstuf。我发现它的奇怪问题:一旦你将第三行工具栏“链接栏”拖动到最顶端,然后再拖回原来的位置,那么工具栏最下方会多出一个大概 40px 的空白区域。这个显然是 TCoolBar 没有封装好的缘故,我暂时称该问题为“工具栏错位”。

我发现如果有 Band 设置过 FixedSize=True,就会出现偏差,没设置过就没有问题。我猜测可能是工具栏高度发生变化后,Band 的高度属性未被真正更新所致。(ReBar 系列控件的细节问题的确很多,难怪到现在 Delphi 都没有给工具栏加上 Chevron 效果。)要解决这个问题,只要在接收到 RBN_HEIGHTCHANGE 消息时,对设置过 FixedSize=True 的 Band 强制更新一次属性即可。反正只是重新更新一次属性,所以也不会带来什么副作用。

具体方法:找到 procedure TCoolBar.CNNotify(var Message: TWMNotify);
将整个函数替换成如下代码即可。

procedure TCoolBar.CNNotify(var Message: TWMNotify);
var
  I: Integer;
  RBBI: TReBarBandInfo;
begin
  
if (Message.NMHdr^.code = RBN_HEIGHTCHANGE) then
    
if IsAutoSized and (ComponentState * [csLoading, csDestroying] = []) then
    
begin
      
//PATCH-BEGIN
      
for I := 0 to Bands.Count - 1 do
        
if Bands[I].FixedSize then
        
begin
          FillChar(RBBI, SizeOfReBarBandInfo, 
0);
          RBBI.cbSize := SizeOfReBarBandInfo;
          RBBI.fMask := RBBIM_STYLE;
          Perform(RB_GETBANDINFO, Bands[I].FID 
and IDMask, Integer(@RBBI));
          Perform(RB_SETBANDINFO, Bands[I].FID 
and IDMask, Integer(@RBBI));
        
end;
      
//PATCH-END
                     
      ReadBands;
      BeginUpdate;
      
try
        
if AutoSize then AdjustSize;
      
finally
        EndUpdate;
      
end;
    
end
    
else if IsBackgroundDirty then
      Invalidate;
end;


好了!大功告成。将修改后的 ComCtrls.pas 复制到 coolstuf 目录下,再次编译文件。这个问题消失了。

此外,对于修改 Delphi 的源文件,我建议把所有修改过的源文件都放在一个新的目录 (例如 PatchedVCLs),然后在 Delphi 里面定义一个环境变量,这样以后你只要给其它工程的路径里面添加这个环境变量,这些工程都可以使用你修改过的代码了。至于修改源码的一些方法和技巧,请参考 如何访问私有成员变量和函数

Axure 8.0由入门到精通课程

Axure 是一个专业的快速原型设计工具,是交互设计师和产品经理必会的一款原型设计工具。Axure可以绘制草图原型、低保真原型以及高保真原型,根据不同的场景和不同的需求绘制不同种类的原型,利用它来快速的创建应用软件的线框图、流程图、原型和规格说明文档,并且同时支持多人协作和版本控制管理,已成为网页设计、APP设计等领域的关键性技术之一。
  • 2016年10月11日 13:34

复数的四则运算(数据结构 实验)

  • 2009年06月11日 09:26
  • 23KB
  • 下载

关于初步接触dataTables处理问题的总结

1、datatables加载数量过多会使显示速度太慢 可以使用分页加载(设置bPaginate为true,iDisplayLength设置列数,bLengthChange可开启下拉菜单选择列数) 2...
  • wei13636075
  • wei13636075
  • 2014-11-18 23:07:10
  • 1353

Android ListView错位问题之背景色错位

  • 2015年09月01日 21:55
  • 167KB
  • 下载

全错位排列问题

问题描述这是一个很经典的数学问题:有一个人写了n封信件,对应n个信封,然而粗心的秘书却把所有信件都装错了信封,那么一共有多少种装错的装法?数学抽象这个问题可抽象为以下一个数学问题:已知一个长度为n的有...
  • u013051851
  • u013051851
  • 2015-11-09 22:50:18
  • 3147

VC++工具栏与状态栏的动态生成

1、工具栏的设置      工具栏资源可以利用Visual C++自带的ToolBar编辑器生成,也可以采用MFC提供的CToolBarCtrl类动态生成。工具栏的生成主要用到CToolBar类的cr...
  • shashawoyao
  • shashawoyao
  • 2011-04-20 19:21:00
  • 1326

iOS UITableview错位的问题

问题描述: 问题1:当一个navigation导航进入到UITabBarController   TabBar里面有多个页面,页面下有tableView,当我进入Tableview的时候,上面两行t...
  • youshaoduo
  • youshaoduo
  • 2017-01-16 16:34:35
  • 9515

Listview图片错位+CheckBox选项错位

  • 2013年11月28日 11:28
  • 1.64MB
  • 下载

计算机组成与设计(二)——指令:计算机指令 (一)

一、 前言:     要计算机服从指挥,就必须用计算机的语言     1. 指令:计算机语言中的基本单词称为指令。          2. 指令集: 一个给定的计算机体系结构所包含的指令集合。  ...
  • u012961566
  • u012961566
  • 2017-12-09 22:00:02
  • 190

大学常见算法的java实现及思考-汉诺塔问题

  • 2013年07月10日 17:55
  • 685B
  • 下载
收藏助手
不良信息举报
您举报文章:由演示程序 coolstuf 而找到的工具栏错位问题
举报原因:
原因补充:

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