EMREXTCREATEPEN

構造体

サイズx64: 56 バイト / x86: 56 バイト

サイズ=各フィールドのバイト数(x64/x86 で異なる場合は x64/x86 と併記)。x64/x86 列=フィールドのバイトオフセット(HSPで dupptr / lpoke / wpoke 等に使用)。

フィールド

フィールド	型	サイズ	x64	x86	説明
emr	EMR	8	+0	+0	共通レコードヘッダを表すEMR構造体。
ihPen	DWORD	4	+8	+8	作成する拡張ペンのハンドルテーブル内インデックスを表す。
offBmi	DWORD	4	+12	+12	レコード先頭からBITMAPINFOへのオフセットをバイト単位で表す。
cbBmi	DWORD	4	+16	+16	BITMAPINFOのサイズをバイト単位で表す。
offBits	DWORD	4	+20	+20	レコード先頭からビットデータへのオフセットをバイト単位で表す。
cbBits	DWORD	4	+24	+24	ビットデータのサイズをバイト単位で表す。
elp	EXTLOGPEN32	28	+28	+28	作成する拡張論理ペンを表すEXTLOGPEN32構造体。

各言語での定義

#include <windows.h>

// EMR  (x64 8 / x86 8 バイト)
typedef struct EMR {
    ENHANCED_METAFILE_RECORD_TYPE iType;
    DWORD nSize;
} EMR;

// EXTLOGPEN32  (x64 28 / x86 28 バイト)
typedef struct EXTLOGPEN32 {
    DWORD elpPenStyle;
    DWORD elpWidth;
    DWORD elpBrushStyle;
    COLORREF elpColor;
    DWORD elpHatch;
    DWORD elpNumEntries;
    DWORD elpStyleEntry[1];
} EXTLOGPEN32;

// EMREXTCREATEPEN  (x64 56 / x86 56 バイト)
typedef struct EMREXTCREATEPEN {
    EMR emr;
    DWORD ihPen;
    DWORD offBmi;
    DWORD cbBmi;
    DWORD offBits;
    DWORD cbBits;
    EXTLOGPEN32 elp;
} EMREXTCREATEPEN;

using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct EMR
{
    public uint iType;
    public uint nSize;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct EXTLOGPEN32
{
    public uint elpPenStyle;
    public uint elpWidth;
    public uint elpBrushStyle;
    public uint elpColor;
    public uint elpHatch;
    public uint elpNumEntries;
    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 1)] public uint[] elpStyleEntry;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct EMREXTCREATEPEN
{
    public EMR emr;
    public uint ihPen;
    public uint offBmi;
    public uint cbBmi;
    public uint offBits;
    public uint cbBits;
    public EXTLOGPEN32 elp;
}

Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure EMR
    Public iType As UInteger
    Public nSize As UInteger
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure EXTLOGPEN32
    Public elpPenStyle As UInteger
    Public elpWidth As UInteger
    Public elpBrushStyle As UInteger
    Public elpColor As UInteger
    Public elpHatch As UInteger
    Public elpNumEntries As UInteger
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=1)> Public elpStyleEntry() As UInteger
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure EMREXTCREATEPEN
    Public emr As EMR
    Public ihPen As UInteger
    Public offBmi As UInteger
    Public cbBmi As UInteger
    Public offBits As UInteger
    Public cbBits As UInteger
    Public elp As EXTLOGPEN32
End Structure

import ctypes
from ctypes import wintypes

class EMR(ctypes.Structure):
    _fields_ = [
        ("iType", wintypes.DWORD),
        ("nSize", wintypes.DWORD),
    ]

class EXTLOGPEN32(ctypes.Structure):
    _fields_ = [
        ("elpPenStyle", wintypes.DWORD),
        ("elpWidth", wintypes.DWORD),
        ("elpBrushStyle", wintypes.DWORD),
        ("elpColor", wintypes.DWORD),
        ("elpHatch", wintypes.DWORD),
        ("elpNumEntries", wintypes.DWORD),
        ("elpStyleEntry", wintypes.DWORD * 1),
    ]

class EMREXTCREATEPEN(ctypes.Structure):
    _fields_ = [
        ("emr", EMR),
        ("ihPen", wintypes.DWORD),
        ("offBmi", wintypes.DWORD),
        ("cbBmi", wintypes.DWORD),
        ("offBits", wintypes.DWORD),
        ("cbBits", wintypes.DWORD),
        ("elp", EXTLOGPEN32),
    ]

#[repr(C)]
pub struct EMR {
    pub iType: u32,
    pub nSize: u32,
}

#[repr(C)]
pub struct EXTLOGPEN32 {
    pub elpPenStyle: u32,
    pub elpWidth: u32,
    pub elpBrushStyle: u32,
    pub elpColor: u32,
    pub elpHatch: u32,
    pub elpNumEntries: u32,
    pub elpStyleEntry: [u32; 1],
}

#[repr(C)]
pub struct EMREXTCREATEPEN {
    pub emr: EMR,
    pub ihPen: u32,
    pub offBmi: u32,
    pub cbBmi: u32,
    pub offBits: u32,
    pub cbBits: u32,
    pub elp: EXTLOGPEN32,
}

import "golang.org/x/sys/windows"

type EMR struct {
	iType uint32
	nSize uint32
}

