font.size - font.height - Negative Werte - Schlechte Doku

[bernau]

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)

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?

[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

[jaenicke]

Zitat:

Zitat von bernau (Beitrag 1515876)

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:

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:
Anhang 55648

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

[Thomasl]

Font über Size einstellen macht bei HiDPI nur Probleme

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);

...

[bernau]

Zitat:

Zitat von jaenicke (Beitrag 1515880)

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.

Delphi-Quellcode:

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.

[Sherlock]

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

Sherlock

[bernau]

Zitat:

Zitat von Thomasl (Beitrag 1515884)

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.

[bernau]

Zitat:

Zitat von Sherlock (Beitrag 1515878)

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.

[Uwe Raabe]

Zitat:

Zitat von bernau (Beitrag 1515888)

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.

[bernau]

Zitat:

Zitat von Uwe Raabe (Beitrag 1515890)

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.

[jaenicke]

Zitat:

Zitat von bernau (Beitrag 1515894)

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.

Du musst den Anwender ja nicht positive UND negative Werte angeben lassen.

Aber wenn du schon InDesign als Beispiel bringst... Dort gibt es eine entsprechende Funktionalität.
https://helpx.adobe.com/indesign/using/leading.html

[Uwe Raabe]

Zitat:

Zitat von bernau (Beitrag 1515894)

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.

Das ist in Delphi ja auch so. Für die andere Größe musst du -13pt angeben, was eine Textverarbeitung aber in vielen Fällen vermutlich nicht zulässt.

Bleibt zu erwähnen, dass dieses Verhalten ja auch nicht von Delphi kommt, sondern von Windows selbst.

[hoika]

Hallo,

<Wenn ich mit Delphi ein Zeichenprogramm entwickle,>
Dann muss ich mich mit den "Eigenarten" von Delphi vertraut machen/rumärgern.

<Wenn ich mit einem Zeichenprogramm arbeite>
interessiert mich nicht, womit das entwickelt wurde.


Der Entwickler ist Schuld, wenn sein Programm nicht wie InDesign funktioniert...

[bernau]

Zitat:

Zitat von jaenicke (Beitrag 1515897)

Du musst den Anwender ja nicht positive UND negative Werte angeben lassen.

Mache ich sowiso nicht :wink:

[bernau]

Zitat:

Zitat von Uwe Raabe (Beitrag 1515908)

Bleibt zu erwähnen, dass dieses Verhalten ja auch nicht von Delphi kommt, sondern von Windows selbst.

Das ist richtig. Aber wenn ich es richtig sehe, dann verwenden Funktionen der Windows-API nur Font.Height. Ein Size oder pt gibt es nicht. Vielleicht aus gutem Grund.

Will damit nur sagen, das Size-Property in Delphi ist meines Erachtens für negative Werte falsch implementiert.

Im dem Adobe Acrobat gibt es es eine schöne Funktion, die mir die Textgröße in pt eines Text-Elementes in einer PDF-Datei anzeigt. Also mal schnell eine PDF erzeugt mit einem Text der Size von 20 und einen Text mit der Size von -20. Dann mit dem Acrobat untersucht. Bei dem Text mit size=20 wird mir im Acrobat auch tatsächlich 20pt angezeigt. Bei dem Text mit size=-20 wird mir im Acrobat 15,07pt angezeigt.

[bernau]

Zitat:

Zitat von hoika (Beitrag 1515910)

<Wenn ich mit Delphi ein Zeichenprogramm entwickle,>
Dann muss ich mich mit den "Eigenarten" von Delphi vertraut machen/rumärgern.

Was ich ja grade mache, sonst würde ich hier nicht fragen.

Zitat:

Zitat von hoika (Beitrag 1515910)

<Wenn ich mit einem Zeichenprogramm arbeite>
interessiert mich nicht, womit das entwickelt wurde.

Der Entwickler ist Schuld, wenn sein Programm nicht wie InDesign funktioniert...

Was soll mir dieser Kommentar sagen? :gruebel:

[bernau]

Um mal zum Abschluss zu kommen.

Ich habe bisher immer mit Font.height gearbeitet und habe diese berechnet um die richtige Schriftgröße in Pt zu erhalten.

Ich wollte nur wissen, ob es einen Grund für die bestehende Implementation vom Property Size gibt, die bei einem positiven Size-Wert die korrekte Schriftgröße druckt und bei einem negativen Wert meines erachten eine falsche Schriftgröße druckt.

Eine korrekte Implementation von einem negativem Size müsste im Setter zur bestehenden Berechnung von height noch den "internal leading" hinzu addieren, damit die Schrift in der korrekten Größe dargestellt wird.

Umgekehrt muss im Getter zuerst der "internal leading" von height abgezogen werden, bevor Size berechnet wird.


Ist nur meine unbedeutende Meinung. Ich habe für mich meine Antwort gefunden.

Am einfachsten ist es natürlich immer eine positiven Size und eine negativen height zu verwenden.:wink: