Gauges2扩展了Delphi7中Source/Sample/Gauges.pas的功能,增加了自定义文字显示和RealOne Bar格式
(改编自jacky_zz的RealOneProgressBar), 而且还增加了对鼠标的响应事件。
具体用法如下:
1。ShowText=True时,如果ShowPercent=True,只显示xx%;如果ShowPercent=False,显示Text属性中的string;
2。Kind属性为gkHorizontalBar或gkVerticalBar时,如果RealOneStyle=True,显示RealOne Bar效果;
3。增加了对鼠标的响应事件:
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;