type EXTLOGPEN32 struct {
	elpPenStyle uint32
	elpWidth uint32
	elpBrushStyle uint32
	elpColor uint32
	elpHatch uint32
	elpNumEntries uint32
	elpStyleEntry [1]uint32
}

type EMREXTCREATEPEN struct {
	emr EMR
	ihPen uint32
	offBmi uint32
	cbBmi uint32
	offBits uint32
	cbBits uint32
	elp EXTLOGPEN32
}

type
  EMR = record
    iType: DWORD;
    nSize: DWORD;
  end;

  EXTLOGPEN32 = record
    elpPenStyle: DWORD;
    elpWidth: DWORD;
    elpBrushStyle: DWORD;
    elpColor: DWORD;
    elpHatch: DWORD;
    elpNumEntries: DWORD;
    elpStyleEntry: array[0..0] of DWORD;
  end;

  EMREXTCREATEPEN = record
    emr: EMR;
    ihPen: DWORD;
    offBmi: DWORD;
    cbBmi: DWORD;
    offBits: DWORD;
    cbBits: DWORD;
    elp: EXTLOGPEN32;
  end;

const EMR = extern struct {
    iType: u32,
    nSize: u32,
};

const EXTLOGPEN32 = extern struct {
    elpPenStyle: u32,
    elpWidth: u32,
    elpBrushStyle: u32,
    elpColor: u32,
    elpHatch: u32,
    elpNumEntries: u32,
    elpStyleEntry: [1]u32,
};

const EMREXTCREATEPEN = extern struct {
    emr: EMR,
    ihPen: u32,
    offBmi: u32,
    cbBmi: u32,
    offBits: u32,
    cbBits: u32,
    elp: EXTLOGPEN32,
};

type
  EMR {.bycopy.} = object
    iType: uint32
    nSize: uint32

  EXTLOGPEN32 {.bycopy.} = object
    elpPenStyle: uint32
    elpWidth: uint32
    elpBrushStyle: uint32
    elpColor: uint32
    elpHatch: uint32
    elpNumEntries: uint32
    elpStyleEntry: array[1, uint32]

  EMREXTCREATEPEN {.bycopy.} = object
    emr: EMR
    ihPen: uint32
    offBmi: uint32
    cbBmi: uint32
    offBits: uint32
    cbBits: uint32
    elp: EXTLOGPEN32

struct EMR
{
    uint iType;
    uint nSize;
}

struct EXTLOGPEN32
{
    uint elpPenStyle;
    uint elpWidth;
    uint elpBrushStyle;
    uint elpColor;
    uint elpHatch;
    uint elpNumEntries;
    uint[1] elpStyleEntry;
}

struct EMREXTCREATEPEN
{
    EMR emr;
    uint ihPen;
    uint offBmi;
    uint cbBmi;
    uint offBits;
    uint cbBits;
    EXTLOGPEN32 elp;
}

HSP用定義

HSP3.7/3.8 は構造体機能が無いため4byte整数配列(dim)+peek/poke で操作(32/64bitでサイズ・位置が異なる場合はタブで分割)。IronHSP は NSTRUCT(#defstruct/stdim/->)で32/64bit共通。

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; EMREXTCREATEPEN サイズ: 56 バイト(x64)
dim st, 14    ; 4byte整数×14(構造体サイズ 56 / 4 切り上げ)
; emr : EMR (+0, 8byte)  varptr(st)+0 を基点に操作(8byte:入れ子/配列)
; ihPen : DWORD (+8, 4byte)  st.2 = 値  /  値 = st.2   (lpoke/lpeek も可)
; offBmi : DWORD (+12, 4byte)  st.3 = 値  /  値 = st.3   (lpoke/lpeek も可)
; cbBmi : DWORD (+16, 4byte)  st.4 = 値  /  値 = st.4   (lpoke/lpeek も可)
; offBits : DWORD (+20, 4byte)  st.5 = 値  /  値 = st.5   (lpoke/lpeek も可)
; cbBits : DWORD (+24, 4byte)  st.6 = 値  /  値 = st.6   (lpoke/lpeek も可)
; elp : EXTLOGPEN32 (+28, 28byte)  varptr(st)+28 を基点に操作(28byte:入れ子/配列)
; ※4byte境界の整数は添字 st.N(N=オフセット/4)で読み書き可。それ以外は peek/poke 系を使用。

; IronHSP は NSTRUCT(構造体)をサポート。32bit/64bit どちらでも同じコードで動作します。
; ※GUID・入れ子構造体はデフォルト型でないため、依存する #defstruct を先に定義(下記に同梱)。
#defstruct global EMR
    #field int iType
    #field int nSize
#endstruct

#defstruct global EXTLOGPEN32
    #field int elpPenStyle
    #field int elpWidth
    #field int elpBrushStyle
    #field int elpColor
    #field int elpHatch
    #field int elpNumEntries
    #field int elpStyleEntry 1
#endstruct

#defstruct global EMREXTCREATEPEN
    #field EMR emr
    #field int ihPen
    #field int offBmi
    #field int cbBmi
    #field int offBits
    #field int cbBits
    #field EXTLOGPEN32 elp
#endstruct

stdim st, EMREXTCREATEPEN        ; NSTRUCT 変数を確保
st->ihPen = 100
mes "ihPen=" + st->ihPen

EMREXTCREATEPEN

フィールド

各言語での定義

HSP用 定義

HSP用定義