MakePoints своими руками

[Alex Cones]

http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

В Windows.h такого не нашел ни в Delphi ни в Lazarus. Придется лепить своими руками, но боюсь ошибиться с цифрой в Shr. Подмогнете?

Кажется вот так, знающие люди, подскажите, правильно ли?

Function MakePoint(Param : DWord): TPoint;
Begin
 Result.X := Param And $FFFF;
 Result.Y := Param Shr 16;
End;

[BOBAH13]

Вроде верно, x - младшее слово, y - старшее.

p.s. я не помню, но если sizeof(TPoint) == 4 байта, то тогда вообще можно сделать так result := ^((TPoint^)@Param); дай бог памяти по дельфи, ну думаю ясна идея

[Alex Cones]

Спасибо.....

[GunSmoker]

JwaWinGDI.pas:

function MAKEPOINTS(l: DWORD): POINTS;
begin
  Result.x := LOWORD(l);
  Result.y := HIWORD(l);  
end;

Рекомендую. Заголовочники от Джедаев.