🚀 go-pugleaf

Why i can get the butons 5,6,7 and 8 of my USB Joystick?


Best Regards,

 Edward.


My code





void __fastcall TFormPrincipal::FormCreate(TObject *Sender)
{
  MMRESULT jr;
  JOYINFOEX JoyInfo;
  int joycount=joyGetNumDevs();

  if (joycount=0)
    Memo1->Lines->Add("ok 1");
  else
  {
    connect=false;
    jr=joyGetPosEx(JOYSTICKID1,&JoyInfo);
    if (jr ==JOYERR_NOERROR)
    {
     connect=true;
      jnum= JOYSTICKID1;
    }
    else
     if (jr == MMSYSERR_INVALPARAM)
       ShowMessage("deu merda");
     else if((jr=joyGetPosEx(JOYSTICKID2,&JoyInfo)) == JOYERR_NOERROR)
     {
       connect = true;
       jnum= JOYSTICKID2;
     }
  }
  joyGetDevCaps(jnum,&JoyCaps, sizeof(JOYCAPS));
  if (connect)
    Memo1->Lines->Add("Conected") ;

   Memo1->Lines->Add("jnum : "+ IntToStr(jnum));
   Memo1->Lines->Add("JoyCaps.szPnam : " + AnsiString(JoyCaps.szPname));
   Memo1->Lines->Add("JoyCaps.wNumButtons : " +
IntToStr(JoyCaps.wNumButtons));

  if (connect)
  {
    joySetCapture(Handle,jnum,2*JoyCaps.wPeriodMin,FALSE);
  }
  stepX = (JoyCaps.wXmax - JoyCaps.wXmin) / PaintBox1->Width;
  stepY = (JoyCaps.wYmax - JoyCaps.wYmin) / PaintBox1->Height;
}
//---------------------------------------------------------------------------

void __fastcall TFormPrincipal::FormDestroy(TObject *Sender)
{
  if (connect)
    joyReleaseCapture(jnum);

}
//---------------------------------------------------------------------------
void __fastcall TFormPrincipal::UpdButton(TMessage &msg)
{
 Shape1->Visible= (msg.WParam &JOY_BUTTON1);
 Shape2->Visible= (msg.WParam &JOY_BUTTON2);
 Shape3->Visible= (msg.WParam &JOY_BUTTON3);
 Shape4->Visible= (msg.WParam &JOY_BUTTON4);
 Shape5->Visible= (msg.WParam &JOY_BUTTON5);
 Shape6->Visible= (msg.WParam &JOY_BUTTON6);
 Shape7->Visible= (msg.WParam &JOY_BUTTON7);
 Shape8->Visible= (msg.WParam &JOY_BUTTON8);
}
//---------------------------------------------------------------------------
void __fastcall TFormPrincipal::UpdCoord(TMessage &msg)
{
  JOYINFO JoyInfo;

  TCanvas *pCanvas = PaintBox1->Canvas;
  pCanvas->Brush->Color=FormPrincipal->Color;
  pCanvas->FillRect(Rect(0,0,PaintBox1->Width,PaintBox1->Height));
  Pos.x =  msg.LParamLo;
  Pos.y =  msg.LParamHi;
  int x=(Pos.x-JoyCaps.wXmin)/stepX-ImageList1->Width/2;
  int y=(Pos.y-JoyCaps.wYmin)/stepY-ImageList1->Height/2;
  ImageList1->Draw(pCanvas,x,y,0,true);
}
//---------------------------------------------------------------------------





        void __fastcall FormDestroy(TObject *Sender);
        void __fastcall UpdButton(TMessage &msg);
        void __fastcall UpdCoord(TMessage &msg);

.h


private:
 int jnum;
 bool connect;
 int stepX,stepY;
 TPoint Pos;
public:
  __fastcall TFormPrincipal(TComponent* Owner);

  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(MM_JOY1BUTTONDOWN,TMessage,UpdButton);
    MESSAGE_HANDLER(MM_JOY1BUTTONUP,TMessage,UpdButton);
    MESSAGE_HANDLER(MM_JOY1MOVE,TMessage,UpdCoord);
    MESSAGE_HANDLER(MM_JOY2BUTTONDOWN,TMessage,UpdButton);
    MESSAGE_HANDLER(MM_JOY2BUTTONUP,TMessage,UpdButton);
    MESSAGE_HANDLER(MM_JOY2MOVE,TMessage,UpdCoord);

  END_MESSAGE_MAP(TForm);

};