Componente Delphi com auto ajuste no tamanho do texto

[Jefferson Damian 0]

Um componente ou função para Delphi.

Preciso de uma forma de ajustar o tamanho do texto conforme aumenta ou diminui o tamanho do componente.
Pode ser um EDIT ou LABEL ou qualquer outro componente.
A ideia é criar um "campo" na tela onde eu possa jogar um texto qualquer e o tamanho da fonte se ajuste
de forma que o texto se encaixe e se aumentar o tamanho do  "campo" aumenta a fonte e se diminuir
o mesmo ocorre com a fonte.

 

Desde já agradeço. 
 

[Eziquiel 96]

Experimente esse teste, considerando o seguinte:

 

Crie dois label's, um Edit e um botão com os seguintes atributos.

 

Label1 (O "campo" que receberá o texto)

  Escolha a fonte e ajuste tamanho que queira na tela.

  AutoSize := False;

 

Label2 (Usado para parametrizar o tamanho da fonte)

  Parametrize a mesma fonte utilizada para o Label1.

  AutoSize : = True

  Visible     := False;

 

No OnClick do Botão use o seguinte código:

  Label1.Caption := '';

  Label2.Caption := Edit1.Text;
  Label2.Font.Size := 1;

  while (Label2.Width < Label1.Width) and (Label2.Height < Label1.Height) do
   Label2.Font.Size := Label2.Font.Size + 1;

  Label1.Font.Size := Label2.Font.Size-1;
  Label1.Caption := Label2.Caption;

Ao clicar no botão, o texto do Edit1 se ajustará ao tamanho do Label1, respeitando os limites , tanto de altura quanto de largura.

Espero que seja isto. Qualquer dúvida, pode perguntar.

Abraço.