AlphaControls? TsAlphaHints 控件
? ? 一、功能 ? ? TsAlphaHints控制应用程序中工具提示的绘制,带或不带皮肤。为了让这个组件工作,将他放在应用程序的主要形式中就足够了。他已经有一种基本样式,此样式已配置并作为默认样式使用。就这样!现在将在 Active 属性为 True 时自动绘制提示。 ? ? 可以通过更改组件设置来制作各种样式。为了管理样式,有一个Templates 属性 的特殊设计时编辑器。(参见Png模板的配置) ? ? 与 TsHintManager 组件不同,TsAlphaHints 管理器可以绘制任何形状的提示。TsHintManager 已过时并保留在包中以保持兼容性。组件 TsAlphaHints 更有希望和更可取地使用。 ? ? TsAlphaHints 提示可以使用 Html 标签的文本格式,还可以显示图像和图表,也可以产生动画提示。
? ? 该组件可以应用用户定义的样式,并且可以使用当前皮肤中定义的样式(如果它处于活动状态)。应该启用 UseSkinData属性以使用来自皮肤的样式。每个皮肤都有“提示”部分,其中定义了用于绘图的数据。
? ? ShowHint和HideHint过程可用于提示窗口的强制显示和隐藏。 ? ? RepaintHint过程刷新打开的提示窗口。通常在数据更改期间使用此程序并允许创建动画效果。 ? ? DefaultMousePos属性指定默认情况下将使用的气球状提示中箭头的位置。 ? ? 当提示窗口已经显示时,只读IsHintShowing属性为 True。
? ? 二、相关属性事件 ? ? Active ?? ? ? ? ? (活动)该属性指定组件何时处于活动状态并且必须重新定义标准提示窗口。 ? ? Animated?? ?(动画)用于启用/禁用提示窗口动画的属性。 ? ? AutoAlignment ?(自动对齐)启用提示窗口的自动定位。 ? ? HTMLMode ?? ? (HTML模式)属性允许通过 HTML 标记格式化文本。 ? ? MaxWidth ?? ? (最大宽度)确定提示寡妇的最大宽度。 ? ? OnHideHint ?? ?(隐藏提示事件)隐藏提示时发生。 ? ? OnMeasure ?? ?(窗口变化测量事件)在计算提示窗口大小后发生。 ? ? OnPaint ?? ?(窗口绘制事件)在提示窗口主体绘制之后发生。 ? ? OnShowHint ?? ?(显示提示事件)在显示提示窗口之前发生。 ? ? PauseHide ?? ?(暂停隐藏)如果鼠标没有从控件或菜单中移动,则指定在隐藏帮助提示之前要等待的时间间隔。 ? ? SkinSection ?? ?(皮肤部件)包中所有控件的公共属性。 ? ? TemplateName ?? ?(模板名称)属性指定将用于提示显示的模板。 ? ? Templates ?? ?(模板)属性保留可在应用程序中使用的提示模板。 ? ? TextAlignment (文本对齐)允许在提示窗口中对齐文本信息。 ? ? UseSkinData ?? ?(使用皮肤数据)属性定义提示窗口绘图的模式。
? ? 注意OnShowHint事件 ? ? OnShowHint事件是允许使用一组参数来控制提示显示的过程: ? ? ? HintStr定义将显示的文本 ? ? ? CanShow允许或禁止显示提示。允许在应用程序执行期间根据特定条件禁止显示提示。 ? ? ? HintInfo包含 THintInfo 记录,特别是允许指定提示窗口的位置。 ? ? ? Frame允许在提示窗口中绘制 TGraphicControl`s。
? ? 三、提示中的超文本 ? ? 文本格式可以使用标准 Html 标签,例如FONT、B、I、U。标记应直接添加到控件的 Hint 属性,如果启用了 HTMLMode 属性,它们在输出中不可见。 ? ? BR标签 可以设置强制换行符 ? ? 支持?、?等特殊字符。
? ? 四、在提示中使用框架 ? ? OnShowHint 事件包含Frame :TFrame 参数。如果我们创建一个包含 TGraphicControl 的框架,那么这些控件将被复制到提示窗口。此功能允许将文本与图像、图形等一起显示。 ? ? 在提示关闭期间,框架会自动销毁。 ? ? 让我们用框架创建一个提示: ? ? 1、在窗体上创建一个带有 TsAlphaHints 组件的应用程序。创建一个带有组件的框架,继承自 TGraphicControl。控件应放置在提示中。它们可以根据需要进行排列,但我们选择最简单的变体。两个按钮被放置到表单中以进行测试并定义了 Hint 属性。ShowHint 属性为 True。 ? ? 2、将处理程序添加到 OnShowHint 事件。在那里创建一个不可见的框架(Parent = nil)。更改标签的文本,从 HintStr 参数中获取他的文本。
uses Unit1; procedure TForm2.sAlphaHints1ShowHint(var HintStr: string; var CanShow: Boolean;var HintInfo: THintInfo; var Frame: TFrame); begin ? Frame := TFrame1.Create(Application); ? TFrame1(Frame).Label1.Caption := HintStr; end;
? ? 3、就是这样,我们可以运行项目并查看结果。
? ? 4、正如我们所见,有一个问题。在于无论文本宽度如何,窗口宽度都保持不变。我们通过向 OnShowHint 事件处理程序添加一行来解决此问题。我们这里以Label的宽度为导向,因为这个控件的AutoSize属性是True。
? Frame := TFrame1.Create(Application); ? TFrame1(Frame).Label1.Caption := HintStr; ? Frame.Width := TFrame1(Frame).Label1.BoundsRect.Right + 4;
? ? 提示窗口的宽度将根据现在显示文本的大小而有所不同。 ? ? ? 五、Png模板的配置 ? ? 使用 Png 图像作为模板可以创建几乎任何形状的提示窗口。设置模板使用特殊的模板属性编辑器,它可以在设计时调用。 ? ? 前面的示例使用了一个模板,该模板是默认的并且位于应用程序资源中。让我们尝试定义一个模板并在这个例子中应用它。 ? ? 1、创建一个 Png 格式的图像,该图像将用作模板。 ? ? 2、在编辑器中创建一个新模板(“新建”按钮)并将其命名为“蓝色提示”。 ? ? 3、添加创建的图像 ? ? 4、定义边框的大小和阴影 ? ? 5、指定提示窗口边缘到其内容的距离 ? ? 6、如果我们不使用带标签的框架,我们可以为模板定义一个字体。但在我们的示例中,字体是直接在 Label 中设置的,我只是添加了 fsBold 属性。现在,我们可以按 OK,“蓝色提示”模板将被添加到组件中。要在应用程序中应用新样式,请在TemplateName属性中选择它。 ? ? 7、运行应用程序后,我们可以查看结果。 ? ? 第一次还不错:) 但是如果提示窗口会显示在控件上怎么办?如果控件太靠近屏幕底部,则会发生这种情况。箭头会画在上面,肯定不好。 ? ? 对于这种情况,模板编辑器中还有三个附加选项卡。如果设置了“使用附加图像”复选框,它们将被启用。“右上”、“左下”、“右下”选项卡允许指定应在适当角落绘制箭头的图像。 ? ? 可以绘制和配置与主图像相同的附加图像。 ? ? 将具有自定义样式的 TsAlphaHints 组件从一个项目转移到另一个项目可以通过复制/粘贴在设计时生成。
|