TMlSkinProgressBar

Notes

• Value reads and writes the progress within MinValue–MaxValue, firing OnChanged when it moves.
• Bar_Background is the track image and Bar_Progress the filled part.
• BarLeftRightSize keeps that many pixels at each end unstretched, so rounded caps keep their shape.
• TrackButton adds a draggable thumb, turning the bar into a playback slider.

Example

From the demo MlSkin.MainDemo.v3.0 (.dfm form file)

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

Properties 8

Name	Type	Default	Description
Caption	TMlCaption	—	The text shown on the control.
Bar_Progress	TMlResID	—	Image used for the filled part of the bar.
Bar_Background	TMlResID	—	Image used for the bar's track.
BarLeftRightSize	Integer	6	How many pixels at each end of the image stay unstretched, so rounded caps keep their shape.
TrackButton	TMlPBTrackButton	—	The thumb on the bar: its image, size and visibility. When shown it can be dragged, which turns the bar into a playback slider.
MinValue	Integer	0	Lowest value allowed.
MaxValue	Integer	100	Highest value allowed.
Value	Integer	50	The current progress within MinValue–MaxValue.

Events 1

Name	Type	Default	Description
OnChanged	TNotifyEvent	—	Fires after the state or value has changed.

Properties of TMlSkinCustomControl 5

Name	Type	Default	Description
About	TMlAboutInfo	—	A design-time property: double-clicking it in the Object Inspector opens the MLSkin about box with the component version. It has no effect at run time and is not stored in the .dfm.
Transparent	Boolean	True	Transparent background: the control skips its own fill and shows the form background (image or color) instead.
Color	TColor	clWhite	Background color of the control; ignored while Transparent is on.
AutoInvalidate	Boolean	False	Repaints automatically when the content changes. Turn it on if property changes do not show up.
EraseBackground	Boolean	False	Whether the background is erased before painting; worth toggling if the control flickers.

Events of TMlSkinCustomControl 4

Name	Type	Default	Description
OnDPIChanged	TMlDPIChangedEvent	—	Fires when the screen DPI changes, for example when the window moves to a monitor with a different scaling — a good place to re-adjust anything you draw yourself.
OnBackgroundChanging	TMlBackgroundEvent	—	Fires just before the background changes, giving you a chance to adjust what is drawn.
OnBackgroundChanged	TMlCustomDrawEvent	—	Fires after the background has been drawn, so you can paint on top of it.
OnVisibleChanged	TNotifyEvent	—	Fires when the control is shown or hidden.

Only the properties and events MLSkin adds are listed here. Standard VCL properties such as Align, Anchors, Font and OnClick are available too and behave exactly as on the stock controls.