Delphi中TComboBox.ItemHeight变更引发Git历史冗余的问题咨询

我维护的某客户Delphi 7应用原本运行正常，近期更新时遇到了一个长期困扰的问题：只要在IDE里打开查看VCL窗体，提交代码时Git就会出现TComboBox控件的ItemHeight字段无意义变更，比如：

-          ItemHeight = 25
+          ItemHeight = 0

或者方向相反：

-          ItemHeight = 0
+          ItemHeight = 19

这些变更完全没有必要——ItemHeight本不应被修改，而且无论提交还是回退这些变更，程序运行表现完全一致。更麻烦的是，变更的时机、位置毫无规律，甚至会出现在从没查看过的TTabSheet页面上的TComboBox控件。我平时只能手动回退这些变更，但数量多的时候特别繁琐。注：我只偶尔修改过TPageControl.ActivePage属性或添加TLabel这类微小操作，没对窗体做实质性修改。

1. 能否避免Git历史中出现此类无意义的冗余变更？ #

有几种可行的解决方法：

• 用Git过滤器自动处理：给.dfm文件配置clean过滤器，提交时自动剔除ItemHeight字段的变更。
  1. 在项目的.git/config（或全局.gitconfig）中添加：

     [filter:delphicombofix]
       clean = sed '/^[ \t]*ItemHeight = [0-9]*$/d'
       smudge = cat
     

  2. 在项目根目录创建或修改.gitattributes文件，添加：

     *.dfm filter=delphicombofix
     

     配置完成后，Git提交时会自动移除.dfm文件中的ItemHeight行，不会把这类冗余变更写入版本历史。
• 批量回退变更：如果不想用过滤器，可通过Git命令精准撤销.dfm中ItemHeight的相关变更：

  git diff -U0 -- *.dfm | grep -E '(^-ItemHeight|^\+ItemHeight)' | git apply -R
  

• 减少触发操作：尽量避免在IDE中频繁切换TPageControl的ActivePage，这类操作可能触发VCL内部的属性计算，意外修改ItemHeight。如果必须切换，操作后手动检查.dfm文件，将ItemHeight改回原值。

2. 这是否是Delphi 7的Bug，且在后续Delphi及VCL版本中已修复？ #

这确实是Delphi 7 VCL的已知Bug。问题根源在于：IDE加载窗体或切换TabSheet时，VCL内部的布局计算逻辑会意外覆盖TComboBox的ItemHeight属性值，但该值在运行时是由字体高度等属性动态决定的，所以修改后不会影响程序运行。

在Delphi 2007及之后的版本中，Embarcadero修复了这个问题，优化了VCL控件的属性持久化逻辑，避免了这类无意义的属性值被写入.dfm文件的情况。

内容的提问来源于stack exchange，提问作者AlainD