Problema con TStatusBar

[ecfisa]

Empezado por J.Slann

Si claro, el texto es más largo, y como veis no aparece entero.

Hola J.Slann.

Tenes razón... cuando el TStatusPanel tiene su propiedad Style igual a psText deja un espacio significativo sin ocupar y realmente no sé el motivo de ese comportamiento.

Pero dibujándolo manualmente, logré que el texto ocupe todo el ancho del Panel:

Código Delphi [-]
...
implementation

const     // constante literal, máximo 255 caracteres
  TEXTO = 'Mi programa tiene una barra de estado del tipo TStatusBar.' +
          'La barra contiene a su vez cinco paneles de informacion del ' +
          'tipo TStatusPanel. La anchura de la barra se ajusta según el ' +
          'tamaño de la ventana del programala barra de estado es tan ancha como lo es';

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StatusBar1.Panels[4] do
  begin
    Style:= psOwnerDraw;
    Text:= TEXTO;
  end;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index = 4 then
    StatusBar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, TEXTO);
end;

Saludos.