看起来不老的Delphi风格答案

【问题标题】：Delphi style that doesn't look old看起来不老的Delphi风格
【发布时间】：2020-11-17 12:00:00
【问题描述】：

我正在创建一个 VCL 应用程序，并且我希望它的样式与 Delphi 本身的样式完全一样。例如，选中时的树视图节点渲染得非常好（全宽蓝色条），见下文

但我的看起来像是来自 Windows 98：

我希望有一种简单的方法可以让它看起来更漂亮。会喜欢任何正确方向的想法或指示。我以前从未做过任何自定义/所有者绘图，所以这对我来说是新的。

【问题讨论】：

您使用的是哪个 Delphi 版本？最近的版本有样式功能，你可以让它看起来像一个 Win10 应用程序。
如果这是您想要的，请使用 VCL 样式。尽管这样做后如果发现许多缺陷也不要感到惊讶。这就是你面临的权衡。
就个人而言，我肯定会选择一个行为良好、无错误和无闪烁的类似 Win 95 的 GUI，而不是一个有错误、奇怪、闪烁、无法访问、“看起来很现代”的 GUI。一直以来。
为了澄清 David 的评论：如果你真的想要，你可以通过转到屏幕截图对话框中的 Appearance 节点来启用 VCL 样式。

标签： delphi themes vcl

【解决方案1】：

首先，您可以对可用的标准属性设置进行一些试验。以下是 Windows 10 上标准 TTreeView 的外观，仅更改了一些属性。

来自TextView的表格：

  object TreeView1: TTreeView
    Left = 8
    Top = 8
    Width = 225
    Height = 283
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    HideSelection = False
    HotTrack = True
    Indent = 19
    ParentFont = False
    RowSelect = True
    ShowLines = False
    TabOrder = 0
  end

注意Hottrack = true、Rowselect = true 和Showlines = False

【讨论】：

要获得更现代的外观，请使用 Segoe UI，9 pt。