LPARAMETERS vNewVal * To do: ... THIS.PropertyName = vNewValSo for the RGB example we could;
* Outside code Thisform.BackColor = "Light Grey" * Form's BackColor assign method LPARAMETERS vNewVal DO CASE CASE vNewVal = "Light Grey" This.BackColor = RGB(192,192,192) CASE vNewVal = "Blue" This.BackColor = RGB(0,0,255) ... ENDCASEThis code will allow other code to assign a backcolor to the form using the color's name in English and simply assigning the name to the backcolor property. The assign method fire and can handle the conversion of the color name to the appropriate RGB() function call.
* Form Backcolor access method LOCAL lcReturn DO CASE CASE Thisform.backcolor = RGB(192,192,192) lcReturn = "Light Grey" CASE Thisform.backcolor = RGB(0,0,255) lcReturn = "Blue" ... ENDCASE RETURN lcReturnIn this case code that;