Testers wanted: TBGL_MouseGetPos* with RenderMatrix2D support

[Petr Schreiber]

Hi,

as DirectuX suggested, it might be handy to have TBGL_MouseGetPosX & TBGL_MouseGetPosY aware of the RenderMatrix2D coordinates.

I attach version which should achieve the following:
- preserve backward compatibility for TBGL_MouseGetPosX & TBGL_MouseGetPosY
- add ability to specify %TBGL_2D or %TBGL_CLIENTAREA as parameters for these functions, controling their behaviour
- add TBGL_MouseInClient function to check whether mouse is in window client area

Just copy the DLL from the attachement to the Lib directory & try different scenarios.

Example:




uses "tbgl"


function tbmain()

dword hWin = tbgl_createWindowEx ("201x201 - ESC to quit", 201, 201, 32, %TBGL_WS_WINDOWED or %TBGL_WS_DONTSIZE)
tbgl_showWindow

tbgl_useDepth false


tbgl_resetKeyState()


while tbgl_isWindow(hWin)

tbgl_clearFrame


tbgl_renderMatrix2D(-100, 100, 100, -100, %TBGL_PIXEL_PERFECT_2D)

tbgl_polygonlook %GL_LINE
tbgl_color 255, 0, 0
tbgl_rect(-100, -100, 100, 100)


tbgl_drawFrame

if tbgl_getWindowKeyState(hWin, %VK_ESCAPE) then
exit while
end if

if tbgl_mouseInClient then
tbgl_setwindowtitle(hWin, tbgl_mousegetposx(%TBGL_2D) + " " + tbgl_mousegetposy(%TBGL_2D))
else
tbgl_setwindowtitle(hWin, "Mouse is out of the client area")
end if
wend


tbgl_destroyWindow

end function



Thank you for your help,
Petr

[DirectuX]

Just copy the DLL from the attachement to the Lib directory & try different scenarios.


Thank you for your help,
Petr

Hi, Petr,

I can't see the attachment...

[Petr Schreiber]

Hi Sebastian,

I re-uploaded the attachment - it got rejected as DLL, but once ZIPped, it can be attached nicely :)


Petr

[ErosOlmi]

Your attached TBGL works fine here

[Petr Schreiber]

Thank you Eros,

works okay here as well, integrated & documented & will be present in next thinBasic release :)


Petr

[Lionheart008]

good morning, the mouse example doesn't work here properly, the rectangle window frame appears however when I am drag mouse over little window frame I have got an error something with 2d-matrix etcpp... I am using windows 10 with 64 bit, and have downloaded last thinbasic and tbgl package, regards, frank

[Lionheart008]

picture see below I have forgotten to send, thanks :-)

[DirectuX]

picture see below I have forgotten to send, thanks :-)

Hi Lionheart008,
on your screenshot there are 3 parenthesis at the end of the line 34 ,
there should be 2.