Da ich mich grade mit Fonts beschäftige, fällt mir eine schon lange vergessene Frage wieder ein.

Font.size hat in der Regel einen Positiven Wert. Entsprechend hat font.height einen negativen Wert. In der Doku steht folgendes.

Zitat:

Mit Size legen Sie die Punktgröße der Schrift fest. Bei einem negativen Wert wird der interne Abstand über den einzelnen Textzeilen berücksichtigt. Bei einem positiven Wert ist Size die Schrifthöhe ohne den internen Abstand.

Definiere für mich jemand mal den "internen Abstand" über der Textzeile.

Auch wenn ich die Bedeutung von "internen Abstand" nicht verstehe, ist es für mich nur logisch, dass es zwei unterschiedliche Texthöhen geben muss. Wahrscheinlich einmal der "schöne" Abstand zwischen zwei Zeilen. Zwei Zeilen untereinander brauchen immer einen kleinen Abstand um gut lesbar zu sein. Zum anderen würde ich die tatsächliche Höhe, also die Oberkante von dem höchsten Buchstaben.

Ganz unlogisch ist aber bei Angabe eines negativen Wertes für Size, dass der Text kleiner gezeichnet wird. Eigentlich erwarte ich, egal ob Size 13 oder -13 ist, der gezeichnete Text entspricht 13pt, nur der "Rahmen" um den Text sollte sich verändern.

Hier mal ein kleines Testprogramm. (Paintbox auf eine Form und den Code zufügen. Im Anhang ist der Screenshot zum Programm)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormFontTest1.PaintBox1Paint(Sender: TObject);
begin
  PaintTextToCanvas(PaintBox1.Canvas,0,0,20,'(Gg) Size = 20');
  PaintTextToCanvas(PaintBox1.Canvas,200,0,-20,'(Gg) Size = -20');
end;

Function TFormFontTest1.PaintTextToCanvas(const aCanvas:TCanvas;const aX:Integer;const aY:Integer;const aSize:Integer;const aText:String): TRect;
begin
  aCanvas.font.Size := aSize;

  Result.Width := aCanvas.TextWidth(aText);
  Result.Height := aCanvas.TextHeight(aText);

  aCanvas.Brush.Color := clRed;
  aCanvas.Rectangle(aX,aY,aX+Result.Width,aY+Result.Height);

  aCanvas.Brush.Color := clBlack;
  aCanvas.Brush.Style := bsClear;
  aCanvas.TextOut(aX,aY,aText);
end;

Hat jemand von euch den Sinn verstanden?

Was den "internen Abstand" angeht, könnte das hier helfen: https://en.wikipedia.org/wiki/Leading. Auch die msdn gibt etwas mehr Infos dazu: https://learn.microsoft.com/en-us/wi...di-createfonta

Aber ich bin kein Schriftsetzer...

Sherlock

Zitat von bernau:

Ganz unlogisch ist aber bei Angabe eines negativen Wertes für Size, dass der Text kleiner gezeichnet wird. Eigentlich erwarte ich, egal ob Size 13 oder -13 ist, der gezeichnete Text entspricht 13pt, nur der "Rahmen" um den Text sollte sich verändern.

Nein, das ist nicht unlogisch. Du gibst zwar mit der Größe an, wie groß ein Text gezeichnet werden soll, aber die Frage ist, wie die Umgebung dabei aussieht, ob du dich selbst um die Abstände außen herum kümmerst (z.B. stehen Klammern ja aus dem normalen Text heraus). Das Vorzeichen gibt an, ob dabei der Abstand mit in deiner Angabe enthalten ist oder nicht.

Vielleicht wird es mit dem Quelltext klarer:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormFontTest1.PaintBox1Paint(Sender: TObject);
begin
  PaintTextToCanvas(PaintBox1.Canvas,0,0,20,'(Gg) Size = 20 - Ein Test');
  PaintTextToCanvas(PaintBox1.Canvas,0,20,20,'(Gg) Size = 20 - Ein Test');
  PaintTextToCanvas(PaintBox1.Canvas,0,40,20,'(Gg) Size = 20 - Ein Test');
  PaintTextToCanvas(PaintBox1.Canvas,400,0,-20,'(Gg) Size = -20 - Ein Test');
  PaintTextToCanvas(PaintBox1.Canvas,400,20,-20,'(Gg) Size = -20 - Ein Test');
  PaintTextToCanvas(PaintBox1.Canvas,400,40,-20,'(Gg) Size = -20 - Ein Test');
end;

