Textgrösse auf Fenstergrösse anpassen

[Giantics]

Mit den Funktionen TextWidth und TextHeight von TCanvas kannst du die Textbreite bzw. Höhe eines best. Textes mit eingestellter Schrift bekommen.
d.h. mach eine Schleife, in der du jedes mal die Schriftgröße kleiner machst, und sobald es passt, kannste es zeichen.
Also quasi so ungefähr:

Delphi-Quellcode:

for i:=100 downto 1 do
begin
  Canvas.Font.Size:=i;
  if ((Canvas.TextHeight(TheText)<TheHeight) and (Canvas.TextWidth(TheText)<TheWidth)) then
  break;
end;