AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zeilen umbrechen

Ein Thema von Nils_13 · begonnen am 3. Mär 2009 · letzter Beitrag vom 4. Mär 2009
 
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Zeilen umbrechen

  Alt 3. Mär 2009, 19:32
Im Delphi Quellcode hatte ich dazu eine Näherungs-Funktion gefunden:
Delphi-Quellcode:
  function GetAveCharSize(Canvas: TCanvas): TPoint;
  var
    I: Integer;
    Buffer: array[0..51] of Char;
  begin
    for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A'));
    for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
    GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
    Result.X := Result.X div 52;
  end;
Die ist aber je nach verwendeten Zeichen in der Zeile relativ ungenau.

Gelesen hatte ich über folgende Vorgehensweise:

Erste Hälfte String testen.
-> zu kurz
Zweite Hälfte teilen, zufügen neu testen
-> zu lang
Erste Hälfte nochmal halbieren und testen

usw. bis man man nur noch ein unteilbares Zeichen hat.

Hoffe das Prinzip ist klar, Code kann ich dazu leider keinen bei mir finden.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz