- Code: Select all Expand view
- #include "FiveWin.ch"
#include "Constant.ch"
Function test()
local oDlg,oBrw,oFont
local cTitle:= "Tabella Premi"
local nBottom := 27.3
local nRight := 110
local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
local nHeight := nBottom * DLG_CHARPIX_H
local nGiocata:= 1.00
local aGet[1]
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
DEFINE DIALOG oDlg SIZE nWidth, nHeight ;
PIXEL TRUEPIXEL FONT oFont ;
TiTle cTitle
@ 100,10 GET aGet[1] VAR nGiocata SPINNER MIN 0.50 MAX 200 ;
ON UP 0.50 ON DOWN 0.50 ;
SIZE 80,24 RIGHT PIXEL of oDlg PICTURE "€ 999.99"
ACTIVATE DIALOG oDlg center
return nil
if I press the spinner nothing happens
the only one if I take off ON UP 0.50 ON DOWN 0.50 ;
but I would like the end user to be able to select € 0.50 at a time from a minimum of € 0.50 to a maximum of € 200 and the initial value must be € 1.00
why not run ?