[AlexandrV]

Хочу сделать компонент погрессбар но так чтобы он выводил Цвет фона цвет полосы и текст какой тебе надо.

Вот код компонента

Код:

unit ColorFontProgressBar1;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.ComCtrls, Graphics, Windows, messages;

  const PBM_SETBARCOLOR = WM_USER+9;

type
  TColorFontProgressBar1 = class(TProgressBar)
  private
    { Private declarations }
    FColor: TColor;
    procedure SetColor(const Value: TColor);
    Procedure SetBackColor(const Value: TColor);
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure CreateWnd; override;
  published
    { Published declarations }
    property Color: TColor read FColor write SetColor;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Additional', [TColorFontProgressBar1]);
end;

{ TColorFontProgressBar1 }

procedure TColorFontProgressBar1.CreateWnd;
begin
  inherited;
  if HandleAllocated then
    SendMessage(Handle, PBM_SETBARCOLOR, 0, FColor);
end;

procedure TColorFontProgressBar1.SetBackColor(const Value: TColor);
begin
  FColor := value;
  if HandleAllocated then

end;

procedure TColorFontProgressBar1.SetColor(const Value: TColor);
begin
  FColor := Value;
  if HandleAllocated then
    SendMessage(Handle, PBM_SETBARCOLOR, 0, FColor);
end;

end.

Как сюда добавить Функции цвет фона а также тип TFont и свойство Caption

[M.A.D.M.A.N.]

Используй лучше tgauge, он прост как 3 рубля.