[[Caral]]

Hola
El efecto de ecfisa es impresionante pero creo que BlueSteel busca algo mas como esto:
Modificando solo un poco el código del maestro, parpadea el texto:

Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
   case Panel.Index of
    0:if sw then    // Panels[0]
      begin
      StatusBar.Font.Color:= clBlack;
      end
      else
      begin
       StatusBar.Canvas.Font.Color:= clBtnFace;
      end;
    1:if sw then  // Panels[1]
      begin
       StatusBar.Canvas.Font.Color:= clRed;
      end
      else
      begin
       StatusBar.Canvas.Font.Color:= clBtnFace;
      end;
   //2:...      // Panels[2]
  end;
  StatusBar.Canvas.FillRect(Rect);
  StatusBar.Canvas.TextOut(Rect.Left,Rect.Top-2, Panel.Text);
end;

Saludos