[DELPHI] Cambiare colore al testo nella StatusBar

[camaleonteplus]

Vorrei cambiare colore al testo che compare in questa statusbar come si fa?
StatusBar.Panels[2].Text:='Email Inviata';
ho provato con il metodo come si fa con tlabel ma non va.

[Dalton]

dai un occhiata qui
ciao!

[camaleonteplus]

ho provato cosi ma dove inserisco le informazioni sul colore?

procedure TForm1.Button1Click(Sender: TObject);
begin
StatusBar1.Panels[0].Style := psOwnerDraw;
StatusBar1.Panels[1].Style := psOwnerDraw;
end;

[Dalton]

indichi cio' che vuoi attraverso la procedura StatusBar1DrawPanel:

procedure TStatusForm.StatusBar1DrawPanel(
  StatusBar: TStatusBar;
  Panel: TStatusPanel;
  const Rect: TRect) ;
begin
  with StatusBar.Canvas do
  begin
    case Panel.Index of
      0: //fist panel
      begin
        Brush.Color := clRed;
        Font.Color := clNavy;
        Font.Style := [fsBold];
      end;
      1: //second panel
      begin
        Brush.Color := clYellow;
        Font.Color := clTeal;
        Font.Style := [fsItalic];
      end;
    end;
    //Panel background color
    FillRect(Rect) ;

    //Panel Text
    TextRect(Rect,2 + ImageList1.Width + Rect.Left, 2 + Rect.Top,Panel.Text) ;
  end;

  //draw graphics
  ImageList1.Draw(StatusBar1.Canvas, Rect.Left, Rect.Top, Panel.Index) ;
end;

ciao!

[camaleonteplus]

Ho fatto in questo modo mi testereste il codice? A me non da risultati cioè non mi colora la StatusBar

procedure TForm1.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
begin
case Panel.Index of
     0: //Primo Pannello
begin
     Brush.Color := clBtnFace;
     Font.Color := clGreen;
     Font.Style := [fsItalic];
end;
     1: //Secondo Pannello
begin
     Brush.Color := clBtnFace;
     Font.Color := clGreen;
     Font.Style := [fsItalic];
end;
     2: //Terzo Pannello
begin
     Brush.Color := clYellow;
     Font.Color := clRed;
end;
     3: //second panel
begin
     Brush.Color := clBtnFace;
     Font.Color := clNavy;
     Font.Style := [fsItalic];
end;
end;
end;
end;