Something wrong in text drawing

[Fusel]

Set your specific Fontname with TCanvas.Font

[WojTec]

I already did it, Arial. Do you mean problem is with font?

[Namenloser]

It has nothing to do with the font. It’s just windows’ subpixel rendering (ClearType) which smoothes out the edges of your text and makes it appear more defined. This technology was introduced with Win XP and is turned on globally by default since Vista.

You can however disable ClearType for a specific canvas.

[WojTec]

Hm, for me don't working, ClearType is as was.

[Namenloser]

It should work, though. Post some code, please.

[WojTec]

Delphi-Quellcode:

begin
  with TBitmap.Create do
  begin
    SetSize(100, 100);

    Canvas.Brush.Color := clWhite;
    Canvas.Pen.Color := clBlack;

    Canvas.FillRect(BoundsRect);

    Canvas.Font.Name := 'Arial';
    Canvas.Font.Size := 36;
    ChangeCleartype(Canvas, False);

    Canvas.TextOut(10, 10, '123'); // Without CT

    Canvas.Font.Size := 20;
    Canvas.TextOut(10, 60, '1234567');  // With CT

    SaveToFile('C:\0.bmp');
  end;
end;

I know!, need to call it before render text and after last setting! Ach.
Is possible to set it permanently for specified font?

[himitsu]

Ja.

Leite dir TFont ab und baue diese Funktionalität dort ein.