Exemplo de um GET SPINNER com Pelles C

[EDUTEK]

Boa tarde

 

Alguém teria um exemplo de como usar um Get Spinner com peles C, eu achi um exemplo com Get normal ( @ ) mas não com recurso

   @ 100, 10 GET aGet[1] VAR nGiocata SPINNER MIN 00 MAX 24 ;
      ON UP   GetStep( aGet[ 1 ],   1 )                     ;
      ON DOWN GetStep( aGet[ 1 ], - 1 )                     ;
      SIZE 80, 24 RIGHT PIXEL OF oDlg PICTURE "€ 999.99"

assim funciona 

mas com Recurso não achei como fazer 

 

[gilmer]

Bom Dia,

  Basta usar o controle normal no Pelles e usar o mesmo no redefine

SPINNER MIN 00 MAX 24 ;
      ON UP   GetStep( aGet[ 1 ],   1 )                     ;
      ON DOWN GetStep( aGet[ 1 ], - 1 )                     ;

  

[kapiaba]

mira: \SAMPLES\TESTCALR.PRG - TESTCALR.RC

Regards, saludos.