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

DELPHI 光盘中有一个有一个演示程序名字是 coolstuf。我在这个程序中发现一个有趣的现象。一旦你将第三行工具栏“链接栏”拖动到最顶端，然后再拖回原来的位置，那么工具栏最下方会多出一个大概 40px 的空白区域。这个问题很恶心，我暂时称它作“工具栏错位”。在 google 中搜索，发现也有其他人讨论过此问题。原因大致是：当工具栏高度发生变化后，刷新消息 RBN_HEIGHTCHANGE 发送的时候，高度没被正确计算。因此它在执行 AdjustSize 时就出现了偏差，而导致了错位。

我没找到现成的解决方案，于是只好自己动手寻找突破口。我发现这个问题只有在当某个工具栏设置过 FixedSize = True 后才出现。于是想到了这样一个办法，就是在接受到 RBN_HEIGHTCHANGE 后，先将所有工具栏都设置成 FixedSize = False。这样的话高度计算就正确了。

好了，我们开始着手修改 ComCtrls.pas 了。

1. 找到 procedure TCoolBar.CNNotify(var Message: TWMNotify);
2. 使用如下代码：
case Message.NMHdr^.code of
RBN_HEIGHTCHANGE:
begin
(* Moved to WMSIZE(...)
if IsAutoSized and (ComponentState * [csLoading, csDestroying] = []) then
begin
ReadBands;
BeginUpdate;
try
if AutoSize then AdjustSize;
finally
EndUpdate;
end;
end
else if IsBackgroundDirty then Invalidate;
*)
msgFromHEIGHTCHANGE := True;
PostMessage(Handle, WM_SIZE, Handle, Longint(@Message));
end;

3. 找到 procedure TCoolBar.WMSize(var Message: TWMSize);
4. 替换成如下代码：
var
msgFromHEIGHTCHANGE: boolean;

procedure TmxCoolBar.WMSize(var Message: TWMSize);
var
I: Integer;
BandInfo: TReBarBandInfo;
begin
inherited;

if msgFromHEIGHTCHANGE then
begin
msgFromHEIGHTCHANGE := False;

if IsAutoSized and (ComponentState * [csLoading, csDestroying] = []) then
begin
for I := 0 to Bands.Count - 1 do
if Bands[I].FixedSize then
begin
FillChar(BandInfo, SizeOfReBarBandInfo, 0);
BandInfo.cbSize := SizeOfReBarBandInfo;
BandInfo.fMask := RBBIM_STYLE;
Perform(RB_GETBANDINFO, Bands[I].FID and IDMask, Integer(@BandInfo));
BandInfo.fStyle := BandInfo.fStyle or 0;
Perform(RB_SETBANDINFO, Bands[I].FID and IDMask, Integer(@BandInfo));
end;

ReadBands;
BeginUpdate;
try
if AutoSize then AdjustSize;
finally
EndUpdate;
end;
end
else if IsBackgroundDirty then Invalidate;
end;
end;

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

如果哪位有更好的方法，希望可以在此指点。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有