Сглаживание шрифтов в Delphi

Question

У меня возникла необходимость в ярлыке с большим шрифтом в форме Delphi и заметил, что его кривые все еще слегка зазубрены. Я сравнивал это с тем же размером и шрифтом в MSWord, который был намного более плавным. После исследования я нашел код , который позволил мне сгладить мои шрифты, но это грязно, и мне было интересно, был ли лучший способ? Глядя в источнике VCL, TFont кажется преданными NONANTIALIASED_QUALITY что довольно неприятно ...

Благодарности Bri

procedure TForm1.SetFontSmoothing(AFont: TFont); 
var 
    tagLOGFONT: TLogFont; 
begin 
    GetObject(
    AFont.Handle, 
    SizeOf(TLogFont), 
    @tagLOGFONT); 
    tagLOGFONT.lfQuality := ANTIALIASED_QUALITY; 
    AFont.Handle := CreateFontIndirect(tagLOGFONT); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    I : integer; 
begin 
    For I :=0 to ComponentCount-1 do 
    If Components[I] is TLabel then 
     SetFontSmoothing(TLabel(Components[I]).Font); 
end; 

Answer 1

Вы можете обмануть VCL в создании своего собственного класса, который наследуется от TLabel. Это код доказательной концепции, протестированный с помощью Delphi 4, который должен вас запустить.

Создать новый блок для собственного TLabel класса:

unit AntiAliasedLabel; 

interface 

uses 
    Windows, Messages, SysUtils, Controls, StdCtrls, Graphics; 

type 
    TLabel = class(StdCtrls.TLabel) 
    private 
    fFontChanged: boolean; 
    public 
    procedure Paint; override; 
    end; 

implementation 

procedure TLabel.Paint; 
var 
    LF: TLogFont; 
begin 
    if not fFontChanged then begin 
    Win32Check(GetObject(Font.Handle, SizeOf(TLogFont), @LF) <> 0); 
    LF.lfQuality := ANTIALIASED_QUALITY; 
    Font.Handle := CreateFontIndirect(LF); 
    fFontChanged := TRUE; 
    end; 
    inherited; 
end; 

end. 

Теперь измените форму блок, содержащий метку, добавляя AntiAliasedLabel блок послеStdCtrls. Это приводит к созданию собственного класса AntiAliasedLabel.TLabel, где обычно создается StdCtrls.TLabel.

Answer 2

Самый простой способ создать свой собственный компонент на основе TLabel, таких как TSmoothLabel или TAntiAliasedLabel , и добавьте к нему свой код сглаживания. Затем вы используете свой компонент вместо стандартного TLabel.

Answer 3

IMHO, VCL должен проверять сглаживание шрифта системы по умолчанию и применять это как значение по умолчанию во время выполнения. Если нет, по крайней мере, он должен по умолчанию использовать более разумное сглаживание. В этом случае можно утверждать, что ClearType будет лучшим дефолтом, учитывая, что> 50% мониторов в эти дни являются ЖК-дисплеем (и более 50% компьютеров работают с XP или выше).

Это подтвержденный взлом (и, как указывает Кен Уайт, а не лучший подход, если есть альтернативы), но мне нужен был способ исправить это глобально для форм, содержащих буквально сотни сторонних типов компонентов (делая наследование компонентов нереально).

Я изменил значение по умолчанию шрифта качества в Graphics.pas, TFont.GetHandle следующим образом:

// lfQuality: = DEFAULT_QUALITY;

lfКачество: = 5; // (HACK) CLEARTYPE_QUALITY силы ClearType

Answer 4

От:. http://objectmix.com/delphi/725245-tlabel-antialiasing-possibile-3.html

«просто используя шрифт, который поддерживает сглаживание шрифтов должен это исправить Delphi использует (или, по крайней мере, имел обыкновение использовать) MS Sans Serif по умолчанию, который не поддерживает сглаживание (ClearType или иначе) .Если вы установите свой шрифт на Tahoma (лучше всего для XP) или пользовательский интерфейс Segoe (лучше всего для Vista), вы получите автоматически сглаживание шрифтов в соответствии с системными настройками в ваше приложение Delphi. "

Подтверждено, оно прекрасно работает с использованием Delphi XE и Win7.Занято изменение всех моих шрифтов прямо сейчас ;-)