StatusBar. Cambiar color texto

[Tomás]

Hola a todos:

- Tengo un StatusBar
- Pongo un texto en la propiedad SimpleText.
- Pongo la propiedad SimplePanel a True y se ve el texto.
- En la propiedad Font cambio la letra a negrita y se ve el texto en negrita.
- En la misma propiedad Font cambio el color a rojo, pero sigue viéndose negro.

¿Qué hay que hacer para que el texto del StatusBar aparezca en color?

Gracias. Tomás.

[[Lepe]]

Hola Tomás, no te queda mas remedio que usar otro Statusbar

TStatusBarPro is an improved version of Delphi's TStatusBar. Each status panel in this status bar can have its own color, image, hint, popup menu, click event and double click event. In addition, TStatusBarPro accepts other controls as its child controls.


http://www.delphiarea.com

[Tomás]

Muchas gracias, Lepe.

Un saludo. Tomás.

[AnimAlf]

no te queda mas remedio que usar otro Statusbar

No es necesario, se puede hacer de otro modo:

Tenemos la StatusBar con Paneles, pues aquel que se quiera de otro color debe tener su propiedad Style como psOwnerDraw
Luego debemos averiguar la posición izquierda del panel detro de la StatusBar, lo veríamos activando por ejemplo en el evento OnDrawPanel de ésta, se pasará por ese evento cada vez que se tenga que pintar un panel que esté en ese estilo, nos llega con la constante Rect de cada panel y Rect.Left indica dicho valor. Ejemplo en un tercer panel donde Rect.Left := 153:

procedure TFormMain.StatusBarDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin

if Rect.Left = 153 then
begin

StatusBar.Canvas.Font.Color:=clRed;
StatusBar.Canvas.TextOut(Rect.Left+3,Rect.Top+2,'El Escrito');

end;

end;