delphi – 为什么PC之间的控件缩放不同？

当你打开所有它看起来像这样：

每个箭头都是一个SpeedButton,位于面板的左侧.通过单击按钮,宽度在设计时(打开)的Speedbutton(已关闭)宽度和面板宽度之间切换.设计时面板的宽度存储为常量. show_hide_controls程序处理这个：

procedure TCompose_Main.show_hide_controls (key: string; Button: TSpeedButton; Panel: TPanel; width: Int32);
begin
   if GPA.iKey [key] = 1
      then Panel.Width := width         // show panel,set panel to design width
      else Panel.Width := Button.Width; // hide panel,set with to button width
   Button.Glyph.Assign (nil);
   Images_Left_Right.GetBitmap (GPA.iKey [key],Button.Glyph);
end; // show_hide_controls //

此例程调用如下：

show_hide_controls ('Show Play Controls',// index to panel to show/hide
                    Enlarge_Play,// Speedbutton requesting the enlargement/hide
                    Panel_Play,// Panel to show/hide   
                    cPlayWidth);          // Width of panel when shown

现在有几个用户报告隐藏了部分面板,例如：

操作系统(Windows 7)似乎在扩展方面有一些技巧.我无法复制此错误.有谁知道这里发生了什么？是否有一种巧妙的方式来以独立的方式对此进行编程？

更新正如GDF在他的回答中正确指出的那样,它与字体的缩放(控制面板>显示)有关.这在我的机器上表现得有些奇怪.将其更改为150％会产生轻微影响,而将其更改为125％会产生重大影响.正如您可能已经猜到的那样,我测试了第一个而不是第二个缩放.只有当用户报告从125％缩放到100％时,我才能在我的机器上复制他的错误.

我找不到字体和我遇到的麻烦之间的关系,正如几个家属所建议的那样.我的系统仍然受到Courier(非新),Segoe UI,Tahoma和MS Sans Serif：-D所做的所有测试的影响.可能是间接的,因为控件可能已调整大小以容纳文本.

怎么处理这个？我不知道,我会开始尝试,如果我找到了什么会告诉你.

感谢大家的帮助！