Länge und Höhe eines Textes (String)

[himitsu]

Da es anscheinend öfters benötigt wird, denke ich mal es wird hier gut rein passen.

Delphi-Quellcode:

function TextLaenge(Font: TFont; Text: String): Integer; 
var 
  B: TBitMap; 
begin 
  B := TBitMap.Create; 
  B.Canvas.Font := Font; 
  Result := B.Canvas.TextWidth(Text); 
  B.Free; 
end; 

function TextHoehe(Font: TFont; Text: String): Integer; 
var 
  B: TBitMap; 
begin 
  B := TBitMap.Create; 
  B.Canvas.Font := Font; 
  Result := B.Canvas.TextHeight(Text); 
  B.Free; 
end; 

(* Beispiel für einen Aufruf der Funktion(en) *) 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  I: Integer; 
begin 
  (* Wichtig:                              *
   * Es muß der Font übergegeben werden,   *
   * der auch für die Darstellung des      *
   * entsprechenden Textes verwendet wird. *)
  I := TextLaenge(Edit1.Font, Edit1.Text); 
  Label1.Caption := IntToStr(I); 
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=fkerber]Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]

[CalganX]

Von unserem Foren-User shmia in diesem Beitrag. Darauf hingewiesen hat himitsu.

Zitat von shmia:

Delphi-Quellcode:

function TrueFontHeight(fnt: TFont): integer;
// written by Udo Nesshoever, Jan 2001
var
   dc: hdc;
   tm: TTextMetric;
begin
   DC := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextMetrics(DC, tm);
   ReleaseDC(0, DC);
   Result:= tm.tmHeight;
end;

function TrueFontWidth(fnt: TFont; const text:string): Integer;
var
   dc: hdc;
   tsize : Windows.TSize;
begin
   dc := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextExtentPoint32(dc, PChar(text), Length(text), tsize);
   ReleaseDC(0, DC);
   Result := tsize.cx;
end;

[edit=fkerber]Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]