TMlSkinProgressBar

用法要点

• 进度值用 Value 读写，范围由 MinValue、MaxValue 限定，改变时触发 OnChanged。
• Bar_Background 是底槽图片，Bar_Progress 是进度部分的图片。
• BarLeftRightSize 指定进度图片左右两端不拉伸的宽度，保证圆头不变形。
• TrackButton 可以在进度条上显示一个可拖动的滑块，做成播放进度条。

示例

摘自 Demo：MlSkin.MainDemo.v3.0（窗体文件 .dfm）

object grsProgressBar: TMlSkinProgressBar
  Left = 97
  Top = 394
  Width = 197
  Height = 17
  Caption.Font.Charset = DEFAULT_CHARSET
  Caption.Font.Color = clWindowText
  Caption.Font.Height = -11
  Caption.Font.Name = 'Tahoma'
  Caption.Font.Style = []
  Bar_Progress = '.\Res\bb2.png'
  Bar_Background = '.\Res\bb1.png'
  TrackButton.Normal = '.\Res\tb1.png'
  TrackButton.Hot = '.\Res\tb2.png'
  TrackButton.Visible = True
  MaxValue = 255
  Value = 192
  OnChanged = grsProgressBarChanged
end

属性 8

名称	类型	默认值	说明
Caption	TMlCaption	—	控件上显示的文字。
Bar_Progress	TMlResID	—	进度部分的图片。
Bar_Background	TMlResID	—	进度条底槽的图片。
BarLeftRightSize	Integer	6	进度图片左右两端保持不拉伸的宽度（像素），用来保证圆头等造型不变形。
TrackButton	TMlPBTrackButton	—	进度条上的滑块设置：图片、大小、是否显示。显示后可拖动，常用来做播放进度条。
MinValue	Integer	0	允许的最小值。
MaxValue	Integer	100	允许的最大值。
Value	Integer	50	当前进度值，范围由 MinValue、MaxValue 限定。

事件 1

名称	类型	默认值	说明
OnChanged	TNotifyEvent	—	状态或数值改变后触发。

TMlSkinCustomControl 的属性 5

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

TMlSkinCustomControl 的事件 4

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

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