|
WIN |
WINDOW |
|
|
TC |
TABCONTROL |
|
|
BUT |
BUTTON |
|
|
FNT |
FONT |
|
|
. |
|
|
|
PNL1 |
PANEL |
|
|
ST |
STATTEXT |
|
|
ET |
EDITTEXT |
|
|
RADIO1 |
RADIO |
|
|
RADIO2 |
RADIO |
|
|
CB |
CHECKBOX |
|
|
. |
|
|
|
PNL2 |
PANEL |
|
|
CB2 |
CHECKBOX |
|
|
ST2 |
STATTEXT |
|
|
CBX |
COMBOBOX |
|
|
. |
|
|
|
RESULT |
INTEGER |
1 |
|
* |
|
|
|
.Create the font, color, window, and tab control objects |
|
. |
|
|
|
|
CREATE |
FNT,"'>MS Sans Serif'",SIZE=8 |
|
|
CREATE |
WIN=117:384:219:659, BGCOLOR=2147483663: |
|
|
|
TITLE="Panel Test" |
|
|
CREATE |
WIN;TC=16:214:11:411: |
|
|
|
TABLABEL="Tab1;Tab2": |
|
|
|
FONT=FNT,ZORDER=10 |
|
* |
|
|
|
.Create the first panel |
|
. |
|
|
|
|
CREATE |
WIN;PNL1=40:200:30:400: |
|
|
|
BGCOLOR=2147483663,ZORDER=20 |
|
. |
|
|
|
|
CREATE |
PNL1;CB=113:140:136:230,"Active": |
|
|
|
BGCOLOR=2147483663,FONT=FNT,STYLE=1 |
|
. |
|
|
|
|
CREATE |
PNL1;ET=43:67:134:323: |
|
|
|
BORDER=1,BGCOLOR=16777215: |
|
|
|
FGCOLOR=2147483666,FONT=FNT,STYLE=1 |
|
. |
|
|
|
|
CREATE |
PNL1;RADIO1=78:108:251:351,"Reseller": |
|
|
|
BGCOLOR=2147483663,FONT=FNT,STYLE=1 |
|
. |
|
|
|
|
CREATE |
PNL1;RADIO2=82:100:136:239,"End User": |
|
|
|
BGCOLOR=2147483663,FONT=FNT,STYLE=1 |
|
. |
|
|
|
|
CREATE |
PNL1;ST=46:66:81:128,"Name:",FNT: |
|
|
|
BGCOLOR=2147483663,STYLE=1: |
|
|
|
ALIGNMENT=3 |
|
* |
|
|
|
.Create the Second panel |
|
. |
|
|
|
|
CREATE |
WIN;PNL2=40:200:30:400: |
|
|
|
BGCOLOR=2147483663,ZORDER=20 |
|
. |
|
|
|
|
CREATE |
PNL2;CB2=40:60:135:230,"Training": |
|
|
|
BGCOLOR=2147483663,FONT=FNT,STYLE=1 |
|
|
|
|
|
|
CREATE |
PNL2;ST2=70:90:10:130,"Employee Type:",FNT: |
|
|
|
BGCOLOR=2147483663,STYLE=1: |
|
|
|
ALIGNMENT=3 |
|
. |
|
|
|
|
CREATE |
PNL2;CBX=70:90:135:325,"","M;Contract;Hourly;Salaried": |
|
|
|
BGCOLOR=16777215,COMBOSTYLE=2,FONT=FNT |
|
* |
|
|
|
.Create the exit button |
|
. |
|
|
|
|
CREATE |
WIN;BUT=225:250:148:250,"E&xit": |
|
|
|
FONT=FNT,DEFAULT=1 |
|
* |
|
|
|
.Activate the panel 1 objects |
|
. |
|
|
|
|
ACTIVATE |
CB |
|
|
ACTIVATE |
ET |
|
|
ACTIVATE |
RADIO1 |
|
|
ACTIVATE |
RADIO2 |
|
|
ACTIVATE |
ST |
|
|
ACTIVATE |
PNL1 |
|
* |
|
|
|
.Activate the panel 2 objects |
|
. |
|
|
|
|
ACTIVATE |
ST2 |
|
|
ACTIVATE |
CBX |
|
|
ACTIVATE |
CB2 |
|
* |
|
|
|
.Activate the tab control, the window, and the exit button |
|
. |
|
|
|
|
ACTIVATE |
TC,CHGTAB,RESULT |
|
|
ACTIVATE |
WIN |
|
|
ACTIVATE |
BUT,END,RESULT |
|
* |
|
|
|
.Wait for an event to occur |
|
. |
|
|
|
|
LOOP |
|
|
|
EVENTWAIT |
|
|
|
REPEAT |
|
|
* |
|
|
|
.Tab change requested |
|
. |
|
|
|
CHGTAB |
|
|
|
|
IF |
(RESULT = 1) |
|
|
DEACTIVATE |
PNL2 |
|
|
ACTIVATE |
PNL1 |
|
|
ELSE |
|
|
|
DEACTIVATE |
PNL1 |
|
|
ACTIVATE |
PNL2 |
|
|
ENDIF |
|
|
|
RETURN |
|
|
* |
|
|
|
.Termination requested |
|
. |
|
|
|
END |
|
|
|
|
STOP |
|
This example demonstrates the use of PANELs with a TABCONTROL.
