Make a specific label and/or data display larger

salbritton

Does anyone know how to make a specific label and/or data display larger in FACTS (version 7.7 or beyond)? I would assume there would be some way to do this in the SMPRMT record beyond using the "B" (bold) option on the font field. For example, I might want to make a specific field on a specific screen, say, twice the normal size to really stand out.

Any advice is appreciated!

Legacy Contributor

Brad,

You can use the SMPRMT Create and Data Display procedures to change the properties of a control. Below are sample procedures you can apply to any multi-line prompt. The Zip Code field in Customer F/M is a good one to try it on. Put the get_control_info procedure in the Create procedure and the double_red_multiline procedure in the Data Display procedure. As for changing the prompt label, that is a bit more difficult, but can be done. We would need to know the 'image' group name that the label belongs to so that we could delete it and re-create it in the larger font size.

--Ken

1000 GET_CONTROL_INFO: ! ^100
1010 local X=num(CONTROLS.ID$),X$=str(X)
1020 via ("CONTROL_WIDTH_"+X$)=X'WIDTH
1030 via ("CONTROL_HEIGHT_"+X$)=X'HEIGHT
1040 via ("CONTROL_FONT_"+X$)=X'FONT$
1050 return

1100 DOUBLE_RED_MULTILINE: ! ^100
1110 local X=num(CONTROLS.ID$),X$=str(X),FONT$,FONTSIZE
1120 let X'WIDTH=vin(("CONTROL_WIDTH_"+X$))*2
1130 let X'HEIGHT=vin(("CONTROL_HEIGHT_"+X$))*2
1140 read data from vis(("CONTROL_FONT_"+X$)),sep="," to FONT$,FONTSIZE
1150 let X'FONT$=FONT$+","+str(FONTSIZE*2)
1160 let X'TEXTCOLOR$="red"
1170 return