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.