I have a Modal dialog within a QuickWin application that has a button with a bmp and I am trying to check the status of the mouse button using Jugoslav instruction, within a callback routine:
IF (IAND(GetKeyState(MK_LBUTTON), #8000).NE.0) THEN !Left button pressed
! Some procedure
Although I do not get any error during compilation, the process is unable to take the information when I press the left mouse button.
I tried also
intret = WaitonMouseEvent(MOUSE$LBUTTONDOWN,Keystate,xposition,yposition)
But it did not work either.
Furthermore, I am trying to change the mouse cursor as follows
Integer Function ChangeCursor(ThisCursor)
Integer cursor, oldcursor,ElCursor
hinstance = 0
cursor = LoadCursor(hinstance,ThisCursor)
oldcursor = SetMouseCursor(cursor)
End Function CambieCursor
Then I call the function with:
oldcursor = CambieCursor(IDC_CROSS)
And it does not work.
What am I doing wrong?