cursor on get

[Silvio.Falconi]

I wish use hand for the btnbmp of a get
I made
aGet[1]:oBtn:oCursor:= TCursor():New(,'HAND')

but it make error ...where is the obj of btnbmp of a tget ?

Code: Select all  Expand view

Application
===========
   Path and name: C:\Work\Errori\get_date\test3.Exe (32 bits)
   Size: 3,603,968 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.12
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 07-08-2018, 17:44:46
   Error description: Error BASE/1005  Variabile non disponibile: OCURSOR
   Args:
     [   1] = U  
     [   2] = O   TCURSOR

Stack Calls
===========
   Called from:  => _OCURSOR( 0 )
   Called from: test3.prg => MAIN( 32 )

[karinha]

Silvio,

Code: Select all  Expand view

   LOCAL oHand

   DEFINE CURSOR oHand RESOURCE "HAND"

   REDEFINE GET aGet[1] VAR XZONACLI PICTURE "@K!" ID 29 OF oDlg ;
        FONT oFont UPDATE COLOR CLR_HRED, CLR_HCYAN CURSOR oHand
 

[karinha]

Code: Select all  Expand view

   DEFINE CURSOR oHand RESOURCE "HAND"

   REDEFINE GET...

   aGet[1]:oCursor := oHand