Cambiar puntero mouse

[Xevi]

Bien, en una ventana veo que se puede cambiar el puntero (CURSOR) del mouse, definiendo un CURSOR previamente...

Code: Select all | Expand

   DEFINE CURSOR oCursor WAIT//HAND   DEFINE WINDOW oWnd FROM 1,0 TO 300,500 PIXEL;         CURSOR oCursor 

Pero lo que pretendo es cambiar ese puntero (CURSOR) de un objeto... IMAGE, BUTTON, PANEL, etc...

¿Como lo hago???

He mirado la clase TButton y no tienen ninguna propiedad que vea que se le corresponde al CURSOR
Tampoco la clase TControl, que es de la que se hereda.

Gracias.

[Antonio Linares]

Xevi,

La Clase TControl deriva de la Clase TWindow, por lo que tiene también la propiedad oCursor

[Xevi]

Antonio,

Pues algo está fallando...
CURSOR oCursor no lo traga al compilar...
Y...
oImage:oCursor := oCursor
No cambia de cursor

Code: Select all | Expand

#include "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oWnd, oChild1, oImage, oCursor   DEFINE CURSOR oCursor HAND   DEFINE WINDOW oWnd VSCROLL HSCROLL   @ 0, 0 XIMAGE oImage SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER /*CURSOR oCursor*/ OF oWnd   oImage:oCursor := oCursor   DEFINE WINDOW oChild1 CURSOR oCursor OF oWnd   oChild1:Show()   ACTIVATE WINDOW oWnd return nil 

Aquí SOLO cambia el cursor cuando pasas el mouse por encima de la Ventana2, y no por la imagen

[Antonio Linares]

Xevi,

Tu ejemplo funciona correctamente aquí

La claúsula ... CURSOR oCursor ... no está implementada para el comando XIMAGE ... por eso el usar:

oImage:oCursor := oCursor

[Xevi]

Pues yo no tengo nada raro... y no me funciona

Code: Select all | Expand

#include "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oWnd, oChild1, oImage, oImage2, oCursor   DEFINE CURSOR oCursor HAND   DEFINE WINDOW oWnd FROM 1,0 TO 500,800 PIXEL   @ 0, 0 IMAGE oImage SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER CURSOR oCursor OF oWnd   @ 0, 50 XIMAGE oImage2 SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER OF oWnd   oImage:oCursor := oCursor   DEFINE WINDOW oChild1 OF oWnd   oChild1:Center( oWnd )   oChild1:Show()   ACTIVATE WINDOW oWnd return nil 

El IMAGE si que cambia el CURSOR, el XIMAGE no!!!

Aquí, el centrado se ve que no funciona el cálculo del alto, si lo centra en el ancho, pero no en el alto

[Antonio Linares]

Xevi,

Tienes un pequeño error en tu código:

@ 0, 50 XIMAGE oImage2 SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER OF oWnd
oImage2:oCursor := oCursor

En la función WndCenter() en FWH/source/winapi/wndcente.c hay que hacer esta modificación:

Code: Select all | Expand

   if( hParent && IsWindow( hParent ) )      GetClientRect( hParent, &rctDesktop );   else      GetWindowRect( GetDesktopWindow(), &rctDesktop );

Se incluye este cambio en FWH 18.01, gracias

[Xevi]

Antonio, es verdad, tengo un pequeño error, pero salvando el error

oImage2:oCursor := oCursor

El CURSOR no cambia en XIMAGE

por cierto, he probado el tooltip y tampoco funciona en XIMAGE

Code: Select all | Expand

#include "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oWnd, oChild1, oImage, oImage2, oCursor   DEFINE CURSOR oCursor HAND   DEFINE WINDOW oWnd FROM 1,0 TO 500,800 PIXEL   @ 0, 0 IMAGE oImage SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER CURSOR oCursor OF oWnd   oImage:cTooltip := "Mensaje Tooltip"   @ 0, 50 XIMAGE oImage2 SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER OF oWnd   oImage2:oCursor := oCursor   oImage2:cTooltip := "Mensaje Tooltip2"   DEFINE WINDOW oChild1 OF oWnd   oChild1:Center( oWnd )   oChild1:Show()   ACTIVATE WINDOW oWnd return nil 

[Antonio Linares]

Xevi,

Aquí funciona correctamente y posiblemente se deba a los cambios que hemos introducido para FWH 18.01 que esperamos publicar en breve

Que compilador de C usas ?

[Xevi]

Borland BCC7

[karinha]

Code: Select all | Expand

#include "FiveWin.ch"#include "Image.ch"function Main()   local oWnd, oChild1, oImage, oImage2, oCursor, oBrush   DEFINE BRUSH oBrush COLOR nRGB(210,210,255) // ,nRGB(255,255,255)   DEFINE CURSOR oCursor HAND   DEFINE WINDOW oWnd FROM 1,0 TO 500,800 PIXEL ;          CURSOR oCursor BRUSH oBrush   @ 0, 0 IMAGE oImage SIZE 32, 32 FILENAME "C:\fwh1701\bitmaps\32x32\App.bmp" NOBORDER CURSOR oCursor OF oWnd   oImage:cTooltip := "Mensaje Tooltip"   // XIMAGE??   @ 0, 50 IMAGE oImage2 SIZE 32, 32 FILENAME "C:\fwh1701\bitmaps\32x32\App.bmp" NOBORDER OF oWnd   oImage2:oCursor := oCursor   oImage2:cTooltip := "Mensaje Tooltip2"   DEFINE WINDOW oChild1 OF oWnd   oChild1:Center( oWnd )   oChild1:Show()   ACTIVATE WINDOW oWnd CENTERreturn nil 

Saludos.