ClearType verwenden

[Vjay]

Nur als Hinweis, cleartype funktioniert glaube ich nur ab 24/32 Bit Farbe.

[Jonas]

Wieso macht ihr es so kompliziert?

Ich habe einfach die Schriftart von MS Sans Serif auf Microsoft Sans Serif geändert. Die Standartschriftart MS Sans Serif ünterstützt kein Clear Type, Microsoft Sans Serif hingegen schon. Sobald man nun den Clear Type in Windows anschaltet, ändert es sich bei meiner Anwendung auch.

[Sascha L]

Wieso wir es so kompliziert machen? Würdest du bitte noch mal genau den Thread durchlesen?!

Es geht hier nicht um das globale Cleartype! Man kann Cleartype auch NUR für seine eigene Anwendung aktivieren - unabhängig davon, ob es global für Windows eingeschaltet ist oder nicht.

[Muetze1]

Zitat von supermuckl:

hehe
du solltest meine funktion nicht so umändern, das du das canvas als constante an die funktion übergibst dann ists klar, das sich nichts ändert.

Das ist Banane - damit stellt er nur sicher, dass du die Instanz nicht veränderst. Die Eigenschaften der Instanz sind frei änderbar. Das Const hat hier keine Aussage...

/EDIT: Ups, 2. Seite übersehen. Ich lasse es trotzdem als allgemeinen Hinweis stehen...

[CFA]

Hi,

hiermit könnt ihr ClearType aktivieren oder deaktivieren.

Delphi-Quellcode:

procedure ClearType(Font: TFont; Enable: Boolean);
const
  CLEARTYPE_QUALITY = 5;
var
  lf : TLogFont;
begin
  case Enable of
    true: // Enable
    begin
      GetObject(Font.Handle, SizeOf(TLogFont), @lf);
      lf.lfQuality := CLEARTYPE_QUALITY;
      Font.Handle := CreateFontIndirect(lf);
    end;
    false: // Disable
    begin
      GetObject(Font.Handle, SizeOf(TLogFont), @lf);
      lf.lfQuality := NONANTIALIASED_QUALITY;
      Font.Handle := CreateFontIndirect(lf);
    end;
  end;
end;

Lg,
Andre

[H4ndy]

Zitat von CFA:

Hi,

hiermit könnt ihr ClearType aktivieren oder deaktivieren.

Funktioniert sehr gut! Danke
(Getestet mit WinXP Pro, SP2)

Im Anhang meine erweiterte Test-Anwendung.