[Lazarus] Forms.pp function error?

Michael Van Canneyt michael at freepascal.org
Tue Oct 16 08:56:22 CEST 2018



On Tue, 16 Oct 2018, AlexeyT via Lazarus wrote:

> function ShiftStateToKeys(ShiftState: TShiftState): PtrUInt;
> begin
>   Result := 0;
>   if ssShift  in ShiftState then Result := Result or MK_SHIFT;
>   if ssCtrl   in ShiftState then Result := Result or MK_CONTROL;
>   if ssLeft   in ShiftState then Result := Result or MK_LBUTTON;
>   if ssRight  in ShiftState then Result := Result or MK_RBUTTON;
>   if ssMiddle in ShiftState then Result := Result or MK_MBUTTON;
>   if ssExtra1 in ShiftState then Result := Result or MK_XBUTTON1;
>   if ssExtra2 in ShiftState then Result := Result or MK_XBUTTON2;
>   if ssDouble in ShiftState then Result := Result or MK_DOUBLECLICK;
>   if ssTriple in ShiftState then Result := Result or MK_TRIPLECLICK;
>   if ssQuad   in ShiftState then Result := Result or MK_QUADCLICK;
> end;
>
> I don't see here "if ssAlt in ...." line

There does not need to be if there is no corresponding MK_nnn value ?
What would be the MK_nnn value for ssAlt ?

Michael.


More information about the Lazarus mailing list