Schriftfarbe einer Statusbar ändern?

[flow]

Das hab ich mal schnell rauskopiert. Hier werden CAPS NUM INS tasten abgefragt und in der statusbar wenn sie aktiviert sind schwarz gefärbt, ansonsten grau!

Delphi-Quellcode:

procedure TForm1.StatusBarDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
 Color: TColor;
 MyRect: TRect;
begin
 MyRect := Rect;
 StatusBar.Canvas.FillRect(Rect);

 case Panel.Index of
   2: begin
      if GetKeyState(VK_CAPITAL) = 0 then
        Color := clGray
      else
        Color := clBlack;
      end;
   3: begin
      if GetKeyState(VK_INSERT) = 0 then
        Color := clBlack
      else
        Color := clGray;
      end;
   4: begin
      if GetKeyState(VK_NUMLOCK) = 0 then
        Color := clGray
      else
        Color := clBlack;
      end;
   end;//end case
 StatusBar.Canvas.Font.Color := Color;
 DrawText(StatusBar.Canvas.Handle,
          PChar(Panel.Text),
          -1,
          MyRect,
          DT_SINGLELINE or DT_VCENTER or DT_CENTER);
end;

FLOW