Clipper/FiveWin - como programar el Mouse en xHarbour modo consola

Hola
Saludos a todos y muchas gracias por sus aportes al foro, me agradaria saber si se puede programar el Mouse en xHarbour modo consola. agradeceria mucho si me pueden ayudar con algun ejemplo o direccion donde puedo encontrar informacion.

Muchas gracias desde ya por su atencion.

Carlos Muñoz
Iquique Chile

El rató se activa en xHarobur modo consola llamado a la función:

SetMouse(.T.)

Automaticamente el GetSys, el MenuSys y el TBrowse quedan controlados por el ratón:

Adicionalmente tienes algunas funciones extras para controlar el ratón:;

Inkey() Retrieves a character from the keyboard buffer or a mouse event.
LastKey() Returns the last Inkey() code retrieved.
MCol() Determines the screen column position of the mouse cursor.
MDblClk() Determines the double-click interval for the mouse.
MHide() Hides the mouse cursor.
MLeftDown() Determines the status of the left mouse button.
MPresent() Determines if a mouse is available.
MRestState() Restores a previously saved state of the mouse.
MRightDown() Determines the status of the left mouse button.
MRow() Determines the screen row position of the mouse cursor.
MSaveState() Saves the current state of the mouse.
MSetBounds() Sets restricting boundaries for the mouse cursor.
MSetCursor() Determines the visibility of the mouse cursor.
MSetPos() Moves the mouse cursor to a new position on screen.
MShow() Displays the mouse cursor.
NextKey() Returns the next pending key or mouse event.
NumButtons() Returns the number of mouse buttons.
SetMouse() Determines the visibility of the mouse cursor.
TBMouse() Moves the browse cursor to the mouse pointer.
WMSetPos() Moves the mouse cursor to a new position in a window.
WSetMouse()

Toda esta documentación de funciones está en el manual de xHarbour que se puede consultar por internet en www.xharbour.com sección documentation.

Hola

Mis mas sinceros agradecimientos por su atencion Sr. Gabriel Pascual.

Carlos Muñoz
Iquique Chile

ps. de seguro sus consejos los implementare en unas rutinas que he compilado con Brmake, xHarbour y Borland Bcc5.
Ahora estoy tratando de utilizar el mismo proyecto con xEdit2, se compila bien sin errores pero al ejecutar el programa no muestra nada, al querer salir del xedit dice que el programa aun esta ejecutandose, he seguido cada paso tal como esta descrito en el manual introductor del xEdit. de todas maneras seguire investigando.

Además debes decirle a Inkey() que procese los eventos del mouse además de las del teclado.

#include "Inkey.ch"

SET EVENTMASK TO INKEY_ALL