Mega Code Archive
ProgressBar Different Color
<![CDATA[
Title: ProgressBar Different Color
Question: How to change the foreground color of a ProgressBar???
Answer:
unit RVProgressBar;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TRVProgressBar = class(TProgressBar)
private
FForeColor: TColor;
procedure SetForeColor(const Value: TColor);
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
published
property ForeColor: TColor read FForeColor write SetForeColor;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Rendez-vous', [TRVProgressBar]);
end;
{ TRVProgressBar }
constructor TRVProgressBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FForeColor := clHighLight;
end;
procedure TRVProgressBar.SetForeColor(const Value: TColor);
begin
if Value ForeColor then
begin
FForeColor := Value;
SendMessage(Handle,$0409,0,FForeColor);
end;
end;
end.
]]>