>IF PEMSTATUS(_Screen, 'cboTest', 5) > _Screen.RemoveObject('cboTest') >ENDIF >condition = 1 >DEFINE POPUP popTest > >m.test = IIF(condition=1,'RGB(0,0,0,255,0,0)','RGB(0,0,0,46,56,3)') >DEFINE BAR 1 OF popTest PROMPT 'Red' COLOR ,&test >DEFINE BAR 2 OF popTest PROMPT 'Blue' COLOR ,RGB(0,0,0,0,0,255) >DEFINE BAR 3 OF popTest PROMPT 'Green' COLOR ,RGB(0,0,0,0,255,0) >DEFINE BAR 4 OF popTest PROMPT 'Yellow' COLOR ,RGB(0,0,0,255,255,0) > >_Screen.AddObject('cboTest', 'ComboBox') > >WITH _Screen.cboTest > .Top = 200 > .Left = 50 > .RowSourceType = 9 > .RowSource = 'popTest' > .Visible = .t. > .style = 2 > .value = 3 >ENDWITH>
condition = 2
>