Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
A little competition :-)
Message
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00729533
Message ID:
00729829
Views:
11
A property of a control should describe the control.
Your controls on your forms play different roles. Depending of the role of a control you take different actions. So name the role/type of the control and your code will be clear like a full ligth good german beer ;)

PROC Refresh
#DEFINE EDITABLEDATA 1
#DEFINE NAVIGATIONAL 2
#DEFINE SAVECANCEL 3
#DEFINE OTHER 4


WITH This
DO CASE
CASE ISNULL(.type)
* nothing to do
CASE .Role = EDITABLEDATA
* set enabled state to the same value of forms editmode
.Enabled = ThisForm.lEditMode
CASE .Role = NAVIGATIONAL or .Role = SAVECANCEL
* set enabled state to the opposite value of forms editmode
.Enabled = (NOT ThisForm.lEditMode)



>Hi, folks!
>
>Here is a little "competition" <vbg>:
>
>I have a class called "MyButton" with a property "xyz"!
>
>In the refresh event I put the following code:
>
>PROC Refresh
>WITH This
>	DO CASE
>	CASE ISNULL(.xyz)
>		* nothing to do
>	CASE .xyz = .T.
>		* set enabled state to the same value of forms editmode
>		.Enabled = ThisForm.lEditMode
>	CASE .xyz = .F.
>		* set enabled state to the opposite value of forms editmode
>		.Enabled = (NOT ThisForm.lEditMode)
>ENDWITH
>ENDPROC
>
>
>Now the question: What is a good, proper, correct name of the property "xyz"?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform