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

[jaenicke]

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:

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:
2022-12-06.png

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 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.

[bernau]

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.

[Sherlock]

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

Sherlock