Schriftart Glättung in Delphi

Question

Ich hatte Grund, ein Etikett mit einer großen Schrift in einem Delphi-Formular zu benötigen und bemerkte, dass seine Kurven noch leicht gezackt waren. Ich verglich dies mit der gleichen Größe und Schriftart in MSWord, die viel glatter war. Nach der Recherche fand ich Code , der mir erlaubt, meine Schriften zu glätten, aber es ist chaotisch und ich fragte mich, ob gab es einen besseren Weg? Suchen Sie in der VCL Quelle scheint TFont zu NONANTIALIASED_QUALITY fest gebunden, die ziemlich frustrierend ...

Dank 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

Sie können die VCL dazu bringen, eine eigene Klasse zu erstellen, die von TLabel erbt. Dies ist ein Proof-of-Concept-Code, getestet mit Delphi 4, der Ihnen den Einstieg erleichtern soll.

Erstellen Sie eine neue Einheit für die eigene TLabel Klasse:

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. 

Jetzt ist Ihre Form Einheit ändern, die das Etikett enthält, das Hinzufügen der AntiAliasedLabel Einheit nachStdCtrls. Dies führt dazu, dass Ihre eigene Klasse AntiAliasedLabel.TLabel erstellt wird, wo normalerweise StdCtrls.TLabel erstellt würde.

Answer 2

Der einfachste Weg ist Ihre eigene Komponente zu schaffen, basierend auf TLabel, wie TSmoothLabel oder TAntiAliasedLabel , und fügen Sie Ihren Glättungscode hinzu. Dann verwenden Sie Ihre Komponente anstelle des Standard TLabel.

Answer 3

IMHO sollte die VCL die Standard Schriftart Glättung überprüfen und diese als Standard zur Laufzeit anwenden. Wenn nicht, sollte es zumindest auf eine vernünftigere Glättung zurückgreifen. Man könnte argumentieren, dass ClearType in diesem Fall ein besserer Standard wäre, wenn man bedenkt, dass heutzutage mehr als 50% der Monitore LCD sind (und mehr als 50% der Computer XP oder besser).

Dies ist eine anerkannte Hack (und wie Ken Weiß erwähnt, nicht der beste Ansatz, wenn es Alternativen gibt), aber ich brauchte eine Möglichkeit, diese buchstäblich Hunderte von 3rd-Party-Komponententypen enthält, die für Formen global zu fixieren (Komponente Erbe machen unrealistisch).

geändert ich die Standard-Schriftqualität im Graphics.pas, TFont.GetHandle wie folgt:

// lfQuality: = DEFAULT_QUALITY;

lfQualität: = 5; // (HACK) CLEARTYPE_QUALITY, Kräfte cleartype

Answer 4

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

„einfach eine Schriftart, die Schriftglättung unterstützt, sollte dieses Problem beheben Delphi Anwendungen (oder zumindest verwendet zu verwenden) MS Sans Serif als Standard, die nicht unterstützt Unterstützung Glättung (ClearType oder anders). Wenn Sie Ihre Schriftart auf Tahoma (am besten für XP) oder Segoe UI (am besten für Vista), werden Sie automatisch Schriftartenglättung nach Systemeinstellungen in Ihre Delphi App. "

Bestätigt, es funktioniert wunderbar mit Delphi XE und Win7.Beschäftigt, alle meine Schriftarten gerade zu ändern ;-)