[Lazarus] Forms.pp function error?

AlexeyT aaa5500 at ya.ru
Tue Oct 16 08:53:40 CEST 2018


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



More information about the Lazarus mailing list