[Bug 11639] shift+click not working in wine

http://bugs.winehq.org/show_bug.cgi?id=11639

--- Comment #4 from petrescs   2008-02-20 06:10:10 ---
Additional info from programmer: they are using Windows API GetAsyncKeyState(),
see below:

procedure TSDIAppForm.Button1Click(Sender: TObject);
  var v : integer;
begin
  v := GetAsyncKeyState(VK_LSHIFT);
  rez_lshift.Caption :=  inttostr(v);
  v := GetAsyncKeyState(VK_RSHIFT);
  rez_rshift.Caption :=  inttostr(v);
  v := GetAsyncKeyState(VK_LCONTROL);
  rez_lcontrol.Caption :=  inttostr(v);
  v := GetAsyncKeyState(VK_RCONTROL);
  rez_rcontrol.Caption :=  inttostr(v);
end;

GetAsyncKeyState() is documented at
http://msdn2.microsoft.com/en-us/library/ms646293(VS.85).aspx

Hope this helps.

Thanks,
Silviu