Ein Recordzeichen ganz vorne Zeigen lassen

[Popov]

In diesem Fall ist es nur eine dreiviertel Miete. Label, aber auch TextOut geben Texte mit Schriftglättung aus. Auf diese Weise sieht man Teile der Hintergrundfarbe, was hässlich aussehen kann.

Aber ich hab gerade eine Funktion zur Hand mit der man für den Font die Schriftglättung an und abschalten kann.

Delphi-Quellcode:

{Schaltet Font Smoothing/anti-aliasing für Font an oder aus}
procedure FontSmoothing(Font: TFont; Antialiased: Boolean);
const
  Quality: array [Boolean] of LongInt =
    (NONANTIALIASED_QUALITY, ANTIALIASED_QUALITY);
var
  tagLOGFONT: TLogFont;
begin
  GetObject(Font.Handle, SizeOf(TLogFont), @tagLOGFONT);
  tagLOGFONT.lfQuality := Quality[Antialiased];
  Font.Handle := CreateFontIndirect(tagLOGFONT);
end;

//Edit: @CreativeMD

Zitat:

aber wenn ich TranparentColer auf True setze ist es nicht duchsichtig

Alleine ist zu wenig, steht aber alles im Beitrag.