Cambiar puntero mouse

Cambiar puntero mouse

Postby Xevi » Fri Jan 12, 2018 2:18 pm

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

Code: Select all  Expand view

   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.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Cambiar puntero mouse

Postby Antonio Linares » Sat Jan 13, 2018 8:09 am

Xevi,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35262
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cambiar puntero mouse

Postby Xevi » Sat Jan 13, 2018 10:19 am

Antonio,

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

Code: Select all  Expand view

#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
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Cambiar puntero mouse

Postby Antonio Linares » Sun Jan 14, 2018 6:28 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35262
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cambiar puntero mouse

Postby Xevi » Sun Jan 14, 2018 9:24 pm

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

Code: Select all  Expand view

#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
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Cambiar puntero mouse

Postby Antonio Linares » Mon Jan 15, 2018 5:59 am

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 view
  if( hParent && IsWindow( hParent ) )
      GetClientRect( hParent, &rctDesktop );
   else
      GetWindowRect( GetDesktopWindow(), &rctDesktop );


Se incluye este cambio en FWH 18.01, gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35262
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cambiar puntero mouse

Postby Xevi » Mon Jan 15, 2018 8:51 am

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 view

#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
 
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Cambiar puntero mouse

Postby Antonio Linares » Mon Jan 15, 2018 11:35 am

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 ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 35262
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cambiar puntero mouse

Postby Xevi » Mon Jan 15, 2018 12:47 pm

Borland BCC7
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Cambiar puntero mouse

Postby karinha » Mon Jan 15, 2018 1:09 pm

Image

Code: Select all  Expand view

#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 CENTER

return nil
 


Saludos.
João Santos - São Paulo - Brasil
karinha
 
Posts: 3631
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 5 guests