Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Action Checked/Disabled doesn't work

Status
Not open for further replies.

bestbrad

MIS
Jul 15, 2003
2
US
Hello All,

Hi All,

I have a shape that I want the user to be able to both change the
connector type (which just changes the connector color) and some text
on the shape. I have created a combination of some user defined cells
and some actions to achieve this. My problem is that the action
disabled doesn't to be working consistently. The first and last
actions work correctly. All the ones in the middle never gray out.
Below is a copy of my cells. Can anyone figure out what I am doing
wrong?

Thanks!

Code:
Start Section : USER DEFINED CELLS
Cell			 Value	Formula
User.ATen		 5.0000	5
User.AOne		 0.0000	0
User.BTen		 5.0000	5
User.BOne		 0.0000	0
User.Ratio		 Fifty	Fifty
User.Connector		 UPC	UPC
User.ShowSC_UPC_Selected 0.0000	0
User.ShowSC_UPC_Control	 FALSE	IF(User.ShowSC_UPC_Selected=1,SETF(GetRef(User.ShowSC_UPC_Selected),0)+SETF(GetRef(Sheet.34!FillForegnd),4)+SETF(GetRef(Sheet.34!LineColor),10)+SETF(GetRef(Sheet.37!LineColor),10)+SETF(GetRef(Sheet.58!FillForegnd),4)+SETF(GetRef(Sheet.58!LineColor),10)+SETF(GetRef(Sheet.62!LineColor),10)+SETF(GetRef(Sheet.66!FillForegnd),4)+SETF(GetRef(Sheet.66!LineColor),10)+SETF(GetRef(Sheet.69!LineColor),10),FALSE)
User.ShowSC_Selected	 0.0000	0
User.ShowSC_Control	 FALSE	IF(User.ShowSC_Selected=1,SETF(GetRef(User.ShowSC_Selected),0)+SETF(GetRef(Sheet.34!FillForegnd),9)+SETF(GetRef(Sheet.34!LineColor),3)+SETF(GetRef(Sheet.37!LineColor),3)+SETF(GetRef(Sheet.58!FillForegnd),9)+SETF(GetRef(Sheet.58!LineColor),3)+SETF(GetRef(Sheet.62!LineColor),3)+SETF(GetRef(Sheet.66!FillForegnd),9)+SETF(GetRef(Sheet.66!LineColor),3)+SETF(GetRef(Sheet.69!LineColor),3),FALSE)
End Section : USER DEFINED CELLS  (CELLS TOTAL : 20)

Start Section : ACTIONS
Cell			Value	Formula
Actions.Action		0.0000	RUNADDON("Network Shape Properties")
Actions.Menu		%Properties	%Properties
Actions.Prompt		Set the custom properties of the selected shape.	Set the custom properties of the selected shape.
Actions.Checked	0	0
Actions.Disabled	0	0
Actions.Action[2]	0.0000	SETF(GetRef(User.ShowSC_Selected),1)+SETF(GetRef(User.Connector),""SC"")
Actions.Menu[2]		Select SC	Select SC
Actions.Prompt[2]	Select SC	Select SC
Actions.Checked[2]	0	IF(StrSame(User.Connector,"SC",TRUE),1,0)
Actions.Disabled[2]	0	IF(Actions.Checked[2],1,0)
Actions.Action[3]	0.0000	SETF(GetRef(User.ShowSC_UPC_Selected),1)+SETF(GetRef(User.Connector),""UPC"")
Actions.Menu[3]		Select SC-UPC	Select SC-UPC
Actions.Prompt[3]	Select SC-UPC	Select SC-UPC
Actions.Checked[3]	0	IF(StrSame(User.Connector,"UPC",TRUE),1,0)
Actions.Disabled[3]	0	IF(Actions.Checked[3],1,0)
Actions.Action[4]	0.0000	SETF(GetRef(User.ATen),5)+SETF(GetRef(User.AOne),0)+SETF(GetRef(User.BTen),5)+SETF(GetRef(User.BOne),0)+SETF(GetRef(User.Ratio),""Fifty"")
Actions.Menu[4]		Select FOML-9350 50/50	Select FOML-9350 50/50
Actions.Prompt[4]	Select FOML-9350 50/50	Select FOML-9350 50/50
Actions.Checked[4]	0	IF(StrSame(User.Ratio,"Fifty",TRUE),1,0)
Actions.Disabled[4]	0	IF(Actions.Checked[4],1,0)
Actions.Action[5]	0.0000	SETF(GetRef(User.ATen),7)+SETF(GetRef(User.AOne),0)+SETF(GetRef(User.BTen),3)+SETF(GetRef(User.BOne),0)+SETF(GetRef(User.Ratio),""Seventy"")
Actions.Menu[5]		Select FOML-9350 70/30	Select FOML-9350 70/30
Actions.Prompt[5]	Select FOML-9350 70/30	Select FOML-9350 70/30
Actions.Checked[5]	0	IF(StrSame(User.Ratio,"Seventy",TRUE),1,0)
Actions.Disabled[5]	0	IF(Actions.Checked[5],1,0)
Actions.Action[6]	0.0000	SETF(GetRef(User.ATen),9)+SETF(GetRef(User.AOne),0)+SETF(GetRef(User.BTen),1)+SETF(GetRef(User.BOne),0)+SETF(GetRef(User.Ratio),""Ninety"")
Actions.Menu[6]		Select FOML-9350 90/10	Select FOML-9350 90/10
Actions.Prompt[6]	Select FOML-9350 90/10	Select FOML-9350 90/10
Actions.Checked[6]	0	IF(StrSame(User.Ratio,"Ninety",TRUE),1,0)
Actions.Disabled[6]	0	IF(Actions.Checked[6],1,0)
End Section : ACTIONS  (CELLS TOTAL : 30)

Brad
Navius Technologies
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top