font.size - font.height - Negative Werte - Schlechte Doku
Liste der Anhänge anzeigen (Anzahl: 1)
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:
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:
Hat jemand von euch den Sinn verstanden?
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; |
AW: font.size - font.height - Negative Werte - Schlechte Doku
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 |
AW: font.size - font.height - Negative Werte - Schlechte Doku
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Vielleicht wird es mit dem Quelltext klarer:
Delphi-Quellcode:
Ergebnis:
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; Anhang 55648 Wenn du Height statt Size verwendest, stehen auch Akzente oder Buchstaben wie j nicht mehr aus der angegebenen Höhe heraus. |
AW: font.size - font.height - Negative Werte - Schlechte Doku
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); ... |
AW: font.size - font.height - Negative Werte - Schlechte Doku
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
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. |
AW: font.size - font.height - Negative Werte - Schlechte Doku
Absolute Pixelwerte taugen in unterschiedlichen DPI unterschiedlich wenig. Bei der Positionierung immer die DPI mit einbeziehen.
Sherlock |
AW: font.size - font.height - Negative Werte - Schlechte Doku
Zitat:
|
AW: font.size - font.height - Negative Werte - Schlechte Doku
Zitat:
|
AW: font.size - font.height - Negative Werte - Schlechte Doku
Zitat:
|
AW: font.size - font.height - Negative Werte - Schlechte Doku
Zitat:
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz