Microsoft ClearType ein/aus

**supermuckl**

Für alle, die auf ein Canvas einen Text zeichnen und nicht wollen, das der mit ClearType gezeichnet wird.
Sinnvoll für eventuelle grafischen Filter danach, da Cleartype den text mit einen Antialiasing Effekt auf das Canvas zeichnen lässt.

Mit ClearType kann man wählen, ob es an, oder aus sein soll.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ChangeCleartype(canvas:Tcanvas;ClearType:boolean);

var

  lf: TLogFont;

  tf: TFont;

begin

  tf := Tfont.create;

  try

    tf.Assign(canvas.font);

    GetObject(tf.Handle, sizeof(lf), @lf);

    if ClearType then

      lf.lfQuality := DEFAULT_QUALITY

    else

      lf.lfQuality := NONANTIALIASED_QUALITY;

    tf.Handle := CreateFontIndirect(lf);

    canvas.font.assign(tf);

  finally

    tf.Free;

  end;

end;

http://msdn.microsoft.com/library/de...ntext_0xgn.asp

[edit=Chakotay1308]Code für die Code-Library lesbarer gemacht. Mfg, Chakotay1308[/edit]

Microsoft ClearType ein/aus

Microsoft ClearType ein/aus

Forumregeln