Einzelnen Beitrag anzeigen

Antigo

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

Re: Schrift dynamisch vergrößern

  Alt 4. Nov 2006, 15:28
falls es wen interessiert: ich hab das ganze jetzt folgendermassen gelöst:

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.
Michael
"How should I know if it works? That's what beta testers are for. I only coded it."
  Mit Zitat antworten Zitat