CREATE GROUPBOX Example

Example:

 

*

 

 

.Define the GROUPBOX, and other variables

.

 

 

GB1

GROUPBOX

 

COLOR1

COLOR

 

EDIT1

EDITTEXT

 

FONT1

FONT

 

STEXT1

STATTEXT

 

RADIO1

RADIOGRP

 

BUTTON1

BUTTON

 

RESULT

FORM

2

*

 

 

.Create the Objects

.

 

 

  

CREATE

COLOR1=*WHITE

  

CREATE

GB1=3:12:25:50,TITLE="Options":

  

  

FONT=">Arial(10,BOLD)",STYLE=3DOUT:

 

 

BGCOLOR=COLOR1

  

CREATE

FONT1,"Arial",SIZE=10,BOLD

  

CREATE

STEXT1=5:6:28:33,"Title:",FONT1

  

CREATE

EDIT1=5:6:35:52,BORDER,FONT=FONT1:

  

  

  BGCOLOR=COLOR1

  

CREATE

RADIO1=8:11:35:45,"Display;Spool;Print"

  

CREATE

BUTTON1=16:17:36:43,"Exit"

*

 

 

.Activate the Objects

.

 

 

  

ACTIVATE

GB1

  

ACTIVATE

STEXT1

  

ACTIVATE

EDIT1

  

ACTIVATE

RADIO1

  

ACTIVATE

BUTTON1,EXIT,RESULT

*

 

 

.Wait for an Event to Occur

.

 

 

  

LOOP

 

  

 EVENTWAIT

 

  

REPEAT

 

*

 

 

.Exit Selected

.

 

 

EXIT

 

 

  

STOP

 

 

This example creates a GROUPBOX and adds several objects to it. Upon clicking the EXIT BUTTON, the program terminates.

 


PL/B Language Reference CREATE FONT Example CREATE HSCROLLBAR Example