Delphi Schrift dynamisch vergrößern

Thema durchsuchen

Ansicht

Themen-Optionen

Schrift dynamisch vergrößern

Ein Thema von Antigo · begonnen am 3. Nov 2006 · letzter Beitrag vom 4. Nov 2006

Vorheriger Beitrag

Nächster Beitrag

Antigo

Registriert seit: 14. Mär 2005
274 Beiträge

Re: Schrift dynamisch vergrößern

4. Nov 2006, 15:28

falls es wen interessiert: ich hab das ganze jetzt folgendermassen gelöst:

markieren

Delphi-Quellcode:

			//Schriftgröße festellen

    font.Name:='Courier New';

    font.Size:=1;

    repeat

      if TextHeight('0') < feldbreite - 4 then font.Size:=font.size+1

      else font.Size:=font.size-1;

    until abs(TextHeight('0') - feldbreite) <= 4;

zumindest funktioniert es so. wenn jemand etwas besseres kennt bitte her damit.