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:
Wenn du Height statt Size verwendest, stehen auch Akzente oder Buchstaben wie j nicht mehr aus der angegebenen Höhe heraus.