Làm mịn phông chữ ở Delphi

Question

Tôi đã có nguyên nhân cần một nhãn có phông chữ lớn trên biểu mẫu Delphi và nhận thấy rằng các đường cong của nó vẫn hơi bị lởm chởm. Tôi so sánh điều này với cùng kích thước và phông chữ trong MSWord mượt mà hơn nhiều. Sau khi nghiên cứu tôi tìm thấy mã số cho phép tôi làm trơn các phông chữ của mình nhưng nó lộn xộn và tôi đã tự hỏi liệu có cách nào tốt hơn không? Nhìn trong nguồn VCL, TFont dường như gắn bó với NONANTIALIASED_QUALITY đó là thay vì bực bội ...

Cảm ơn 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

Bạn có thể lừa VCL để tạo lớp của riêng bạn kế thừa từ TLabel. Đây là mã chứng minh-khái niệm, được thử nghiệm với Delphi 4, sẽ giúp bạn bắt đầu.

Tạo một đơn vị mới cho lớp TLabel riêng bạn:

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. 

Bây giờ thay đổi đơn vị mẫu của bạn có chứa nhãn, thêm các đơn vị AntiAliasedLabelsauStdCtrls. Điều này dẫn đến lớp học của riêng bạn AntiAliasedLabel.TLabel được tạo ở nơi thông thường StdCtrls.TLabel sẽ được tạo.

Answer 2

Cách đơn giản nhất là để tạo ra thành phần của riêng bạn dựa trên TLabel, chẳng hạn như TSmoothLabel hoặc TAntiAliasedLabel và thêm mã làm mịn của bạn vào đó. Sau đó, bạn sử dụng thành phần của bạn thay vì TLabel chuẩn.

Answer 3

IMHO, VCL phải kiểm tra Làm mịn phông chữ mặc định của hệ thống và áp dụng làm mặc định lúc chạy. Nếu không, ít nhất nó nên mặc định để làm mịn hợp lý hơn. Người ta có thể tranh luận, trong trường hợp này, ClearType sẽ là một mặc định tốt hơn, xem xét> 50% màn hình những ngày này là LCD (và lớn hơn 50% các máy đang chạy XP hoặc tốt hơn).

Đây là một hack được thừa nhận (và như Ken White đề cập, không phải là cách tiếp cận tốt nhất nếu có lựa chọn thay thế), nhưng tôi cần một cách để sửa lỗi này trên toàn cầu cho các biểu mẫu có chứa hàng trăm loại thành phần của bên thứ ba. không thực tế).

Tôi đã thay đổi mặc định Font chất lượng trong Graphics.pas, TFont.GetHandle như sau:

// lfQuality: = DEFAULT_QUALITY;

lfQuality: = 5; // (HACK) CLEARTYPE_QUALITY, lực lượng ClearType

Answer 4

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

"chỉ đơn giản là sử dụng một font có hỗ trợ phông chữ mịn nên sửa lỗi này Delphi sử dụng (hoặc ít nhất là sử dụng để sử dụng) MS Sans Serif là mặc định, không phải là hỗ trợ làm mịn (ClearType hoặc cách khác) nếu bạn đặt phông chữ thành Tahoma (tốt nhất cho XP) hoặc Giao diện người dùng Segoe (tốt nhất cho Vista), bạn sẽ tự động làm mịn phông chữ theo cài đặt hệ thống trong ứng dụng Delphi của bạn. "

Xác nhận, nó hoạt động tốt đẹp bằng cách sử dụng Delphi XE và Win7.Bận rộn thay đổi tất cả phông chữ của tôi ngay bây giờ ;-)