ProgressBar färben?

[AlexII]

Hallo,

ich versuche schon seit gestern die ProgressBar zu färben. Habe alles ausprobiert was google her geben konnte, aber nix klappt. Hier einige Beispiele:

Delphi-Quellcode:

const WM_USER = $0400;
  CCM_FIRST = $2000;
  PBM_SETBARCOLOR = WM_USER + 9;
  PBM_SETBKCOLOR = CCM_FIRST + 1;   

...

  ProgressBar2.Brush.Color:= clRed; // Set Background colour
  //ProgressBar2.Perform(PBM_SETBARCOLOR, 0, clRed);
  //ProgressBar2.Position := 50;
  SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0, clRed);
  //SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0 , RGB(200, 200, 155));
  Progressbar2.Repaint;
  //ProgressBar2.Parent.Color:=clred;
  //ProgressBar2.Color:=clred;
  //SetWindowTheme(ProgressBar2.Handle, '', '');

Bin für jede Hilfe dankbar!