*) GENPUSH - Generate Push buttons. *) *) Description: *) Generate code to display push buttons exactly as they appear *) in the painted screen(s). *) PRIVATE m.thepicture m.thepicture = PICTURE IF g_screens[m.g_screen, 7] = 'WINDOWS' OR g_screens[m.g_screen, 7] = 'MAC' SET DECIMALS TO 3 ENDIF \@ <<Vpos>>,<<Hpos>> GET <<Name>> ; DO anybitmapctrl WITH m.thepicture *\ SIZE <<Height>>,<<Width>>,<<Spacing>> *\ SIZE <<m.g_userheight>>,<<m.g_userwidth>>,<<m.g_userspacing>> ; *--TCH 04/02/2003 \ SIZE <<m.g_userheight>>,<<m.g_userwidth>>,<<m.g_userspacing>>; +IIF('VISUAL'$UPPER(VERSION()).and.<<m.g_userspacing>>=0.and.OCCURS(';',<<m.thepicture>>)>=11,.5,; IIF('VISUAL'$UPPER(VERSION()).and.<<m.g_userspacing>>=1.and.OCCURS(';',<<m.thepicture>>)>=11,-.5,0)); SET DECIMALS TO 0 \ DEFAULT <<Initialnum>> DO anyfont DO anystyle DO anywhen DO anyvalid DO anydisabled DO anymessage DO anyerror DO anyscheme RETURN