AlphaControls 控件菜单的附加功能

AlphaControls 控件使用标准的TMainMenu TPopupMenu控件，队原有功能外，其菜单ITEM项，具有的附加功能：

一、菜单项组的标题（附加功能）
1、项目中的多行文本
2、附加垂直信息栏
3、菜单中字体的全局更改
4、可定制的 alpha 混合效果
5、附加到表单的系统菜单

见下图

上述功能，通过OnGetPopupItemData事件体现。

二、TsSkinManager.OnGetPopupItemData事件
该事件发生在绘制弹出菜单之前，并允许为每个菜单项定义字体。更改字体大小时会自动计算项目的高度。
procedure TMainFrm.sSkinManager1GetPopupItemData(Item: TMenuItem;
State: TOwnerDrawState; ItemData: TacMenuItemData);
参数：
Item 当前菜单项
State 当前菜单项的状态
ItemData 包含绘图所需数据的结构。此结构包含 Font 属性，计划添加更多属性。

三、菜单项组的标题
如果 Caption = "-"，则在标准菜单中绘制分隔线。在 AlphaControls 中添加了将菜单项绘制为标题的其他可能性。标题应在开头和结尾都有“-”符号。

四、项目中的多行文本
菜单项目文本国，如果包含回车+换行的组合(#13#10)，菜单项的文本将自动换行。

五、附加垂直信息栏
设置TsSkinManager.MenuSupport.UseExtraLine属性为True，启用在弹出菜单中显示附加垂直信息行。如果启用此属性，则将在所有弹出菜单上绘制此线。使用 OnGetMenuExtraLineData 事件，我们可以定义哪些菜单应该有一条垂直线。此外，我们可以在那里定义文本和字形。
在绘制弹出菜单之前，调用TsSkinManager.OnGetMenuExtraLine事件。

procedure TMainFrm.sSkinManager1GetMenuExtraLineData(FirstItem: TMenuItem;var SkinSection, Caption: String; var Glyph: TBitmap;var LineVisible: Boolean);
variGlyphSize: integer;function GetSectionTextColor: TColor; // Get text color for colorizing of glyph received from CharImageListvarNdx: integer;beginNdx := sSkinManager1.GetSkinIndex(SkinSection);if Ndx >= 0 thenResult := sSkinProvider1.SkinData.CommonSkinData.gd[Ndx].Props[0].FontColor.ColorelseResult := clBlack;end;beginLineVisible := True;                  // External line is visibleCaption := 'SKin MenuExt';            // External line Text  iGlyphSize := ScaleInt(22, sSkinProvider1.SkinData);  //External line 字符Size Glyph := CharImageList16.CreateBitmap32Color(7, iGlyphSize, iGlyphSize, GetSectionTextColor, iGlyphSize);     //External line图形
end;

LineVisible 属性为 True，则垂直信息栏将显示在当前菜单中。
FirstItem 参数指向此弹出菜单的第一个菜单项。关注此选项，您可以启用或禁用额外的行
SkinSection皮肤部分，可以更改组件的外观
Caption标题
Glyph字形
TsSkinManager.MenuSupport.ExtraLineFont指定将用于文本绘图的字体。
TsSkinManager.MenuSupport.ExtraLineWidth附加垂直信息栏宽度。

五、定义菜单中（全局）字体
我们可以定义将在应用程序的所有弹出菜单中使用的字体。
使用TsSkinManager.MenuSupport.Font更改菜单中的字体。
如果TsSkinManager.MenuSupport.CustomFont属性为 True，然后在应用程序的所有皮肤菜单中使用字体。

六、可定制的alphablend效果（alpha混合）
TsSkinManager.MenuSupport.AlphaBlend属性允许定义弹出菜单透明度。如果属性值为 0，则菜单完全透明。当值为 255（默认值）弹出菜单不透明。

七、Form系统菜单附件
TsSkinProvider组件具有 SysSubMenu 属性。我们可以在那里定义一个弹出菜单，该菜单将附加到表单的系统菜单中。

八、替换系统阴影
TsSkinManager.MenuSupport.SkinnedShadows属性用自定义蒙皮阴影替换系统阴影。

菜单项通常会自动处理和蒙皮。如果在运行时添加了新菜单项，则应使用 HookPopupMenu 过程（添加后）对其进行初始化。例子：

sSkinManager1.SkinableMenus.HookPopupMenu(PopupMenu1, sSkinManager1.Active);

AlphaControls 控件菜单的附加功能相关推荐

AlphaControls 控件 TsFrameBar 创建下拉式多级导航菜单
AlphaControls 控件 TsFrameBar 创建下拉式多级导航菜单 TsFrameBar控件是创建一个下拉菜单的工具块. TsFrameBar控件本身,可以通过创建TITEMS,自 ...
AlphaControls 控件动画
AlphaControls 控件动画 AlphaControls 一组支持皮肤 (AlphaSkins) 的常见组件和一些独特组件,以及一些附加功能.所有皮肤元素都可以有自己的属性, ...
AlphaControls 控件Delphi使用
AlphaControls 控件Delphi使用一.AlphaControls初始化(MainFrm加入AlphaControls) 1.制定ini文件 procedure WriteIni_Ski ...
AlphaControls 控件 TsMagnifier 放大镜
AlphaControls 控件 TsMagnifier 放大镜 AlphaControls 控件 TsMagnifier组件,是一个窗口放大镜,放大镜的位置默认在窗口的中心,通过鼠标可以移动放大镜的 ...
android点击隐藏控件,Android编程实现点击EditText之外的控件隐藏软键盘功能
本文实例讲述了Android编程实现点击EditText之外的控件隐藏软键盘功能.分享给大家供大家参考,具体如下: 工具类 ... public static void hideKeyboard(Co ...
SAP UI5 应用开发教程之六十六 - 基于 OData V4 的 SAP UI5 表格控件如何实现删除功能试读版
一套适合 SAP UI5 初学者循序渐进的学习教程教程目录 SAP UI5 本地开发环境的搭建 SAP UI5 应用开发教程之一:Hello World SAP UI5 应用开发教程之二:SAP U ...
露雨资源库三（第一个.net2.0软件）－为控件增加自动完成功能
前面我写过"露雨资源库"的第一篇和第二篇,分别介绍了界面设计和设计思路. 链接如下: 露雨资源库(第一个.net2.0软件)一 http://luyu.cnblogs.com/ar ...
ehlib的DBGridEh控件中使用过滤功能的方法
关于在ehlib的DBGridEh控件中使用过滤功能的方法在ehlib的DBGridEh控件中使用过滤功能很方便,但使用过程中有几个容易被忽略的地方,它曾经困绕了我很长时间,过滤功能就是用不起来. ...
android缩放组件,Android控件实现图片缩放功能
1 简介先来一张效果图 TIM图片.gif 上图中灰色的一块是ImageView控件,ImageView中的图片进行左右上下移动,以及双指缩放. 对于android控件的缩放移动,点这里----an ...

AlphaControls 控件菜单的附加功能

AlphaControls 控件菜单的附加功能相关推荐

最新文章

热门文章

AlphaControls 控件 菜单的附加功能

AlphaControls 控件 菜单的附加功能相关推荐

最新文章

热门文章

AlphaControls 控件菜单的附加功能

AlphaControls 控件菜单的附加功能相关推荐