GetThemeTextMetrics

関数

テーマフォントのテキストメトリクス情報を取得する。

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

シグネチャ

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

HRESULT GetThemeTextMetrics(
    HTHEME hTheme,
    HDC hdc,
    INT iPartId,
    INT iStateId,
    TEXTMETRICW* ptm
);

パラメーター

名前	型	方向	説明
hTheme	HTHEME	in	ウィンドウに指定されたテーマデータへのハンドル。HTHEME を作成するには OpenThemeData を使用します。
hdc	HDC	in	スクリーンコンテキストに使用する HDC。このパラメーターには NULL を設定できます。
iPartId	INT	in	フォント情報を取得するパートを指定する int 型の値。Parts and States を参照してください。
iStateId	INT	in	パートの状態を指定する int 型の値。Parts and States を参照してください。
ptm	TEXTMETRICW*	out	フォント情報を受け取ります。

戻り値の型: HRESULT

公式ドキュメント

特定のパートに対してビジュアルスタイルで指定されたフォントに関する情報を取得します。

戻り値

型: HRESULT

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

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

各言語での呼び出し定義

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

HRESULT GetThemeTextMetrics(
    HTHEME hTheme,
    HDC hdc,
    INT iPartId,
    INT iStateId,
    TEXTMETRICW* ptm
);

[DllImport("UXTHEME.dll", ExactSpelling = true)]
static extern int GetThemeTextMetrics(
    IntPtr hTheme,   // HTHEME
    IntPtr hdc,   // HDC
    int iPartId,   // INT
    int iStateId,   // INT
    IntPtr ptm   // TEXTMETRICW* out
);

<DllImport("UXTHEME.dll", ExactSpelling:=True)>
Public Shared Function GetThemeTextMetrics(
    hTheme As IntPtr,   ' HTHEME
    hdc As IntPtr,   ' HDC
    iPartId As Integer,   ' INT
    iStateId As Integer,   ' INT
    ptm As IntPtr   ' TEXTMETRICW* out
) As Integer
End Function

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

import ctypes
from ctypes import wintypes

GetThemeTextMetrics = ctypes.windll.uxtheme.GetThemeTextMetrics
GetThemeTextMetrics.restype = ctypes.c_int
GetThemeTextMetrics.argtypes = [
    ctypes.c_ssize_t,  # hTheme : HTHEME
    wintypes.HANDLE,  # hdc : HDC
    ctypes.c_int,  # iPartId : INT
    ctypes.c_int,  # iStateId : INT
    ctypes.c_void_p,  # ptm : TEXTMETRICW* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('UXTHEME.dll')
GetThemeTextMetrics = Fiddle::Function.new(
  lib['GetThemeTextMetrics'],
  [
    Fiddle::TYPE_INTPTR_T,  # hTheme : HTHEME
    Fiddle::TYPE_VOIDP,  # hdc : HDC
    Fiddle::TYPE_INT,  # iPartId : INT
    Fiddle::TYPE_INT,  # iStateId : INT
    Fiddle::TYPE_VOIDP,  # ptm : TEXTMETRICW* out
  ],
  Fiddle::TYPE_INT)

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

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

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

出力引数:

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