Form VL_SAM036: Graph Style
Name: VL_SAM036
Description: The following RDMLX form demonstrates various graph styles.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) BORDERICONS(Maximize+Minimize+SystemMenu) HEIGHT(518) WIDTH(760);
;
DEFINE_COM CLASS(#PRIM_GRID) NAME(#GRID_1) DISPLAYPOSITION(1) HEIGHT(97) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(305);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_1) DISPLAYPOSITION(1) PARENT(#GRID_1) SOURCE(#EMPNO) WIDTH(40);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_2) DISPLAYPOSITION(2) PARENT(#GRID_1) READONLY(False) SOURCE(#SALARY) WIDTH(30);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_3) COLUMNSYMBOL(FilledUpTriangle) DISPLAYPOSITION(3) PARENT(#GRPH_1) SOURCE(#MNTHSAL);
;
DEFINE_COM CLASS(#PRIM_GRPH) NAME(#GRPH_1) DISPLAYPOSITION(2) HEIGHT(369) LEFT(8) PARENT(#COM_OWNER) SCATTERSTYLE(SymbolAtPoints+Solid) SURFACESTYLE(ConnectLinesInBlack) TABPOSITION(2) TOP(112) WIDTH(305);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_1) COLUMNROLE(Label) DISPLAYPOSITION(1) PARENT(#GRPH_1) SOURCE(#EMPNO);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_2) COLUMNSYMBOL(HollowUpTriangle) DISPLAYPOSITION(2) PARENT(#GRPH_1) SOURCE(#SALARY);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Property GraphType') DISPLAYPOSITION(3) HEIGHT(481) LEFT(328) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(8) WIDTH(417);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION(Area) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_2) CAPTION(Bar) DISPLAYPOSITION(2) LEFT(216) PARENT(#GPBX_1) TABPOSITION(2) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_3) CAPTION(Pie) DISPLAYPOSITION(3) LEFT(216) PARENT(#GPBX_1) TABPOSITION(3) TOP(192);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_4) CAPTION(Scatter) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_1) TABPOSITION(4) TOP(272);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_5) CAPTION(Line) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_1) TABPOSITION(5) TOP(120);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_6) CAPTION(Surface) DISPLAYPOSITION(6) LEFT(216) PARENT(#GPBX_1) TABPOSITION(6) TOP(344);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Property BarStyle') DISPLAYPOSITION(7) HEIGHT(145) LEFT(216) PARENT(#GPBX_1) TABPOSITION(7) TABSTOP(False) TOP(40) WIDTH(193);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_7) CAPTION(3D) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_2) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_8) CAPTION(Clustered) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_2) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_9) CAPTION(ClusterInZAxis) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_2) TABPOSITION(3) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_10) CAPTION(Horizontal) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_2) TABPOSITION(4) TOP(88);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_11) CAPTION(NoLabels) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_2) TABPOSITION(5) TOP(112);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_12) CAPTION(Stacked) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_2) TABPOSITION(6) TOP(16) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_13) CAPTION(StackedPercentile) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_2) TABPOSITION(7) TOP(40) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_14) CAPTION(SymbolColor) DISPLAYPOSITION(8) LEFT(88) PARENT(#GPBX_2) TABPOSITION(8) TOP(64) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_15) CAPTION(XGrid) DISPLAYPOSITION(9) LEFT(88) PARENT(#GPBX_2) TABPOSITION(9) TOP(88) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_16) CAPTION(YGrid) DISPLAYPOSITION(10) LEFT(88) PARENT(#GPBX_2) TABPOSITION(10) TOP(112) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_3) DISPLAYPOSITION(3) PARENT(#GRID_1) SOURCE(#MNTHSAL) WIDTH(30);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) CAPTION('Property AreaStyle') DISPLAYPOSITION(8) HEIGHT(73) LEFT(8) PARENT(#GPBX_1) TABPOSITION(8) TABSTOP(False) TOP(40) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_17) CAPTION(NoLabels) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_3) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_18) CAPTION(SymbolColor) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_3) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_19) CAPTION(XGrid) DISPLAYPOSITION(3) LEFT(88) PARENT(#GPBX_3) TABPOSITION(3) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_20) CAPTION(YGrid) DISPLAYPOSITION(4) LEFT(88) PARENT(#GPBX_3) TABPOSITION(4) TOP(40);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_4) CAPTION('Property LineStyle') DISPLAYPOSITION(9) HEIGHT(121) LEFT(8) PARENT(#GPBX_1) TABPOSITION(9) TABSTOP(False) TOP(144) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_21) CAPTION(NoLabels) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_4) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_22) CAPTION(Solid) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_4) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_23) CAPTION(Stick) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_4) TABPOSITION(3) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_24) CAPTION(SymbolAtPoints) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_4) TABPOSITION(4) TOP(88);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_25) CAPTION(Thick) DISPLAYPOSITION(5) LEFT(88) PARENT(#GPBX_4) TABPOSITION(5) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_26) CAPTION(XGrid) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_4) TABPOSITION(6) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_27) CAPTION(YGrid) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_4) TABPOSITION(7) TOP(64);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_5) CAPTION('Property PieStyle') DISPLAYPOSITION(10) HEIGHT(121) LEFT(216) PARENT(#GPBX_1) TABPOSITION(10) TABSTOP(False) TOP(216) WIDTH(193);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_28) CAPTION(3D) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_5) TABPOSITION(1) TOP(16) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_29) CAPTION(AutoArrangeLabels) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_5) TABPOSITION(2) TOP(40) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_30) CAPTION(Exploded) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_5) TABPOSITION(3) TOP(64) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_31) CAPTION(NoLabels) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_5) TABPOSITION(4) TOP(88) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_32) CAPTION(Percent) DISPLAYPOSITION(5) LEFT(104) PARENT(#GPBX_5) TABPOSITION(5) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_33) CAPTION(PercentSymbol) DISPLAYPOSITION(6) LEFT(104) PARENT(#GPBX_5) TABPOSITION(6) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_34) CAPTION(SameColor) DISPLAYPOSITION(7) LEFT(104) PARENT(#GPBX_5) TABPOSITION(7) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_35) CAPTION(SymbolColor) DISPLAYPOSITION(8) LEFT(104) PARENT(#GPBX_5) TABPOSITION(8) TOP(88);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_6) DISPLAYPOSITION(11) HEIGHT(145) LEFT(8) PARENT(#GPBX_1) TABPOSITION(11) TABSTOP(False) TOP(296) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_7) DISPLAYPOSITION(12) HEIGHT(97) LEFT(208) PARENT(#GPBX_1) TABPOSITION(12) TABSTOP(False) TOP(368) WIDTH(201);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_36) CAPTION(Curve) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_6) TABPOSITION(1) TOP(13);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_37) CAPTION(NoLabels) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_6) TABPOSITION(2) TOP(37);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_38) CAPTION(ScPattern) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_6) TABPOSITION(3) TOP(61);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_39) CAPTION(Solid) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_6) TABPOSITION(4) TOP(85);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_40) CAPTION(Stick) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_6) TABPOSITION(5) TOP(109);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_41) CAPTION(SymbolAtPoints) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_6) TABPOSITION(6) TOP(13);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_42) CAPTION(Thick) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_6) TABPOSITION(7) TOP(37);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_43) CAPTION(XGrid) DISPLAYPOSITION(8) LEFT(88) PARENT(#GPBX_6) TABPOSITION(8) TOP(61);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_44) CAPTION(YGrid) DISPLAYPOSITION(9) LEFT(88) PARENT(#GPBX_6) TABPOSITION(9) TOP(85);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_45) CAPTION(ConnectLines) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_7) TABPOSITION(1) TOP(16) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_46) CAPTION(ConnectLinesInBlack) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_7) TABPOSITION(2) TOP(40) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_47) CAPTION(NoLabels) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_7) TABPOSITION(3) TOP(64) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_48) CAPTION(SolidSiedWalls) DISPLAYPOSITION(4) LEFT(112) PARENT(#GPBX_7) TABPOSITION(4) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_49) CAPTION(XGrid) DISPLAYPOSITION(5) LEFT(112) PARENT(#GPBX_7) TABPOSITION(5) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_50) CAPTION(YGrid) DISPLAYPOSITION(6) LEFT(112) PARENT(#GPBX_7) TABPOSITION(6) TOP(64);
* ;
* Define Fields:;
DEFINE FIELD(#COUNTER1) TYPE(*DEC) LENGTH(1) DECIMALS(0);
* ;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #grid_1;
clr_list #grph_1;
select (#empno #salary #mnthsal) from_file(pslmst);
add_entry #grid_1;
add_entry #grph_1;
CHANGE FIELD(#COUNTER1) TO('#COUNTER1 + 1');
LEAVE IF('#COUNTER1 = 5');
endselect ;
;
ENDROUTINE ;
;
* ;
* Property Graptype ;
EVTROUTINE HANDLING(#PHBN_1.Click);
set #grph_1 GraphType(Area);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_2.Click);
set #grph_1 GraphType(Bar);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_5.Click);
set #grph_1 GraphType(Line);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_3.Click);
set #grph_1 GraphType(Pie);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_4.Click);
set #grph_1 GraphType(Scatter);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_6.Click);
set #grph_1 GraphType(Surface);
ENDROUTINE ;
;
* ;
* Property BarType;
EVTROUTINE HANDLING(#PHBN_7.Click);
set #grph_1 BarStyle(3D);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_8.Click);
set #grph_1 BarStyle(Clustered);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_9.Click);
set #grph_1 BarStyle(ClusterInZAxis);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_10.Click);
set #grph_1 BarStyle(Horizontal);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_11.Click);
set #grph_1 BarStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_12.Click);
set #grph_1 BarStyle(Stacked);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_13.Click);
set #grph_1 BarStyle(StackedPercentile);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_14.Click);
set #grph_1 BarStyle(SymbolColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_15.Click);
set #grph_1 BarStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_16.Click);
set #grph_1 BarStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property AreaStyle;
EVTROUTINE HANDLING(#PHBN_17.Click);
set #grph_1 AreaStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_18.Click);
set #grph_1 AreaStyle(SymbolColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_19.Click);
set #grph_1 AreaStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_20.Click);
set #grph_1 AreaStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property LineStyle;
EVTROUTINE HANDLING(#PHBN_21.Click);
set #grph_1 LineStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_22.Click);
set #grph_1 LineStyle(Solid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_23.Click);
set #grph_1 LineStyle(Stick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_24.Click);
set #grph_1 LineStyle(SymbolAtPoints);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_25.Click);
set #grph_1 LineStyle(Thick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_26.Click);
set #grph_1 LineStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_27.Click);
set #grph_1 LineStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property PieStyle;
EVTROUTINE HANDLING(#PHBN_28.Click);
set #grph_1 PieStyle(3D);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_29.Click);
set #grph_1 PieStyle(AutoArrangeLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_30.Click);
set #grph_1 PieStyle(Exploded);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_31.Click);
set #grph_1 PieStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_32.Click);
set #grph_1 PieStyle(Percent);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_33.Click);
set #grph_1 PieStyle(PercentSymbol);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_34.Click);
set #grph_1 PieStyle(SameColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_35.Click);
set #grph_1 PieStyle(SymbolColor);
ENDROUTINE ;
;
* ;
* Property ScatterStyle;
EVTROUTINE HANDLING(#PHBN_36.Click);
set #grph_1 ScatterStyle(Curve);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_37.Click);
set #grph_1 ScatterStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_38.Click);
set #grph_1 ScatterStyle(ScPattern);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_39.Click);
set #grph_1 ScatterStyle(Solid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_40.Click);
set #grph_1 ScatterStyle(Stick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_41.Click);
set #grph_1 ScatterStyle(SymbolAtPoints);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_42.Click);
set #grph_1 ScatterStyle(Thick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_43.Click);
set #grph_1 ScatterStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_44.Click);
set #grph_1 ScatterStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property SurfaceStyle;
EVTROUTINE HANDLING(#PHBN_45.Click);
set #grph_1 SurfaceStyle(ConnectLines);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_46.Click);
set #grph_1 SurfaceStyle(ConnectLinesInBlack);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_47.Click);
set #grph_1 SurfaceStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_48.Click);
set #grph_1 SurfaceStyle(SolidSideWalls);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_49.Click);
set #grph_1 SurfaceStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_50.Click);
set #grph_1 SurfaceStyle(YGrid);
ENDROUTINE ;
END_COM ;
Name: VL_SAM036
Description: The following RDMLX form demonstrates various graph styles.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) BORDERICONS(Maximize+Minimize+SystemMenu) HEIGHT(518) WIDTH(760);
;
DEFINE_COM CLASS(#PRIM_GRID) NAME(#GRID_1) DISPLAYPOSITION(1) HEIGHT(97) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(305);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_1) DISPLAYPOSITION(1) PARENT(#GRID_1) SOURCE(#EMPNO) WIDTH(40);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_2) DISPLAYPOSITION(2) PARENT(#GRID_1) READONLY(False) SOURCE(#SALARY) WIDTH(30);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_3) COLUMNSYMBOL(FilledUpTriangle) DISPLAYPOSITION(3) PARENT(#GRPH_1) SOURCE(#MNTHSAL);
;
DEFINE_COM CLASS(#PRIM_GRPH) NAME(#GRPH_1) DISPLAYPOSITION(2) HEIGHT(369) LEFT(8) PARENT(#COM_OWNER) SCATTERSTYLE(SymbolAtPoints+Solid) SURFACESTYLE(ConnectLinesInBlack) TABPOSITION(2) TOP(112) WIDTH(305);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_1) COLUMNROLE(Label) DISPLAYPOSITION(1) PARENT(#GRPH_1) SOURCE(#EMPNO);
;
DEFINE_COM CLASS(#PRIM_GRCL) NAME(#GRCL_2) COLUMNSYMBOL(HollowUpTriangle) DISPLAYPOSITION(2) PARENT(#GRPH_1) SOURCE(#SALARY);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Property GraphType') DISPLAYPOSITION(3) HEIGHT(481) LEFT(328) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(8) WIDTH(417);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION(Area) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_2) CAPTION(Bar) DISPLAYPOSITION(2) LEFT(216) PARENT(#GPBX_1) TABPOSITION(2) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_3) CAPTION(Pie) DISPLAYPOSITION(3) LEFT(216) PARENT(#GPBX_1) TABPOSITION(3) TOP(192);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_4) CAPTION(Scatter) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_1) TABPOSITION(4) TOP(272);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_5) CAPTION(Line) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_1) TABPOSITION(5) TOP(120);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_6) CAPTION(Surface) DISPLAYPOSITION(6) LEFT(216) PARENT(#GPBX_1) TABPOSITION(6) TOP(344);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Property BarStyle') DISPLAYPOSITION(7) HEIGHT(145) LEFT(216) PARENT(#GPBX_1) TABPOSITION(7) TABSTOP(False) TOP(40) WIDTH(193);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_7) CAPTION(3D) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_2) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_8) CAPTION(Clustered) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_2) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_9) CAPTION(ClusterInZAxis) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_2) TABPOSITION(3) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_10) CAPTION(Horizontal) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_2) TABPOSITION(4) TOP(88);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_11) CAPTION(NoLabels) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_2) TABPOSITION(5) TOP(112);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_12) CAPTION(Stacked) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_2) TABPOSITION(6) TOP(16) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_13) CAPTION(StackedPercentile) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_2) TABPOSITION(7) TOP(40) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_14) CAPTION(SymbolColor) DISPLAYPOSITION(8) LEFT(88) PARENT(#GPBX_2) TABPOSITION(8) TOP(64) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_15) CAPTION(XGrid) DISPLAYPOSITION(9) LEFT(88) PARENT(#GPBX_2) TABPOSITION(9) TOP(88) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_16) CAPTION(YGrid) DISPLAYPOSITION(10) LEFT(88) PARENT(#GPBX_2) TABPOSITION(10) TOP(112) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_GDCL) NAME(#GDCL_3) DISPLAYPOSITION(3) PARENT(#GRID_1) SOURCE(#MNTHSAL) WIDTH(30);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) CAPTION('Property AreaStyle') DISPLAYPOSITION(8) HEIGHT(73) LEFT(8) PARENT(#GPBX_1) TABPOSITION(8) TABSTOP(False) TOP(40) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_17) CAPTION(NoLabels) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_3) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_18) CAPTION(SymbolColor) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_3) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_19) CAPTION(XGrid) DISPLAYPOSITION(3) LEFT(88) PARENT(#GPBX_3) TABPOSITION(3) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_20) CAPTION(YGrid) DISPLAYPOSITION(4) LEFT(88) PARENT(#GPBX_3) TABPOSITION(4) TOP(40);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_4) CAPTION('Property LineStyle') DISPLAYPOSITION(9) HEIGHT(121) LEFT(8) PARENT(#GPBX_1) TABPOSITION(9) TABSTOP(False) TOP(144) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_21) CAPTION(NoLabels) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_4) TABPOSITION(1) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_22) CAPTION(Solid) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_4) TABPOSITION(2) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_23) CAPTION(Stick) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_4) TABPOSITION(3) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_24) CAPTION(SymbolAtPoints) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_4) TABPOSITION(4) TOP(88);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_25) CAPTION(Thick) DISPLAYPOSITION(5) LEFT(88) PARENT(#GPBX_4) TABPOSITION(5) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_26) CAPTION(XGrid) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_4) TABPOSITION(6) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_27) CAPTION(YGrid) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_4) TABPOSITION(7) TOP(64);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_5) CAPTION('Property PieStyle') DISPLAYPOSITION(10) HEIGHT(121) LEFT(216) PARENT(#GPBX_1) TABPOSITION(10) TABSTOP(False) TOP(216) WIDTH(193);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_28) CAPTION(3D) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_5) TABPOSITION(1) TOP(16) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_29) CAPTION(AutoArrangeLabels) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_5) TABPOSITION(2) TOP(40) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_30) CAPTION(Exploded) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_5) TABPOSITION(3) TOP(64) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_31) CAPTION(NoLabels) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_5) TABPOSITION(4) TOP(88) WIDTH(97);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_32) CAPTION(Percent) DISPLAYPOSITION(5) LEFT(104) PARENT(#GPBX_5) TABPOSITION(5) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_33) CAPTION(PercentSymbol) DISPLAYPOSITION(6) LEFT(104) PARENT(#GPBX_5) TABPOSITION(6) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_34) CAPTION(SameColor) DISPLAYPOSITION(7) LEFT(104) PARENT(#GPBX_5) TABPOSITION(7) TOP(64);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_35) CAPTION(SymbolColor) DISPLAYPOSITION(8) LEFT(104) PARENT(#GPBX_5) TABPOSITION(8) TOP(88);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_6) DISPLAYPOSITION(11) HEIGHT(145) LEFT(8) PARENT(#GPBX_1) TABPOSITION(11) TABSTOP(False) TOP(296) WIDTH(177);
;
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_7) DISPLAYPOSITION(12) HEIGHT(97) LEFT(208) PARENT(#GPBX_1) TABPOSITION(12) TABSTOP(False) TOP(368) WIDTH(201);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_36) CAPTION(Curve) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_6) TABPOSITION(1) TOP(13);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_37) CAPTION(NoLabels) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_6) TABPOSITION(2) TOP(37);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_38) CAPTION(ScPattern) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_6) TABPOSITION(3) TOP(61);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_39) CAPTION(Solid) DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_6) TABPOSITION(4) TOP(85);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_40) CAPTION(Stick) DISPLAYPOSITION(5) LEFT(8) PARENT(#GPBX_6) TABPOSITION(5) TOP(109);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_41) CAPTION(SymbolAtPoints) DISPLAYPOSITION(6) LEFT(88) PARENT(#GPBX_6) TABPOSITION(6) TOP(13);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_42) CAPTION(Thick) DISPLAYPOSITION(7) LEFT(88) PARENT(#GPBX_6) TABPOSITION(7) TOP(37);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_43) CAPTION(XGrid) DISPLAYPOSITION(8) LEFT(88) PARENT(#GPBX_6) TABPOSITION(8) TOP(61);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_44) CAPTION(YGrid) DISPLAYPOSITION(9) LEFT(88) PARENT(#GPBX_6) TABPOSITION(9) TOP(85);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_45) CAPTION(ConnectLines) DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_7) TABPOSITION(1) TOP(16) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_46) CAPTION(ConnectLinesInBlack) DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_7) TABPOSITION(2) TOP(40) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_47) CAPTION(NoLabels) DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_7) TABPOSITION(3) TOP(64) WIDTH(105);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_48) CAPTION(SolidSiedWalls) DISPLAYPOSITION(4) LEFT(112) PARENT(#GPBX_7) TABPOSITION(4) TOP(16);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_49) CAPTION(XGrid) DISPLAYPOSITION(5) LEFT(112) PARENT(#GPBX_7) TABPOSITION(5) TOP(40);
;
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_50) CAPTION(YGrid) DISPLAYPOSITION(6) LEFT(112) PARENT(#GPBX_7) TABPOSITION(6) TOP(64);
* ;
* Define Fields:;
DEFINE FIELD(#COUNTER1) TYPE(*DEC) LENGTH(1) DECIMALS(0);
* ;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
clr_list #grid_1;
clr_list #grph_1;
select (#empno #salary #mnthsal) from_file(pslmst);
add_entry #grid_1;
add_entry #grph_1;
CHANGE FIELD(#COUNTER1) TO('#COUNTER1 + 1');
LEAVE IF('#COUNTER1 = 5');
endselect ;
;
ENDROUTINE ;
;
* ;
* Property Graptype ;
EVTROUTINE HANDLING(#PHBN_1.Click);
set #grph_1 GraphType(Area);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_2.Click);
set #grph_1 GraphType(Bar);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_5.Click);
set #grph_1 GraphType(Line);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_3.Click);
set #grph_1 GraphType(Pie);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_4.Click);
set #grph_1 GraphType(Scatter);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_6.Click);
set #grph_1 GraphType(Surface);
ENDROUTINE ;
;
* ;
* Property BarType;
EVTROUTINE HANDLING(#PHBN_7.Click);
set #grph_1 BarStyle(3D);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_8.Click);
set #grph_1 BarStyle(Clustered);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_9.Click);
set #grph_1 BarStyle(ClusterInZAxis);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_10.Click);
set #grph_1 BarStyle(Horizontal);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_11.Click);
set #grph_1 BarStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_12.Click);
set #grph_1 BarStyle(Stacked);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_13.Click);
set #grph_1 BarStyle(StackedPercentile);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_14.Click);
set #grph_1 BarStyle(SymbolColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_15.Click);
set #grph_1 BarStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_16.Click);
set #grph_1 BarStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property AreaStyle;
EVTROUTINE HANDLING(#PHBN_17.Click);
set #grph_1 AreaStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_18.Click);
set #grph_1 AreaStyle(SymbolColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_19.Click);
set #grph_1 AreaStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_20.Click);
set #grph_1 AreaStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property LineStyle;
EVTROUTINE HANDLING(#PHBN_21.Click);
set #grph_1 LineStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_22.Click);
set #grph_1 LineStyle(Solid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_23.Click);
set #grph_1 LineStyle(Stick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_24.Click);
set #grph_1 LineStyle(SymbolAtPoints);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_25.Click);
set #grph_1 LineStyle(Thick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_26.Click);
set #grph_1 LineStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_27.Click);
set #grph_1 LineStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property PieStyle;
EVTROUTINE HANDLING(#PHBN_28.Click);
set #grph_1 PieStyle(3D);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_29.Click);
set #grph_1 PieStyle(AutoArrangeLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_30.Click);
set #grph_1 PieStyle(Exploded);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_31.Click);
set #grph_1 PieStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_32.Click);
set #grph_1 PieStyle(Percent);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_33.Click);
set #grph_1 PieStyle(PercentSymbol);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_34.Click);
set #grph_1 PieStyle(SameColor);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_35.Click);
set #grph_1 PieStyle(SymbolColor);
ENDROUTINE ;
;
* ;
* Property ScatterStyle;
EVTROUTINE HANDLING(#PHBN_36.Click);
set #grph_1 ScatterStyle(Curve);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_37.Click);
set #grph_1 ScatterStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_38.Click);
set #grph_1 ScatterStyle(ScPattern);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_39.Click);
set #grph_1 ScatterStyle(Solid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_40.Click);
set #grph_1 ScatterStyle(Stick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_41.Click);
set #grph_1 ScatterStyle(SymbolAtPoints);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_42.Click);
set #grph_1 ScatterStyle(Thick);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_43.Click);
set #grph_1 ScatterStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_44.Click);
set #grph_1 ScatterStyle(YGrid);
ENDROUTINE ;
;
* ;
* Property SurfaceStyle;
EVTROUTINE HANDLING(#PHBN_45.Click);
set #grph_1 SurfaceStyle(ConnectLines);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_46.Click);
set #grph_1 SurfaceStyle(ConnectLinesInBlack);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_47.Click);
set #grph_1 SurfaceStyle(NoLabels);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_48.Click);
set #grph_1 SurfaceStyle(SolidSideWalls);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_49.Click);
set #grph_1 SurfaceStyle(XGrid);
ENDROUTINE ;
EVTROUTINE HANDLING(#PHBN_50.Click);
set #grph_1 SurfaceStyle(YGrid);
ENDROUTINE ;
END_COM ;