从Delphi VCL风格获取特定字形

Question

我想从VCL风格获取特定的位图 - 并将其设置为按钮上的图像 - 实际上它是帮助问号。在位图样式编辑器中是来自Form的btnHelp图像。

Answer 1

要从VCL风格中获得视觉元素（字形），您必须使用GetElementDetails和TCustomStyleServices.DrawElement过程。

试试这个样本

uses 
    Vcl.Themes; 

{$R *.dfm} 

procedure TForm1.PaintBox1Paint(Sender: TObject); 
var 
    LDetails : TThemedElementDetails; 
begin 
    //Get the detailsfor the HelpButton 
    LDetails := StyleServices.GetElementDetails(twHelpButtonNormal); 
    //Draw the the element in the canvas. 
    StyleServices.DrawElement(TPaintBox(Sender).Canvas.Handle, LDetails, TPaintBox(Sender).ClientRect); 
end;