EMRCREATEPALETTE

構造体

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

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

フィールド

フィールド	型	サイズ	x64	x86	説明
emr	EMR	8	+0	+0	共通レコードヘッダを表すEMR構造体。
ihPal	DWORD	4	+8	+8	作成するパレットのハンドルテーブル内インデックスを表す。
lgpl	LOGPALETTE	8	+12	+12	作成する論理パレットを表すLOGPALETTE構造体。

各言語での定義

#include <windows.h>

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

// PALETTEENTRY  (x64 4 / x86 4 バイト)
typedef struct PALETTEENTRY {
    BYTE peRed;
    BYTE peGreen;
    BYTE peBlue;
    BYTE peFlags;
} PALETTEENTRY;

// LOGPALETTE  (x64 8 / x86 8 バイト)
typedef struct LOGPALETTE {
    WORD palVersion;
    WORD palNumEntries;
    PALETTEENTRY palPalEntry[1];
} LOGPALETTE;

// EMRCREATEPALETTE  (x64 20 / x86 20 バイト)
typedef struct EMRCREATEPALETTE {
    EMR emr;
    DWORD ihPal;
    LOGPALETTE lgpl;
} EMRCREATEPALETTE;

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 PALETTEENTRY
{
    public byte peRed;
    public byte peGreen;
    public byte peBlue;
    public byte peFlags;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct LOGPALETTE
{
    public ushort palVersion;
    public ushort palNumEntries;
    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 1)] public PALETTEENTRY[] palPalEntry;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct EMRCREATEPALETTE
{
    public EMR emr;
    public uint ihPal;
    public LOGPALETTE lgpl;
}

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 PALETTEENTRY
    Public peRed As Byte
    Public peGreen As Byte
    Public peBlue As Byte
    Public peFlags As Byte
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure LOGPALETTE
    Public palVersion As UShort
    Public palNumEntries As UShort
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=1)> Public palPalEntry() As PALETTEENTRY
End Structure

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
Public Structure EMRCREATEPALETTE
    Public emr As EMR
    Public ihPal As UInteger
    Public lgpl As LOGPALETTE
End Structure

import ctypes
from ctypes import wintypes

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

class PALETTEENTRY(ctypes.Structure):
    _fields_ = [
        ("peRed", ctypes.c_ubyte),
        ("peGreen", ctypes.c_ubyte),
        ("peBlue", ctypes.c_ubyte),
        ("peFlags", ctypes.c_ubyte),
    ]

class LOGPALETTE(ctypes.Structure):
    _fields_ = [
        ("palVersion", ctypes.c_ushort),
        ("palNumEntries", ctypes.c_ushort),
        ("palPalEntry", PALETTEENTRY * 1),
    ]

class EMRCREATEPALETTE(ctypes.Structure):
    _fields_ = [
        ("emr", EMR),
        ("ihPal", wintypes.DWORD),
        ("lgpl", LOGPALETTE),
    ]

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

#[repr(C)]
pub struct PALETTEENTRY {
    pub peRed: u8,
    pub peGreen: u8,
    pub peBlue: u8,
    pub peFlags: u8,
}

#[repr(C)]
pub struct LOGPALETTE {
    pub palVersion: u16,
    pub palNumEntries: u16,
    pub palPalEntry: [PALETTEENTRY; 1],
}

#[repr(C)]
pub struct EMRCREATEPALETTE {
    pub emr: EMR,
    pub ihPal: u32,
    pub lgpl: LOGPALETTE,
}

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

type EMR struct {
	iType uint32
	nSize uint32
}

type PALETTEENTRY struct {
	peRed byte
	peGreen byte
	peBlue byte
	peFlags byte
}

type LOGPALETTE struct {
	palVersion uint16
	palNumEntries uint16
	palPalEntry [1]PALETTEENTRY
}

type EMRCREATEPALETTE struct {
	emr EMR
	ihPal uint32
	lgpl LOGPALETTE
}

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

  PALETTEENTRY = record
    peRed: Byte;
    peGreen: Byte;
    peBlue: Byte;
    peFlags: Byte;
  end;

  LOGPALETTE = record
    palVersion: Word;
    palNumEntries: Word;
    palPalEntry: array[0..0] of PALETTEENTRY;
  end;

  EMRCREATEPALETTE = record
    emr: EMR;
    ihPal: DWORD;
    lgpl: LOGPALETTE;
  end;

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

const PALETTEENTRY = extern struct {
    peRed: u8,
    peGreen: u8,
    peBlue: u8,
    peFlags: u8,
};

const LOGPALETTE = extern struct {
    palVersion: u16,
    palNumEntries: u16,
    palPalEntry: [1]PALETTEENTRY,
};

const EMRCREATEPALETTE = extern struct {
    emr: EMR,
    ihPal: u32,
    lgpl: LOGPALETTE,
};

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

  PALETTEENTRY {.bycopy.} = object
    peRed: uint8
    peGreen: uint8
    peBlue: uint8
    peFlags: uint8

  LOGPALETTE {.bycopy.} = object
    palVersion: uint16
    palNumEntries: uint16
    palPalEntry: array[1, PALETTEENTRY]

  EMRCREATEPALETTE {.bycopy.} = object
    emr: EMR
    ihPal: uint32
    lgpl: LOGPALETTE

struct EMR
{
    uint iType;
    uint nSize;
}

struct PALETTEENTRY
{
    ubyte peRed;
    ubyte peGreen;
    ubyte peBlue;
    ubyte peFlags;
}

struct LOGPALETTE
{
    ushort palVersion;
    ushort palNumEntries;
    PALETTEENTRY[1] palPalEntry;
}

struct EMRCREATEPALETTE
{
    EMR emr;
    uint ihPal;
    LOGPALETTE lgpl;
}

HSP用定義

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

; HSP3.7/3.8 は構造体機能が無いため、4byte整数の配列変数で操作します。(x64 レイアウト)
; EMRCREATEPALETTE サイズ: 20 バイト(x64)
dim st, 5    ; 4byte整数×5(構造体サイズ 20 / 4 切り上げ)
; emr : EMR (+0, 8byte)  varptr(st)+0 を基点に操作(8byte:入れ子/配列)
; ihPal : DWORD (+8, 4byte)  st.2 = 値  /  値 = st.2   (lpoke/lpeek も可)
; lgpl : LOGPALETTE (+12, 8byte)  varptr(st)+12 を基点に操作(8byte:入れ子/配列)
; ※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 PALETTEENTRY
    #field byte peRed
    #field byte peGreen
    #field byte peBlue
    #field byte peFlags
#endstruct

#defstruct global LOGPALETTE
    #field short palVersion
    #field short palNumEntries
    #field PALETTEENTRY palPalEntry 1
#endstruct

#defstruct global EMRCREATEPALETTE
    #field EMR emr
    #field int ihPal
    #field LOGPALETTE lgpl
#endstruct

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

EMRCREATEPALETTE

フィールド

各言語での定義

HSP用 定義

HSP用定義