Làm cách nào để đăng ký VCLStyle cho TLinkLabel

Question

Tôi đã cố gắng áp dụng VCLStyle cho TLinkLabel.

Đáng buồn thay, tôi không thể hiển thị dấu gạch dưới (sentece của A Tag)

TLinkLabel.Caption := 'Sma<a>pl</a>e'; 

Làm thế nào để giải quyết này?

Để giải quyết vấn đề này, nhưng một thẻ không được xuất hiện khả năng này "Mẫu"

procedure TgLinkLabelHook.Paint(Canvas: TCanvas); 
var 
    LDetails: TThemedElementDetails; 
    ParseStr: String; 
    DrawRect: TRect; 
    DC: HDC; 
    TextSize: TSize; 
    SaveFont: HFont; 
    ThemeTextColor: TColor; 
begin 
    ParseStr := ParseLinks; 
    LDetails := StyleServices.GetElementDetails(tbPushButtonPressed); 
    DC := GetDC(0); 
    try 
    SaveFont := SelectObject(DC, TLinkLabel(Control).Font.Handle); 
    try 
     GetTextExtentPoint32(DC, PWideChar(ParseStr), Length(ParseStr), TextSize); 
    finally 
     SelectObject(DC, SaveFont); 
    end; 
    finally 
    ReleaseDC(0, DC); 
    end; 
    Canvas.Font := TLinkLabel(Control).Font; 
    Canvas.Font.Style := Canvas.Font.Style + [fsUnderline]; 
    Canvas.Font.Size := TLinkLabel(Control).Font.Size; 
    if StyleServices.GetElementColor(LDetails, ecBodyTextColor, ThemeTextColor) then 
    Canvas.Font.Color := ThemeTextColor; 
// DrawRect := Rect(0, 0, TextSize.cx, TextSize.cy); 
    DrawRect := Control.ClientRect; 
    DrawControlText(Canvas, LDetails, ParseStr, DrawRect, DT_VCENTER or DT_CENTER); 
end; 

procedure TForm8.FormCreate(Sender: TObject); 
begin 
    TStyleManager.Engine.RegisterStyleHook(TLinkLabel, TgLinkLabelHook); 
end; 

Answer 1

Làm thế nào để làm cho một văn bản nhãn dựa trên cài đặt phông chữ vải bạn sử dụng:

Sử dụng chức năng TCustomStyleServices.DrawText:

StyleServices.DrawText(Canvas.Handle, LDetails, ParseStr, DrawRect, DT_VCENTER or DT_CENTER, Canvas.Font.Color); 

thay vì TStyleManager.DrawControlText. Chức năng này sử dụng các cài đặt phông chữ điều khiển mặc định, vì vậy nó chỉ đơn giản bỏ qua các cài đặt bạn đã thực hiện. Trên dòng đầu tiên của nó phải mất font khỏi sự khống chế được giao, những gì thiết lập font vải để điều khiển mặc định của font chữ:

Canvas.Font := TWinControlClass(Control).Font; 

Về ý định của bạn:

Lưu ý, rằng nó không thể để sử dụng màu tùy chỉnh cho các liên kết nhãn vì chúng được hệ thống hiển thị. Chỉ có hai cách giải quyết để thay đổi chúng, hoặc là bạn có thể thiết lập màu hệ thống được sử dụng để hiển thị phông chữ liên kết hoặc phân tích cú pháp và tự hoàn thành chú thích nhãn, điều làm cho việc sử dụng TLinkLabel trở nên vô dụng.