Cita:
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 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.