Skip to content

TTMSFNCWidgetMultiProgress

TTMSFNCWidgetMultiProgress

Introduction

TTMSFNCWidgetMultiProgress displays the progress of multiple processes graphically in concentric circles as shown above. To use this control, just drop it on a form and add CircleItems to it. Then set a Value for each item to show the progress in the Form Designer or by code. Later, you can set the Value for each item by code, quite similar to the TTMSFNCWidgetProgress. A Legend can also be shown in various positions. In the screenshot, the Legend appears on the top right.

Features

  • Easy to use, just add a circle item in the Object Inspector or by code. Set its Value and Caption to show the progress immediately. The circle gets a new color automatically.
  • Properties to customize the fill colors and thickness of the finished and unfinished portion of any circle item.
  • Option to display a Caption text at the top or bottom
  • Show a Legend showing the circle item captions. The Legend can appear in 4 corners or on the circle itself. For example, the Legend appears at the top right in the above screenshot.

Code Snippets

Set a caption and a position for Legend

 TMSFNCWidgetMultiProgress1.CaptionOptions.Text := 'Sales of Beverages (Coca-Cola)';
 TMSFNCWidgetMultiProgress1.Legend.Position := lpTopRight;
 TMSFNCWidgetMultiProgress1.CaptionOptions.Position := cpTop;

Add circle items by code

 TMSFNCWidgetMultiProgress1.CircleItems.Clear;
 AnItem := TMSFNCWidgetMultiProgress1.CircleItems.Add;
 AnItem.Caption := 'North';
 AnItem.Value := 0;
 AnItem := TMSFNCWidgetMultiProgress1.CircleItems.Add;
 AnItem.Caption := 'South';
 AnItem.Value := 0
 AnItem := TMSFNCWidgetMultiProgress1.CircleItems.Add;
 AnItem.Caption := 'East';
 AnItem.Value := 0;
 AnItem := TMSFNCWidgetMultiProgress1.CircleItems.Add;
 AnItem.Caption := 'West';
 AnItem.Value := 0;

Set the value for South

 TMSFNCWidgetMultiProgress1.CircleItems.Items[1].Value := 24;