statusbar学习(2)—在statusbar上显示图标和自动以颜色

最新推荐文章于 2023-03-14 07:11:05 发布

原创最新推荐文章于 2023-03-14 07:11:05 发布 · 4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#imagelist

Delphi 技术专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一个使用 Delphi 实现自定义状态栏样式的示例代码。通过设置不同面板的背景颜色、字体颜色和样式，实现了两个面板分别显示为红色背景、蓝色粗体文字和黄色背景、绿色斜体文字的效果，并通过 ImageList 在状态栏中添加了图标。

部署运行你感兴趣的模型镜像

procedure TForm2.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Style := psOwnerDraw;
StatusBar1.Panels[1].Style := psOwnerDraw;
end;

procedure TForm2.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
begin
    case Panel.Index of
      0:
        begin
          Brush.Color := clRed;
          Font.Color := clNavy;
          Font.Style := [fsBold];
        end;
      1:
        begin
          Brush.Color := clYellow;
          Font.Color := clTeal;
          Font.Style := [fsItalic];
        end;
    end;
    FillRect(Rect);
    TextRect(Rect, 2 + ImageList1.Width + Rect.Left, 2 + Rect.Top, Panel.Text);
end;

// draw graphics
ImageList1.Draw(StatusBar1.Canvas, Rect.Left, Rect.Top, Panel.Index);
end;

您可能感兴趣的与本文相关的镜像

AutoGPT

AI应用

AutoGPT于2023年3月30日由游戏公司Significant Gravitas Ltd.的创始人Toran Bruce Richards发布,AutoGPT是一个AI agent（智能体），也是开源的应用程序，结合了GPT-4和GPT-3.5技术，给定自然语言的目标，它将尝试通过将其分解成子任务，并在自动循环中使用互联网和其他工具来实现这一目标