Textgrösse auf Fenstergrösse anpassen

[Giantics]

Zitat:

Hab zum Beispiel ein Formular mit einem Label darauf mit dem Text '1234'.

Da musste gar nicht mehr so viel ändern:

Delphi-Quellcode:

for i:=100 downto 1 do
begin
  Canvas.Font.Size:=i;
  if ((Canvas.TextHeight('1234')<ClientHeight) and (Canvas.TextWidth('1234')<ClientWidth)) then
  break;
end; 
Label1.Font.Size:=i;