Delphiのフォントスムージング

Question

デルファイフォームで大きなフォントのラベルが必要になり、そのカーブがまだ若干ギザギザになっていたことに気付いたのですが、 です。私はこれを同じサイズの と比較し、MSWordのフォントははるかに滑らかでした。研究の後、コード が見つかりました。私のフォントを滑らかにすることができましたが、それは面倒です。 良い方法があるかどうか疑問に思っていましたか？ VCLソースで見ると、のTFontはかなりイライラさせられる NONANTIALIASED_QUALITYに固執ようだ...

おかげブリ

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

TLabelを継承する独自のクラスを作成するようにVCLをトリックすることができます。 これはデルファイ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. 

は今StdCtrls後AntiAliasedLabelユニットを追加し、ラベルを含むフォームのユニットを変更します。これにより、通常StdCtrls.TLabelが作成されるところに、独自のクラスAntiAliasedLabel.TLabelが作成されます。

Answer 2

最も簡単な方法は、このようなTSmoothLabelやTAntiAliasedLabelとして、TLabelをもとに、独自のコンポーネントを作成することです、スムージングコードを追加します。次に、標準TLabelの代わりにコンポーネントを使用します。

Answer 3

IMHOの場合、VCLはシステムのデフォルトのフォントスムージングをチェックし、実行時にデフォルトとして適用する必要があります。そうでなければ、少なくともより合理的なスムージングにデフォルトする必要があります。この場合、ClearTypeがより良いデフォルトになると主張することができます。これは最近、LCDの50％以上がLCDであることを考慮しています（そして、マシンの50％以上がXP以上を実行しています）。

これは認知されたハックです（ケン・ホワイトが言及しているように、代替案がある場合は最良の方法ではありません）。しかし、文字通り何百もの第三者コンポーネントタイプを含むフォームに対してこれを修正する方法が必要でした非現実的）。

次のように私はGraphics.pas、TFont.GetHandleにデフォルトフォントの品質を変更：

// lfQuality：= DEFAULT_QUALITY。

lfQuality：= 5; // （HACK） CLEARTYPE_QUALITY、強制的にClearTypeの

Answer 4

から：http://objectmix.com/delphi/725245-tlabel-antialiasing-possibile-3.html

「単にフォントスムージングをサポートするフォントを使用すると、この問題を解決する必要がありますデルファイ 用途（または少なくとも使用するために使用される）MSなき。あなたが Tahoma（XP用に最適）またはSegoe UI（Vista用に最適）にフォントを設定した場合、 は自動的にフォントのスムージングを次のように設定します。あなたの Delphiアプリ "

デルファイXEとWin7を使って美しく動作します。現在、私のフォントをすべて変更しています;-)