Function TFormFontTest1.PaintTextToCanvas(const aCanvas:TCanvas;const aX:Integer;const aY:Integer;const aSize:Integer;const aText:String): TRect;
begin
  aCanvas.font.Size := aSize;

  Result.Width := aCanvas.TextWidth(aText);
  Result.Height := aCanvas.TextHeight(aText);

  aCanvas.Brush.Color := clRed;
// aCanvas.Rectangle(aX,aY,aX+Result.Width,aY+Result.Height);

  aCanvas.Brush.Color := clBlack;
  aCanvas.Brush.Style := bsClear;
  aCanvas.TextOut(aX,aY,aText);
end;

Ergebnis:


Wenn du Height statt Size verwendest, stehen auch Akzente oder Buchstaben wie j nicht mehr aus der angegebenen Höhe heraus.

Font über Size einstellen macht bei HiDPI nur Probleme

zusammenfalten · markieren

Delphi-Quellcode:

function FontHeightDpi(const Size: Integer; const Dpi: Integer): Integer;
begin
  Result := -MulDiv(Size, Dpi, 72);
end;


Function TFormFontTest1.PaintTextToCanvas(const aCanvas:TCanvas;const aX:Integer;const aY:Integer;const aSize:Integer;const aText:String): TRect;
begin
  aCanvas.font.Height := FontHeightDpi(aSize, PixelsPerInch);

...

Zitat von jaenicke:

Wenn du deinen Code auf einem Medium mit anderer Auflösung (Drucker) ausgibst, dann sieht das Ergebnis wiederum ganz anders aus.

Das ist aber eher dem Zufall geschuldet, weil der Bildschirm 96dpi verwendet und die height mit dem Wert 72 berechnet wird.

Font.Height = -Font.Size * Font.PixelsPerInch {96} / 72

Wenn du deinen Code auf einem Medium mit anderer Auflösung (Drucker) ausgibst, dann sieht das Ergebnis wiederum ganz anders aus.

Absolute Pixelwerte taugen in unterschiedlichen DPI unterschiedlich wenig. Bei der Positionierung immer die DPI mit einbeziehen.

Sherlock

Zitat von Thomasl:

Font über Size einstellen macht bei HiDPI nur Probleme

Das kommt noch hinzu. Ist aber eher einem Bug bei Font.PixelsPerInch geschuldet, welches ja zur Berechnung zwischen Font.Height und Font.Size verwendet wird.

Zitat von Sherlock:

Was den "internen Abstand" angeht, könnte das hier helfen: https://en.wikipedia.org/wiki/Leading. Auch die msdn gibt etwas mehr Infos dazu: https://learn.microsoft.com/en-us/wi...di-createfonta

Aber ich bin kein Schriftsetzer...

Sherlock

Dein Wikipedia-Link bestätigt ja meine Vermutung, dass der zusätzliche Abstand zwischen zwei Textzeilen gemeint ist, der dann entweder inkludiert ist (positives Vorzeichen) oder excludiert ist (negatives Vorzeichen). Was aber wiederum bedeutet, dass die Änderung der Schriftgröße unfug ist.

Zitat von bernau:

Dein Wikipedia-Link bestätigt ja meine Vermutung, dass der zusätzliche Abstand zwischen zwei Textzeilen gemeint ist, der dann entweder inkludiert ist (positives Vorzeichen) oder excludiert ist (negatives Vorzeichen). Was aber wiederum bedeutet, dass die Änderung der Schriftgröße unfug ist.

Wieso Unfug? Wenn Height (was ja intern auch über Size gesetzt wird) einen Wert mit oder ohne den Abstand angibt, dann muss zwingend die Schrift kleiner oder größer sein. Bei Angabe von Size ±13pt ist entweder die Zeichengröße gemeint oder die Größe der Zelle, was ja eine kleinere Zeichengröße impliziert.

Zitat von Uwe Raabe:

Wieso Unfug? Wenn Height (was ja intern auch über Size gesetzt wird) einen Wert mit oder ohne den Abstand angibt, dann muss zwingend die Schrift kleiner oder größer sein. Bei Angabe von Size ±13pt ist entweder die Zeichengröße gemeint oder die Größe der Zelle, was ja eine kleinere Zeichengröße impliziert.

Dann ist es meines erachtens grundsätzlich eine irreführende Implementation.

Wenn ich in einer Textverarbeitung für eine Schrift 13pt auswähle, dann gibt es genau eine Größe. Ich kann bei Word, LibreOffice und co. nicht angeben, ob ich die kleinere oder die größere Version von 13pt haben möchte.

Wenn ich mit Delphi ein Zeichenprogramm schreibe, dann erwartet der Anwender zurecht, dass eine gedruckte 13pt Schrift genau so groß ist, wie bei einem Ausdruck mit InDesign.