U: on message struct

types/message_386.go

+//----------------------------------------
+//
+// Copyright © yanghy. All Rights Reserved.
+//
+// Licensed under Apache License Version 2.0, January 2004
+//
+// https://www.apache.org/licenses/LICENSE-2.0
+//
+//----------------------------------------
+
+//go:build 386
+
+package types
+
+type WindowPos struct {
+	Hwnd            HWND
+	HwndInsertAfter HWND
+	X               Integer
+	Y               Integer
+	Cx              Integer
+	Cy              Integer
+	Flags           UINT
+}
+
+type TMove struct {
+	Msg      Cardinal
+	MoveType PtrInt // 0 = update, 1 = force RequestAlign, 128 = Source is Interface (Widget has moved)
+	Dummy    LPARAM // needed for64 bit alignment
+	Result   LResult
+}
+
+type TSize struct {
+	Msg      Cardinal
+	SizeType PtrInt // see LCLType.pp (e.g. Size_Restored)
+	Width    Word
+	Height   Word
+	Result   LResult
+}
+
+type TWindowPosChanged struct {
+	Msg       Cardinal
+	Unused    WPARAM
+	WindowPos WindowPos
+	Result    LPARAM
+}

types/message_amd64arm64.go

+//----------------------------------------
+//
+// Copyright © yanghy. All Rights Reserved.
+//
+// Licensed under Apache License Version 2.0, January 2004
+//
+// https://www.apache.org/licenses/LICENSE-2.0
+//
+//----------------------------------------
+
+//go:build amd64 || arm64
+
+package types
+
+type TDWordFiller struct {
+	Filler [4]uint8
+}
+
+type WindowPos struct {
+	Hwnd            HWND
+	HwndInsertAfter HWND
+	X               Integer
+	Y               Integer
+	Cx              Integer
+	Cy              Integer
+	Flags           UINT
+}
+
+type TMove struct {
+	Msg        Cardinal
+	_UnusedMsg Cardinal
+	MoveType   PtrInt // 0 = update, 1 = force RequestAlign, 128 = Source is Interface (Widget has moved)
+	Dummy      LPARAM // needed for64 bit alignment
+	Result     LResult
+}
+
+type TSize struct {
+	Msg          Cardinal
+	MsgFiller    TDWordFiller
+	SizeType     PtrInt // see LCLType.pp (e.g. Size_Restored)
+	Width        Word
+	Height       Word
+	LParamfiller TDWordFiller
+	Result       LResult
+}
+
+type TWindowPosChanged struct {
+	Msg        Cardinal
+	_UnusedMsg Cardinal
+	Unused     WPARAM
+	WindowPos  WindowPos
+	Result     LPARAM
+}

types/types.go

@@ -412,35 +412,3 @@ func (m *HRGN) Free() {
 func (m *HRGN) Instance() uintptr {
 	return uintptr(m.instance)
 }
-
-type WindowPos struct {
-	Hwnd            HWND
-	HwndInsertAfter HWND
-	X               Integer
-	Y               Integer
-	Cx              Integer
-	Cy              Integer
-	Flags           UINT
-}
-
-type TMove struct {
-	Msg      Cardinal
-	MoveType PtrInt // 0 = update, 1 = force RequestAlign, 128 = Source is Interface (Widget has moved)
-	Dummy    LPARAM // needed for64 bit alignment
-	Result   LResult
-}
-
-type TSize struct {
-	Msg      Cardinal
-	SizeType PtrInt // see LCLType.pp (e.g. Size_Restored)
-	Width    Word
-	Height   Word
-	Result   LResult
-}
-
-type TWindowPosChanged struct {
-	Msg       Cardinal
-	Unused    WPARAM
-	WindowPos WindowPos
-	Result    LPARAM
-}