20000207-16:52 GMT+1 Victor Szakats <info@szelvesz.hu>

This commit is contained in:
Viktor Szakats
2000-02-07 17:00:35 +00:00
parent 07bd6a54ef
commit a9e80410b1
3 changed files with 18 additions and 6 deletions

View File

@@ -1,3 +1,9 @@
20000207-16:52 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/rtl/inkey.c
source/rtl/mouse/mousewin.c
* Win32 mouse related variables renamed and moved to mousewin.c
inkey.c is now accessing it as an extern.
20000207-16:39 GMT+1 Victor Szakats <info@szelvesz.hu>
* include/hbextern.ch
source/runner/stdalone/external.prg

View File

@@ -99,8 +99,8 @@
static DWORD s_cNumRead = 0; /* Ok to use DWORD here, because this is specific... */
static DWORD s_cNumIndex = 0; /* ...to the Windows API, which defines DWORD, etc. */
static INPUT_RECORD s_irInBuf[ INPUT_BUFFER_LEN ];
int hb_gt_iMouseCol = 0;
int hb_gt_iMouseRow = 0;
extern int hb_mouse_iCol;
extern int hb_mouse_iRow;
#endif
#endif
@@ -651,8 +651,8 @@ void hb_inkeyPoll( void ) /* Poll the console keyboard to stuff the Harbour
}
else if( s_irInBuf[ s_cNumIndex ].EventType == MOUSE_EVENT )
{
hb_gt_iMouseCol = s_irInBuf[ s_cNumIndex ].Event.MouseEvent.dwMousePosition.X;
hb_gt_iMouseRow = s_irInBuf[ s_cNumIndex ].Event.MouseEvent.dwMousePosition.Y;
hb_mouse_iCol = s_irInBuf[ s_cNumIndex ].Event.MouseEvent.dwMousePosition.X;
hb_mouse_iRow = s_irInBuf[ s_cNumIndex ].Event.MouseEvent.dwMousePosition.Y;
if( s_irInBuf[ s_cNumIndex ].Event.MouseEvent.dwEventFlags == MOUSE_MOVED )
ch = K_MOUSEMOVE;

View File

@@ -61,11 +61,17 @@ typedef WORD far * LPWORD;
#endif
#endif /* __GNUC__ */
int hb_mouse_iCol;
int hb_mouse_iRow;
/* C callable low-level interface */
void hb_mouse_Init( void )
{
/* TODO: */
hb_mouse_iCol = 0;
hb_mouse_iRow = 0;
}
void hb_mouse_Exit( void )
@@ -94,14 +100,14 @@ int hb_mouse_Col( void )
{
/* TODO: */
return hb_gt_iMouseCol;
return hb_mouse_iCol;
}
int hb_mouse_Row( void )
{
/* TODO: */
return hb_gt_iMouseRow;
return hb_mouse_iRow;
}
void hb_mouse_SetPos( int iRow, int iCol )