Grafische Statusleiste darstellen

[TheReaper]

Du kannst auch von "normalen" Progressbars die Farbe ändern:

Delphi-Quellcode:

Function RGB2TColor(const R, G, B: Byte): Integer;
begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
end;

Procedure TForm1.TimerVUTimer(Sender: TObject);
Var
rot, gruen, blau : byte;
Begin
  gruen:=255;
  rot  :=0;
  blau :=0;
  SendMessage(Progressbar1.Handle, PBM_SETBARCOLOR, 0, rgb2tcolor(rot,gruen,blau));
end;