GetThemeMargins

関数

指定プロパティのテーマ余白(マージン)を取得する。

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

シグネチャ

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

HRESULT GetThemeMargins(
    HTHEME hTheme,
    HDC hdc,   // optional
    INT iPartId,
    INT iStateId,
    INT iPropId,
    RECT* prc,   // optional
    MARGINS* pMargins
);

パラメーター

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

戻り値の型: HRESULT

公式ドキュメント

MARGINS プロパティの値を取得します。

戻り値

型: 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 GetThemeMargins(
    HTHEME hTheme,
    HDC hdc,   // optional
    INT iPartId,
    INT iStateId,
    INT iPropId,
    RECT* prc,   // optional
    MARGINS* pMargins
);

[DllImport("UXTHEME.dll", ExactSpelling = true)]
static extern int GetThemeMargins(
    IntPtr hTheme,   // HTHEME
    IntPtr hdc,   // HDC optional
    int iPartId,   // INT
    int iStateId,   // INT
    int iPropId,   // INT
    IntPtr prc,   // RECT* optional
    IntPtr pMargins   // MARGINS* out
);

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

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

import ctypes
from ctypes import wintypes

GetThemeMargins = ctypes.windll.uxtheme.GetThemeMargins
GetThemeMargins.restype = ctypes.c_int
GetThemeMargins.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,  # prc : RECT* optional
    ctypes.c_void_p,  # pMargins : MARGINS* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('UXTHEME.dll')
GetThemeMargins = Fiddle::Function.new(
  lib['GetThemeMargins'],
  [
    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,  # prc : RECT* optional
    Fiddle::TYPE_VOIDP,  # pMargins : MARGINS* out
  ],
  Fiddle::TYPE_INT)

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

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

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

出力引数:

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