Получить шрифт системного меню

Советы » Шрифты » Получить шрифт системного меню

function

GetMenuFont: TFont; var

ncm: TNonClientMetrics; begin

ncm.cbSize := SizeOf(TNonClientMetrics); SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0); Result := TFont.Create; { lfCaptionFont - regular captions lfSmCaptionFont - small captions lfMenuFont - menus lfStatusFont - status bars lfMessageFont - message boxes } Result.Handle := CreateFontIndirect(ncm.lfCaptionFont); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

label1.Caption := GetMenuFont.Name; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com