Länge eines Textes in Pixel ermitteln

[jaenicke]

Zitat von Zacherl:

Nach langer Recherche endlich was passendes gefunden.

Die hättest du dir auch sparen können, indem du einfach mal nachgeschaut hättest wie Delphi das in TCanvas macht.

Dort wird GetTextExtendPoint32 benutzt:
http://msdn.microsoft.com/en-us/library/dd144938.aspx

[ASM]

Zitat von jaenicke:

Die hättest du dir auch sparen können, indem du einfach mal nachgeschaut hättest wie Delphi das in TCanvas macht.

Das benötigt aber "A handle to the device context." [Zitat msdn microsoft].
Ein Label z.B. hat aber kein eigenes Handle, da es kein Fenster im Sinne von Windows ist.

Und was das betrift:

Zitat von Zacherl:

"Nach langer Recherche endlich was passendes gefunden. DT_CALCRECT heißt das Zauberwort. Für alle, die das selbe Problem haben:"

Das ist ja aber äußerst speziell und nicht universell verwendbar, allein schon deshalb, weil nicht alle beschriftbaren Objekte ein Canvas haben (wie z.B. Labels).

Dies hier sollte dagegen universell einsetzbar sein, egal ob für die Beschriftung von Label, Panel, Button, Statusbar, etc:

Code:

uses TypInfo;

type
  tTextSizeInPixel = record
    WidthInPixel, HeightInPixel: integer;
  end;
  
{...}  

function TForm1.GetTextSizeInPixel(obj: TObject; objFont: TFont; objText: string): tTextSizeInPixel;
var
  BM: TBitmap;
begin
  with result do
  begin
    widthInPixel := 0;
    heightInPixel := 0;
  end;
  // falls obj kein entspr. Property hat, ist alles weitere obsolet
  if GetPropInfo(Obj.ClassInfo, 'Font') = nil then exit;
  if GetPropInfo(Obj.ClassInfo, 'Caption') = nil then
    if GetPropInfo(Obj.ClassInfo, 'Text') = nil then exit;
  BM := TBitmap.Create;
  try
    BM.Canvas.Font := objFont;
    with result, BM.Canvas do
    begin
      widthInPixel := TextWidth(objText);
      heightInPixel := TextHeight(objText);
    end;
  finally
    BM.Free;
  end;
end;

Beispiel:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // z.B.
  with Edit1 do
  begin
    Font.size := 14;
    Text := 'Forum Delphi-Praxis';
  end;
  with Label1 do
  begin
    Font.size := 12;
    Caption := 'GetTextSizeInPixel';
  end;  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    // mit einem Editfeld:
    with Edit1, GetTextSizeInPixel(Edit1, Font, text) do
      showmessage(format('Edit1 Text = %s'#13#10 +
        'Font Size: %d'#13#10 +
        'Text Höhe = %d Pixel, Weite = %d Pixel',
        [text, font.size, HeightInPixel, WidthInPixel]));

    // oder mit einem Label:
    with Label1, GetTextSizeInPixel(Label1, Font, caption) do
      showmessage(format('Label1 Caption = %s'#13#10 +
        'Font Size: %d'#13#10 +
        'Text Höhe = %d Pixel, Weite = %d Pixel',
        [caption, font.size, HeightInPixel, WidthInPixel]));
end;

[Bummi]

@ASM

Zitat:

allein schon deshalb, weil nicht alle beschriftbaren Objekte ein Canvas haben (wie z.B. Labels).

Nicht public oder published heißt nicht daß es nicht da wäre

Delphi-Quellcode:

type
  THackGraphicControl=Class(Controls.TGraphicControl)
     public
     Property Canvas;
  End;
.....

procedure TForm1.Button1Click(Sender: TObject);
begin
 THackGraphicControl(Label1).Canvas.Ellipse(0,0,10,10);
end;

[ASM]

Zitat von Bummi:

Nicht public oder published heißt nicht daß es nicht da wäre

Gut, soweit akzeptiert. Das hatte ich jetzt bedacht.

Aber ein TGraphicControl hat zwar ein Canvas (zumindestens über die Hilfsklasse THackGraphicControl erreichbar), jedoch kein Handle; dagegen ein TWinControl zwar ein Handle, aber kein Canvas. Also müsste man - je nach verwendetem Objekt - eine andere Funktion zur Berechnung der Pixel heranziehen.

Warum also nicht gleich eine universelle Funktion, die von vornherein unabhängig von dieser unterschiedlichen Herleitung eines Objekts ist.

Außerdem kann man in meiner oben beschriebenen Funktion die Pixel über einen String berechnen lassen, der zunächst noch gar nicht im Objekt selbst definiert ist, wodurch man ggf. zunächst die für diesen String benötigten Pixel berechnen kann und danach das Beschriftungsfeld des Objekts in Länge und Höhe oder seine Font.size entsprechend anpassen kann (nicht alles hat ja eine Autosize Property), um es dann mit eben diesem String zu belegen.