Essa função é pra todos aqueles que tem um statusbar todo desorganizado ou que o ajusta manualmente toda vez que sua aplicação inicia!
CODE
procedure AjustaStatusBar(StatusBar: TStatusBar);
const
BORDA = 10;
var
temp, i: Integer;
lmax: array [0..4] of Integer;
begin
with StatusBar do
begin
Canvas.Font := Font;
for i := 0 to Panels.Count - 1 do
lmax := Canvas.TextWidth(Panels.Text) + BORDA;
for i := 0 to Panels.Count - 1 do
if lmax > 0 then
Panels.Width := lmax;
end;
end;
Pergunta
Douglas Soares
Bom dia!
Essa função é pra todos aqueles que tem um statusbar todo desorganizado ou que o ajusta manualmente toda vez que sua aplicação inicia!
const
BORDA = 10;
var
temp, i: Integer;
lmax: array [0..4] of Integer;
begin
with StatusBar do
begin
Canvas.Font := Font;
for i := 0 to Panels.Count - 1 do
lmax := Canvas.TextWidth(Panels.Text) + BORDA;
for i := 0 to Panels.Count - 1 do
if lmax > 0 then
Panels.Width := lmax;
end;
end;
Para usar:
Editado por Douglas SoaresAjustaStatusBar(StatusBar1);
Espero que seja útil!
Abraços
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.