Delphi

Question

我正在尝试为我的程序构建暗模式，现在 TMS 的 PlannerMonthView 再次出现问题。您可以更改接近 Month Planner 的任何颜色，但不能更改项目颜色。有谁知道如何将其更改为不同的颜色，如灰色或类似的颜色？

Answer 1

然后将 TPlannerMonthViewItems[n].color 设置为所需的颜色

  with PlannerMonthView.CreateItem do
  begin
    id            := 1;
    Color         := clGray;
    CaptionBkg    := Color;
    shadow        := true;
    Text.Text     := 'Test1';
    ItemStartTime := StrToDate('21/09/2021');
    ItemEndTime   := StrToDate('21/09/2021');
  end;

Answer 2

来自 TMS 的 TPlanner 手册 ** 控制 TPlannerItem 在网格中的外观的其他属性是：

Alignment: 设置TPlannerItem中文本的对齐方式

附件：可以指向附件的字符串。如果附件是一个 non-empty 字符串，这是由 TPlannerItem 标题中的剪辑指示

Background：当为true时，项目显示时没有可选择的边框并且不能移动或如此大小。

BorderColor: 设置TPlannerItem的边框颜色

BrushStyle：设置TPlannerItem的背景笔刷样式

CaptionAlign：设置TPlannerItem标题文字的对齐方式

CaptionBkg：设置TPlannerItem标题的背景颜色。这个属性没有效果当 UniformBkg 为真时，因为 TPlannerItem 将始终具有完全统一的颜色

CaptionBkgTo: 当不同于clNone且UniformBkg为false时，标题用a绘制从 CaptionBkg 颜色到 CaptionBkgTo 颜色的渐变

CaptionBkgDirection: 设置字幕背景渐变方向

CaptionFont: 设置 TPlannerItem 标题的字体

CaptionText：设置标题的文本。只有当 CaptinTupe 是 ctText 或 ctTimeText

字幕类型: 可以是

ctNone : 不显示标题
ctText : 显示标题文本
ctTime : 项目显示时间
ctTimeText : 时间和CaptionText同时显示

Color: 设置TPlannerItem的背景颜色

ColorTo：设置TPlannerItem背景的渐变结束色。当设置为 clNone 时，背景以纯色绘制。

ColorDirection: 设置项目背景渐变方向

完成：设置项目的完成。这是一个介于 0 和 100 之间的值。

CompletionDisplay：设置显示完成的位置。该值可以是：cdNone、cdVertical、 cdHorizontal.

光标: 设置当鼠标悬停在项目上时使用的光标。如果 Cursor 为 -1，则默认游标为用过。

DrawTool：这分配了一个组件，封装了 TPlannerItem 的自定义绘图。如果一个 drawtool 组件已分配，该组件将在计划器中绘制项目。

Editor: 设置将用于编辑项目的编辑器组件的实例。

EditMask: 设置当就地编辑器类型为 peEditMask 时将使用的编辑掩码。

Font: 设置TPlannerItem的字体

HintIndicator：为true时，在item的右上角显示一个小三角指示该项目有可用的提示。当 HintIndicator 仅在 Hint 出现时显示属性也是一个 non-empty 字符串。

HintIndicatorColor: 设置指示项目存在提示的小三角形的颜色。

ImageID: 设置来自附加图像列表的图像的索引以显示在 TPlannerItem

ImagePosition：设置要显示的关联图像的位置。

InHeader：为true时，项目显示在TPlanner里面header

SelectColor: 设置项目被选中时的颜色

SelectColorTo:设置item被选中时的渐变结束颜色

SelectFontColor: 设置项目被选中时的字体颜色

Shadow: 当为true时，TPlannerItem显示有阴影。阴影颜色设置为属性TPlanner.ShadowColor

Shape：设置TPlannerItem的形状为矩形、六边形、圆角矩形或蒙皮。蒙皮时，Planner Skin 用于绘制项目。

ShowDeleteButton：为true时，计划器右上角显示删除按钮项目。

ShowLinks：当为 true 时，会显示一个链图标以表明该项目已 linked 到另一个 TPlannerItem

ShowSelection: 当为 true 时，选择的项目用 SelectColor 和 SelectFontColor 显示

Text:设置TPlannerItem文本的字符串列表

TrackBrushStyle: 设置用于绘制项目轨迹栏的画笔

TrackColor：设置轨迹条的颜色。轨迹栏是带有颜色的小条，项目可以被拖动和移动de 规划器网格。

TrackSelectColor: 设置选中项目时轨迹栏的颜色

TrackLinkColor：设置选中 linked 项时轨迹栏的颜色。

TrackVisible: 当为true时，trackbar在TPlannerItem上可见 Unicode：当为真时，将显示 TPlannerItem 的 Unicode 标题和文本。统一码标题和文本是使用 WideCaption 和 WideText 属性设置的。仅用于 non-Unicode Delphi 版本！

UniformBkg: 当为真时，CaptionBkg 颜色没有效果

URL：可以指向URL的字符串。如果 URL 是 non-empty 字符串，则 link 图标会显示在 TPlanner项目标题

Visible: 设置TPlannerItem的可见状态

WideCaption：将标题设置为 Unicode（宽字符串）文本。设置 Unicode = true 以查看标题中的 Unicode 文本。仅用于 non-Unicode Delphi 版本！

WideText: 将 TPlannerItem 文本设置为 Unicode。仅用于 non-Unicode Delphi 版本！

WordWrap: 当为 true 时，TPlannerItem 文本显示为自动换行。

link 到手动 ： https://download.tmssoftware.com/Download/Manuals/TMS%20TPLANNER.pdf

Delphi - TPlannerMonthView 设置项目颜色

Delphi - TPlannerMonthView set Item Color

background-color

tms