CREATE BUTTON Example

Example:

*
.Define the BUTTONs and result variable
.
BUTTONS	BUTTON	(3)
RESULT	FORM	2
*
.Create the BUTTONs
.
	CREATE	BUTTONS(1)=4:5:21:30,"Button 1"
	CREATE	BUTTONS(2)=7:8:21:30,"Button 2":
		ICON=10020
	CREATE	BUTTONS(3)=16:17:35:42:
		"Exit",PICTURE="stop-up.bmp"
*
.Activate the BUTTONs
.
	ACTIVATE	BUTTONS(1),DISPM1,RESULT
	ACTIVATE	BUTTONS(2),DISPM2,RESULT
	ACTIVATE	BUTTONS(3),EXIT,RESULT
*
.Wait for an Event to Occur
.
	LOOP
	EVENTWAIT
	REPEAT
*
.Button 1 Selected
.
DISPM1
	DISPLAY	*P35:4,"Button 1 clicked!":
		W2,H=35,*EL;
	RETURN
*
.Button 2 Selected
.
DISPM2
	DISPLAY	*P35:7,"Button 2 clicked!":
		W2,H=35,*EL;
	RETURN
*
.Exit Button Selected
.
EXIT
	STOP

This example creates three BUTTONs on the screen. Button 2 is displayed containing the icon specified by resource number 10020. Button 3 is displayed containing the image specified by "stop-up.bmp". When 'Button 1' or 'Button

2' is clicked, a message is displayed on the screen. When the Button 3 is clicked, the program is terminated.