由演示程序 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 里面定义一个环境变量,这样以后你只要给其它工程的路径里面添加这个环境变量,这些工程都可以使用你修改过的代码了。至于修改源码的一些方法和技巧,请参考 如何访问私有成员变量和函数

微信小程序开发中遇到的问题。总结

开发遇到问题: 1.image设置图片的时候图片在开发工具上面显示,可是运行到手机上面不显示。仔细查看是不是先图片的时候。设置路径不小心在后面加了空格。 例如: 正确:手机上显示 错误:手机上不...
  • liu13722785488
  • liu13722785488
  • 2017年02月10日 14:49
  • 2014

微信小程序开发常见问题FAQ之八

微信小程序遇到问题怎么办?遇到微信小程序方面的问题,该去哪里提问呢?一起来看看第九程序为您整理的微信开发者社区开发常见问题FAQ吧~在文中,您可使用「CTRL+F」,输入关键词来快速找寻您需要的答案。...
  • qq_38125123
  • qq_38125123
  • 2017年04月26日 14:25
  • 350

如何:向 Windows 窗体应用程序添加工具栏

您可以轻松地向应用程序添加工具栏,方法是添加一个 ToolStrip 控件,然后再向此工具栏添加一些按钮。您可以添加单独的 ToolStripButton 控件,也可以从一组控件中进行选择(如 Too...
  • tyl314
  • tyl314
  • 2013年04月13日 19:51
  • 1971

三色旗问题的解决

三色旗问题 1 问题由来          三色旗的问题最早由E.W.Dijkstra所提出,他所使用的用语为DutchNation Flag(Dijkstra为荷兰人),而多数的作者则使用Thr...
  • zhuhuangtianzi
  • zhuhuangtianzi
  • 2014年09月23日 04:00
  • 1583

读者-写者问题思想

读者-写者问题是一个经典的并发程序设计问题,是经常出现的一种同步问题。计算机系统中的数据(文件、记录)常被多个进程共享,但其中某些进程可能只要求读数据(称为读者);另一些进程则要求修改数据(称为写者)...
  • metheir
  • metheir
  • 2016年10月19日 22:11
  • 638

[js - 算法可视化] 汉诺塔(Hanoi)演示程序

前段时间偶然看到有个日本人很早之前写了js的多种排序程序,使用js+html实现的排序动画,效果非常好。 受此启发,我决定写几个js的算法动画,第一个就用汉诺塔。 另外在这个程序里面,实现了一点,就是...
  • isea533
  • isea533
  • 2013年08月30日 14:46
  • 6949

蚁群算法的模拟——动画演示

一、蚁群算法介绍          蚁群算法是一种在图中寻找最优路径的机率型算法。因为其算法的依据是局部的最优通过迭代形成全局最优,由于中间过程随机性因素比较多,因此称为机率型算法。算法的设计思想是...
  • wang_dong001
  • wang_dong001
  • 2016年12月27日 11:58
  • 1123

未能加载文件或程序集“”或它的某一个依赖。找到的程序集清单定义与程序集引用不匹配。

“ 未能加载文件或程序集“”或它的某一个依赖。找到的程序集清单定义与程序集引用不匹配。”这个问题似乎是遇到过几次了,程序运行和发布系统时都遇到过。最近做项目又遇到了,下面记录一下:         【...
  • u013046097
  • u013046097
  • 2016年03月30日 14:14
  • 11723

软件项目演示的注意事项

对于软件项目,无论是定制软件,还是成品软件,向客户进行演示均是必不可少的。对于成品软件,如果演示得不好,可能就不可能有后面的实施;对于定制软件,如果演示得结结巴巴,就会影响客户的信心,对你的能力、对你...
  • zt1231010160
  • zt1231010160
  • 2015年05月15日 16:06
  • 795

程序开发中解决问题的思路很重要

今天做的是一个java应用,用maven打包成jar文件,然后把jar文件上传到服务器上,同时lib上相应的包也需要传上去。 因为服务器是linux,所以需要编写shell脚本,一大堆的jar包要添...
  • u011350541
  • u011350541
  • 2015年11月04日 15:29
  • 534
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:由演示程序 coolstuf 而找到的工具栏错位问题
举报原因:
原因补充:

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