GetThemeFont

関数

指定プロパティのテーマフォント情報を取得する。

DLLUXTHEME.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

// UXTHEME.dll
#include <windows.h>

HRESULT GetThemeFont(
    HTHEME hTheme,
    HDC hdc,   // optional
    INT iPartId,
    INT iStateId,
    INT iPropId,
    LOGFONTW* pFont
);

パラメーター

名前	型	方向	説明
hTheme	HTHEME	in	ウィンドウの指定したテーマデータへのハンドル。HTHEME を作成するには OpenThemeData を使用します。
hdc	HDC	inoptional	HDC。このパラメーターには NULL を設定できます。
iPartId	INT	in	フォントプロパティを含むパーツを指定する int 型の値。Parts and States を参照してください。
iStateId	INT	in	パーツの状態を指定する int 型の値。Parts and States を参照してください。
iPropId	INT	in	取得するプロパティを指定する int 型の値。指定可能な値の一覧については Property Identifiers を参照してください。
pFont	LOGFONTW*	out	フォントプロパティの値を受け取る LOGFONT 構造体へのポインター。

戻り値の型: HRESULT

公式ドキュメント

フォントプロパティの値を取得します。

戻り値

型: HRESULT

この関数が成功した場合は S_OK を返します。それ以外の場合は HRESULT エラーコードを返します。

解説(Remarks)

フォントは現在の論理画面の DPI(ドット/インチ)に合わせてスケーリングされます。

指定したパーツおよび状態でプロパティがサポートされていない場合、E_PROP_ID_UNSUPPORTED が返されることがあります。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

// UXTHEME.dll
#include <windows.h>

HRESULT GetThemeFont(
    HTHEME hTheme,
    HDC hdc,   // optional
    INT iPartId,
    INT iStateId,
    INT iPropId,
    LOGFONTW* pFont
);

[DllImport("UXTHEME.dll", ExactSpelling = true)]
static extern int GetThemeFont(
    IntPtr hTheme,   // HTHEME
    IntPtr hdc,   // HDC optional
    int iPartId,   // INT
    int iStateId,   // INT
    int iPropId,   // INT
    IntPtr pFont   // LOGFONTW* out
);

<DllImport("UXTHEME.dll", ExactSpelling:=True)>
Public Shared Function GetThemeFont(
    hTheme As IntPtr,   ' HTHEME
    hdc As IntPtr,   ' HDC optional
    iPartId As Integer,   ' INT
    iStateId As Integer,   ' INT
    iPropId As Integer,   ' INT
    pFont As IntPtr   ' LOGFONTW* out
) As Integer
End Function

' hTheme : HTHEME
' hdc : HDC optional
' iPartId : INT
' iStateId : INT
' iPropId : INT
' pFont : LOGFONTW* out
Declare PtrSafe Function GetThemeFont Lib "uxtheme" ( _
    ByVal hTheme As LongPtr, _
    ByVal hdc As LongPtr, _
    ByVal iPartId As Long, _
    ByVal iStateId As Long, _
    ByVal iPropId As Long, _
    ByVal pFont As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

GetThemeFont = ctypes.windll.uxtheme.GetThemeFont
GetThemeFont.restype = ctypes.c_int
GetThemeFont.argtypes = [
    ctypes.c_ssize_t,  # hTheme : HTHEME
    wintypes.HANDLE,  # hdc : HDC optional
    ctypes.c_int,  # iPartId : INT
    ctypes.c_int,  # iStateId : INT
    ctypes.c_int,  # iPropId : INT
    ctypes.c_void_p,  # pFont : LOGFONTW* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('UXTHEME.dll')
GetThemeFont = Fiddle::Function.new(
  lib['GetThemeFont'],
  [
    Fiddle::TYPE_INTPTR_T,  # hTheme : HTHEME
    Fiddle::TYPE_VOIDP,  # hdc : HDC optional
    Fiddle::TYPE_INT,  # iPartId : INT
    Fiddle::TYPE_INT,  # iStateId : INT
    Fiddle::TYPE_INT,  # iPropId : INT
    Fiddle::TYPE_VOIDP,  # pFont : LOGFONTW* out
  ],
  Fiddle::TYPE_INT)

#[link(name = "uxtheme")]
extern "system" {
    fn GetThemeFont(
        hTheme: isize,  // HTHEME
        hdc: *mut core::ffi::c_void,  // HDC optional
        iPartId: i32,  // INT
        iStateId: i32,  // INT
        iPropId: i32,  // INT
        pFont: *mut LOGFONTW  // LOGFONTW* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("UXTHEME.dll")]
public static extern int GetThemeFont(IntPtr hTheme, IntPtr hdc, int iPartId, int iStateId, int iPropId, IntPtr pFont);
"@
$api = Add-Type -MemberDefinition $sig -Name 'UXTHEME_GetThemeFont' -Namespace Win32 -PassThru
# $api::GetThemeFont(hTheme, hdc, iPartId, iStateId, iPropId, pFont)

#uselib "UXTHEME.dll"
#func global GetThemeFont "GetThemeFont" sptr, sptr, sptr, sptr, sptr, sptr
; GetThemeFont hTheme, hdc, iPartId, iStateId, iPropId, varptr(pFont)   ; 戻り値は stat
; hTheme : HTHEME -> "sptr"
; hdc : HDC optional -> "sptr"
; iPartId : INT -> "sptr"
; iStateId : INT -> "sptr"
; iPropId : INT -> "sptr"
; pFont : LOGFONTW* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

出力引数:

#uselib "UXTHEME.dll"
#cfunc global GetThemeFont "GetThemeFont" sptr, sptr, int, int, int, var
; res = GetThemeFont(hTheme, hdc, iPartId, iStateId, iPropId, pFont)
; hTheme : HTHEME -> "sptr"
; hdc : HDC optional -> "sptr"
; iPartId : INT -> "int"
; iStateId : INT -> "int"
; iPropId : INT -> "int"
; pFont : LOGFONTW* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "UXTHEME.dll"
#cfunc global GetThemeFont "GetThemeFont" sptr, sptr, int, int, int, sptr
; res = GetThemeFont(hTheme, hdc, iPartId, iStateId, iPropId, varptr(pFont))
; hTheme : HTHEME -> "sptr"
; hdc : HDC optional -> "sptr"
; iPartId : INT -> "int"
; iStateId : INT -> "int"
; iPropId : INT -> "int"
; pFont : LOGFONTW* out -> "sptr"
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。