Ver Mensaje Individual
  #2  
Antiguo 03-02-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola fide_uci, para cambiar los colores de los panels de tu StatusBar tienes que utilizar el evento OnDrawPanel y colocar la propiedad Style de tus panels en psOwnerDraw, este codigo tendría que estar en ese evento:

Pinta el primer panel de amarillo
Código Delphi [-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 if Panel=StatusBar1.Panels[0] then
  Statusbar.Canvas.Brush.Color:= clYellow
 else
  Statusbar.Canvas.Brush.Color:= clRed;
 
 Statusbar.Canvas.FillRect(Rect);
 Statusbar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text);
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita