Problema con TStatusBar

[J.Slann]

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

A la izquierda de ese panel existen otros paneles (de tamaño fijo)

[MartinS]

Hola J.: Lo que podrias hacer es adecuar el ancho del ultimo panel de acuerdo al tamaño general del StatusBar.

Por ejemplo cuando vos creas los paneles todos tienen un tamaño fijo predeterminado en 50. Si tenes los 4 primeros paneles en 50, por ejemplo hagamos un par de cuentas: 4 X 50 = 200 entonces el tamaño del 5° panel va a ser del tamaño total del StatusBar menos los cuatro primeros.
Podes verificar esto en el evento OnResize del Form

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
    StatusBar1.Panels[4].Width := StatusBar1.Width-200;
    StatusBar1.Panels[4].Text := Edit1.Text;
    ShowMessage('Ancho de panel: '+IntToStr(StatusBar1.Panels[4].Width));
end;

Asi vas a poder utilizar todo el espacio restante del statusBar asignandolo al 5.

Saludos y espero que te sirva eso. Obviamente la limitacion va a estar dada por el tamaño de fuente y la cantidad de texto, no?

[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.

[roman]

En realidad no es que deje un espacio. Más bien parece que, efectivamente, el texto está limitado a 127 caracteres:

Empezado por MSDN

In Windows XP and earlier, the text for each part is limited to 127 characters. This limitation has been removed in Windows Vista.

Y para que en Vista muestre más de 127 caracteres, es necesario incluir un XPManifest si estamos usando Delphi 7. En otros casos habrá que proceder como indica ecfisa.

// Saludos

[J.Slann]

Gracias por las respuestas.

Efectivamente el problema era que se limitaba el espacio a 127 caracteres.
He hecho lo que indicaba ecfisa y ya me funciona bien.

Saludos