[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