VrbMaxPrice = 1234567
VrbMaxPriceB = StrCat("Max Price"," = ",VrbMaxPrice)
Ratings01Format=`WWWDLGED,6.2`
Ratings01Caption=`Ratings`
Ratings01X=400
Ratings01Y=060
Ratings01Width=152
Ratings01Height=188
Ratings01NumControls=005
Ratings01Procedure=`DEFAULT`
Ratings01Font=`DEFAULT`
Ratings01TextColor=`DEFAULT`
Ratings01Background=`DEFAULT,DEFAULT`
Ratings01Config=0
Ratings01001=`051,171,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Finished",0,130,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Ratings01002=`007,032,086,012,VARYTEXT,"VaryText_1",VrbMaxPriceB,DEFAULT,DEFAULT,135,@csRight,DEFAULT,DEFAULT,DEFAULT`
Ratings01003=`111,029,016,012,EDITBOX,"EditBox_1",VrbPriceRate,DEFAULT,DEFAULT,30,@csDigits|@csCenter,DEFAULT,DEFAULT,DEFAULT`
Ratings01004=`007,009,086,014,STATICTEXT,"StaticText_4",DEFAULT,"Required Items",DEFAULT,230,@csCenter,"Microsoft Sans Serif|10752|40|34",DEFAULT,"180|230|230"`
Ratings01005=`097,003,044,024,STATICTEXT,"StaticText_5",DEFAULT," Ratings (0 to 10)",DEFAULT,240,@csCenter,"Microsoft Sans Serif|9728|40|34",DEFAULT,"255|255|180"`
ButtonPushed=Dialog("Ratings01")
:Cancel
Display(3,"VrbPriceRate",VrbPriceRate)
DropWild("Vrb*")
Exit
Because your BUTTON cancels the dialog because of its value of 0 in the template. When you cancel a dialog it does not update control variables.
Thank you td. You have brightened my outlook on life. Myk.