Formdaki Bütün Fontlar Nasıl ClearType yapılır...

[hacker_10-ur]

ben gdi+ ile antialiasing ve cleartype yapabiliyorum fakat editlerede yapmk istiyorum şöyle bir kod buldum ama işe yaramadı....

Kod: Tümünü seç

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;

[hacker_10-ur]

Tamam Arkadaşlar Sorunu Çözdüm....

[ikutluay]

üstadım

nasıl yaptığını yazacaksınki ilerde birisi takılırsa arasın bulsun. yada bizde öğrenelim ve sanada dua edlim.

[hacker_10-ur]

üstad masaüstüne gelip sağ tuşa basıp görüntü özelliklerine giriyoruz

tablardan görünüme geliyoruz
ve en attaki efekt butonuna tıklıyoruz...

ikinci comboboxta standart olanı değil cleartype olanı seçiyoruz...

sonra yaptığımız prograama xpmanifest componentini gömüyoruz..

sorun ortadan kalkıyor