Antialiasing, Kantenglättung für Memo, Edit und Label

[FarAndBeyond]

Was zum Geier sind Voreinstellungen ...??

Das hier sind die "Voreinstellungen" :

Delphi-Quellcode:

//Type
// TControlAccess = Class(TControl);

Procedure AAFont(Obj: TControl);
   Var
    LogFont: TLogFont;
 Begin
  Try
   GetObject(TControlAccess(Obj).Font.Handle, SizeOf(TLogFont), @LogFont);
   LogFont.lfQuality := ANTIALIASED_QUALITY;
   TControlAccess(Obj).Font.Handle := CreateFontIndirect(LogFont);
  Except
   Exit;
  End;
 End;

Gruß
Martin