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 -- Regards, Alexey -- _______________________________________________ Lazarus mailing list [email protected] https://lists.lazarus-ide.org/listinfo/lazarus
