7.3.2 ASSIGN Examples
Simple value assignments
#PHBN_1.Left := 10 #PHBN_2.Left := #PHBN_1.Left + 10 #PHBN_3.Left := #PHBN_2.Left + 10
String assignment
#FullAddress := #Address1.RightTrim + ' ' + #Address2.RightTrim + ' ' + #Address3.RightTrim
Arithmetic assignments
#PHBN_1.Width += 10 #PHBN_1.Height *= 2
Multiple assignments
#ADDRESS1 #ADDRESS2 #ADDRESS3 := *DEFAULT
Reference assignments
#REF_ONE #REF_TWO #REF_THREE <= *NULL Mthroutine Assign_example Define_Map For(*input) Class(#prim_objt) name(#Object) Pass(*by_Reference) Define_Com Class(#Prim_phbn) Name(#Current_button) Reference(*dynamic) #Current_button <= #Object *as #prim_phbn Endroutine