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

DELPHI 控件补丁 专栏收录该内容
1 篇文章 0 订阅

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

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值