Label com fonte dinâmica

[bnobre]

Olá a todos,

Possuo uma tela com um label de width = 1006.

Mesmo assim, às vezes o conteúdo do mesmo excede essa largura me causando problemas.

Alguém teria algum código ou dica para ajustar essa fonte quando o texto exceder a largura de 1006?

Desde já agradeço a atenção de todos.

[Robert Dj]

Já tentou utilizar a propriedade WordWrap?

[Daniel Simoes]

Tem um código em ACBrDANFCeFortesFr.pas, que ajusta o tamanho da Fonte para menor, até detectar que cabe no Width...

procedure TACBrNFeDANFCeFortes.DiminuirFonteSeNecessario(ARLMemo: TRLMemo;
  TamanhoMinimo: Integer);
var
  ABmp: TBitmap;
begin
  ABmp := TBitmap.Create;
  try
    ABmp.Canvas.Font.Assign(ARLMemo.Font);
    TamanhoMinimo := max(1, TamanhoMinimo);

    while ABmp.Canvas.Font.Size > TamanhoMinimo do
    begin
      if ABmp.Canvas.TextWidth( ARLMemo.Lines.Text ) <= ARLMemo.ClientWidth then
        Break;

      ABmp.Canvas.Font.Size := ABmp.Canvas.Font.Size - 1;
    end;
  finally
    ARLMemo.Font.Size := ABmp.Canvas.Font.Size;
    ABmp.Free;
  end;
end;

 

[bnobre]

Perfeito... 

Obrigado Daniel

[Daniel Simoes]

no Lazarus, existe ainda, a seguinte propriedade e método

  ALabel.OptimalFill := True;
  ALabel.AdjustFontForOptimalFill;