Foros Club Delphi - Ver Mensaje Individual

*Caro* · #3 10-02-2009

Hola, como te dice el amigo Neftali tienes que pintar tu utilizando el Canvas

Código Delphi [-]procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 Statusbar.Canvas.Font.Color := clBlack;  
 Statusbar.Canvas.TextOut(Rect.Left+2, Rect.Top, '1980');
 
 StatusBar.Canvas.Refresh;
 
 Statusbar.Canvas.Font.Color := clRed;
 Statusbar.Canvas.TextOut(Rect.Left+Statusbar.Canvas.TextWidth('1980'), Rect.Top, 'Filtro ativo');
end;

y colocar la propiedad Style a psOwnerDraw de tu panel 6.

Saluditos