delphi - Delphiでカラープログレスバーを作成するにはどうすればよいですか?

Question

XPManコンポーネントで使用される色のプログレス バーを Delphi 言語で作成したい(Win XP スタイルで)。

私は何をしますか？

どのコードを使用していますか？

Answer 1

テーマを有効にすると、プログレスバーの色を変更できません。テーマを無効にすると、PBM_SETBARCOLOR メッセージをコントロールに送信して色を変更できます。

テーマのプログレスバーの色を変更したいので、すべての描画を自分で行うか、色を変更できるテーマのプログレスバーを模倣するサードパーティのプログレスバーを使用する必要があります。

Answer 2

The_Foxと同じ意見。無料のサードパーティが必要な場合は、次の1つを使用してください：http ：//rmklever.com/？p = 138

Answer 3

uses
  commctrl

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Brush.Color := clGreen;
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
  ProgressBar1.Position := 50;
end;