Foros Club Delphi - Cambiar el color de un panel de TStatusBar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Cambiar el color de un panel de TStatusBar (https://www.clubdelphi.com/foros/showthread.php?t=63197)

Cambiar el color de un panel de TStatusBar

Hola. Esa es la interrogante que tengo. Lo que sucede es que necesito cambiar el color de un panel de un TStaturBar, pero lo que sucede es que este componente, o mas especificamente los paneles que se crean mediante el mismo, no tienen la propiedad Color. Entonces ¿Cómo podría yo cambiar el Color de un panel dentro de un TStatusBar?.

Gracias a las personas que me puedan ayudar, y a las que no tambien, por entrar al Post.

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

Colores de TPanels

Muchisimas gracias Caro. La verdad es que el problema me ha quedado totalmente solucionado, y justo de la forma en que me hacía falta. De nuevo gracias.

Ahora una cosa. Al inicio estaba intentando poner el Style de los panels a psOwnerDraw como tu me dijiste, pero lo estaba intentando hacer en el evento "StatusBarDrawPanel", y entonces no me queria trabajar. En cambio cuando modifique la propiedad en el OnCreate del Form, todo corrio de maravillas.

Lo que hice fue algo asi!

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
var
  X: Integer;
begin

  for X := 0 to StatusBar1.Panels.Count -1 do
    StatusBar1.Panels.Items[X].Style := psOwnerDraw;

end;

Cita:

Empezado por fide_uci (Mensaje 336964)

Ahora una cosa. Al inicio estaba intentando poner el Style de los panels a psOwnerDraw como tu me dijiste, pero lo estaba intentando hacer en el evento "StatusBarDrawPanel", y entonces no me queria trabajar. En cambio cuando modifique la propiedad en el OnCreate del Form, todo corrio de maravillas.

Lo que hice fue algo asi!

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
X: Integer;
begin

for X := 0 to StatusBar1.Panels.Count -1 do
StatusBar1.Panels.Items[X].Style := psOwnerDraw;

end;

Hola de nuevo, la propiedad Style debe estar en psOwnerDraw antes de entrar al evento OnDrawPanel es por eso que no te funcionaba, esta bien que lo pongas en el OnCreate como lo estas haciendo pero podrías ahorrarte esas líneas de codigo y ponerlo directamente en diseño, haces doble click sobre el statusBar te aparecera la lista de los panels que tienes miras sus propiedades, buscas Style a cada panel en esa propiedad lo cambias a psOwnerDraw ya que esta por defecto con psText.

Saluditos

Si ya me he dado cuenta de eso, de que debe de ser antes de que entre al evento. Pero bueno, lo que sucede es que el usuario debe de decidir si usar los colores o no, entiendes?
Es por ello que no he configurado manualmente estas propiedades.
Muchas gracias por la ayuda!