在状态栏中绘制图像在 XE7 版本中不起作用

Question

我的应用程序会在初始化时在状态栏中显示一些信息。 我通过在状态栏上绘制图标（打开和关闭）来显示这一点。 以下代码在 Embarcadero XE3 中运行良好，但在 XE7 版本中不再运行。 该代码不会引发任何异常或错误。 我该如何解决这个问题？

procedure TFormMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
  i: Integer;
begin
  case Panel.Index of
    3:
    begin
      i := ICON_DATABASE_OFF;
      if HasDatabaseConnection() then
        i := ICON_DATABASE;
      ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, i);
    end;
    4:
    begin
      i := ICON_GLOBE_OFF;
      if HasInternetConnection() then
        i := ICON_GLOBE;
      ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, i);
    end;
  end;
end;

在 XE3 中：

更新
（见 cmets）
出现该错误是因为FormMain 的OnResizeEvent。

procedure TFormMain.FormResize(Sender: TObject);
begin
  //StatusBar1.Panels[0].Width := FormMain.Width - 448;
  StatusBar1.Panels[0].Width := ClientWidth - 448;
end;

我调试时显示的值在两个版本中是相同的：
在 XE3 中：
FormMain.Width = 1400
客户端宽度 = 1024

在 XE7 中：
FormMain.Width = 1400
客户端宽度 = 1024

定义的尺寸是宽度 754 和高度 515。
由于某些未知原因，在 XE7 中未绘制图标。
如果我在打开表单后调整其大小，则图标显示正确！

我没有应用任何皮肤或更改应用程序的样式。我正在使用默认配置

状态栏将有 6 个面板：
0 - 显示提示（宽度灵活；表单宽度变化时变化）
1 - 将显示当前所选公司的名称（固定宽度）
2 - 将显示当前用户的名称（固定宽度）
3 - 将显示一个图标（固定宽度）
4 - 将显示一个图标（固定宽度）
5 - 将显示日期（固定宽度）

由于 1~5 号板的尺寸固定（总计 = 448），我看不出有理由重新计算板条 [0] 的宽度百分比。

同样，该问题仅出现在 XE7 中。

Answer 1

您需要将TPanel.Style 设置为psOwnerDraw 而不是默认的psText。如果您不这样做，则不会调用 OnDrawPanel。

对类似代码的快速测试表明它可以工作（至少在 XE8 中）：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
  if Panel.Index = 0 then
    ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, 0);
end;

结果：

根据发布者的 cmets（在此答案下方），问题似乎实际上与表单的 OnResize 事件中的代码有关，其中两个问题面板不再有足够的空间。有问题的代码（取自发布者的 cmets）：

procedure TFormMain.FormResize(Sender: TObject); 
begin 
  StatusBar1.Panels[0].Width := FormMain.Width - 448 ; 
end;

首先，突出代码中最重要的问题：永远不要在该表单的事件处理程序中使用Form.Width！改用Self.Width（或简单的Width，这意味着Self），制作正确的代码

StatusBar1.Panels[0].Width := Self.Width - 448;

（最好使用Self.ClientWidth，这是调整大小（边缘）边框和删除任何滚动条后表单的内部（客户）区域，而不是Width，顺便说一句。）

我认为面板绘图的问题与面板宽度计算有关。如果在调整Panels[0] 大小后面板没有足够的空间，则索引 3 和 4 处的面板变得太小，并且看不到绘制到矩形中的图像。我可以通过将此事件处理程序添加到我的第一个代码块并再次运行应用程序，调整表单大小来重现这一点：

procedure TForm1.FormResize(Sender: TObject);
begin
  StatusBar1.Panels[1].Width := Self.Width - 448;
end;

请注意下面两个图像中第二个面板（Panels1）的外观变化 - 第一个是表单最初以设计宽度 800 显示时，第二个是在将窗口缩小到 600 像素后运行时的宽度。

800 像素宽度的表格 - 带有日期的状态栏面板：

600 像素宽度的表单 - 缺少带有日期的注释状态栏面板

这里的解决方案是先减去面板 3 和 4 的宽度，然后将剩余空间的百分比分配给面板 0。请注意，我在这里使用表单的 ClientWidth 而不是 Width。

procedure TFormMain.FormResize(Sender: TObject);
var
  Available: Double;
begin
  Available := ClientWidth - StatusBar1.Panels[3].Width -
               StatusBar1.Panels[4].Width;
  // Allocate 80% of remaining width to first panel
  StatusBar1.Panels[0] := Trunc(Available * 0.8);
end;