Changing the font of a Delphi TLabel to Italic chops off the tail - why?

delphi fonts autosize italic tlabel
Brian Frost picture Brian Frost · May 26, 2011 · Viewed 8.2k times · Source

A simple demo of a default TLabel with font set to Arial Regular 16 is shown below. enter image description here

The code when the button is clicked is:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Font.Style := Label1.Font.Style + [fsItalic];
end;

When you click the button, the last character is truncated viz:

enter image description here

By default, TLAbel.AutoSize is true so this should be ok, right? This is in XE and Delphi 7 is the same. Is this a bug?

Answer

Tim picture Tim · May 26, 2011

An extra space at the end is a quick work around for this.

Related questions

Colorful text in the same line in TRichEdit

How to write text in the same line but with different color? (I use richedit). procedure TForm1.btnEClick(sender: TObject); begin m0.SelAttributes.Color := clBlue; m0.SelAttributes.Style := [fsBold]; m0.lines.add('This is blue and it is bold'); m0.…

Read More
How to set label text bold in delphi Xe8

How can you set a TLabel to Bold and back to normal runtime in Delphi XE8 firemonkey multi device project? I've tried this but it doesn't work: label.TextSettings.Font.Style := [TFontStyle.fsBold]; Also tried: label.Font.Style := [TFontStyle.fsBold];

Read More
What is the proper font for printing on thermal paper?

I have a program that prints every client's order, like restaurants tickets, but I made it with times new roman. The result wasn't a quality print. I believe that the font is not the best for this tech and I …

Read More