TMlSkinShape

用法要点

• Shape 选择形状类型，圆角矩形的圆角大小用 RoundRadius。
• 填充色在 Brush 里设置，边线的颜色、线型和粗细在 Pen 里设置。
• 要画不规则形状时，把 SVG 的路径数据填到 SvgPath。

示例

摘自 Demo：MlSkin.Demo.HtmlLabel&TMlSkinPopupMessage功能演示.v4.x（窗体文件 .dfm）

object shp1: TMlSkinShape
  Left = 8
  Top = 10
  Width = 657
  Height = 225
  Shape = skRoundRect
  Brush.Color = 15658734
  Brush.Visible = True
  Pen.Color = 5664760
  Pen.Visible = False
  Pen.Style = psSolid
  Pen.Width = 2
  DoubleBuffered = False
  Anchors = [akLeft, akTop, akRight]
  DesignSize = (
  657
  225)
  ...

属性 7

名称	类型	默认值	说明
Alpha	Byte	255	透明度，0 为完全透明、255 为不透明。
Shape	TMlShapeKind	skCircle	形状类型：圆形、椭圆、矩形、圆角矩形、圆角正方形等。
Brush	TMlBrush	—	填充设置：填充颜色，以及是否填充（Visible）。
Pen	TMlPen	—	边线设置：线型（实线、点线、虚线）、线宽和颜色。
RoundRadius	Integer	8	圆角半径（像素），画圆角矩形时使用。
SvgPath	string	—	SVG 路径数据。填入后按这条路径绘制自定义形状，可画出不规则图形。
Color	TColor	clWhite	控件的底色。Transparent 打开时不生效。

TMlSkinCustomControl 的属性 4

名称	类型	默认值	说明
About	TMlAboutInfo	—	设计期属性。在对象检查器里双击会弹出 MlSkin 的关于窗口，显示组件版本信息；运行时没有作用，也不会保存到 dfm。
Transparent	Boolean	True	背景是否透明。打开后控件不画自己的底色，直接显示窗体的背景（图片或颜色）。
AutoInvalidate	Boolean	False	内容变化时是否自动重绘。动态改属性看不到变化时可以打开。
EraseBackground	Boolean	False	绘制前是否擦除背景。界面闪烁时可以调整这个开关。

TMlSkinCustomControl 的事件 4

名称	类型	默认值	说明
OnDPIChanged	TMlDPIChangedEvent	—	屏幕 DPI 改变时触发（例如窗口被拖到另一块不同缩放的显示器上），可在这里重新调整自绘内容。
OnBackgroundChanging	TMlBackgroundEvent	—	背景即将改变时触发，可在这里干预要绘制的背景。
OnBackgroundChanged	TMlCustomDrawEvent	—	背景绘制完成后触发，可在背景之上继续自绘内容。
OnVisibleChanged	TNotifyEvent	—	控件显示或隐藏时触发。

本页只列出 MlSkin 新增的属性和事件；Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用，用法与原生控件一致。