Получить определенный глиф из Delphi VCL Style

Question

Я хочу получить конкретное растровое изображение из стиля VCL - и установить его как изображение на кнопке - это фактически знак вопроса справки. В редакторе стиля битмапа это изображение 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;