MakePointS WinApi Macro für Purebasic

[hjbremer]

Ich habe das WinApi Macro MakePointS wie folgt gelöst.

Aber ist das nun gut oder geht es besser ?

Code: Alles auswählen

Macro MakePointS(points, lparam)
 PokeI(@points, lparam)
EndMacro

Define ps.points
Define lparam = 20447984 

MakePointS(ps, lparam)

Debug ps\x
Debug ps\y

; Ergebnis 752 + 312

[Josh]

Ich weiß nicht, ob es dir auf ps.points ankommt, oder nur auf das Ergebnis x und y. HiWord und LoWord benötigte ich öfter, deshalb habe ich die beiden folgenden Makros ohnehin meistens in meinen Projekten.

Code: Alles auswählen

Macro LoWord (Param) : PeekW (@Param  ) : EndMacro
Macro HiWord (Param) : PeekW (@Param+2) : EndMacro

Define lparam = 20447984

Debug LoWord (lParam)
Debug HiWord (lParam)

P.S.: Hast du MakePointS absichtlich hinten groß geschrieben? Schwer zum lesen