0
El chart de Codejock es algo que me ha encantado. Para poder usarlo, lo principal es crear uno de los estilos visuales dinamicamente via COM, si no lo hacemos, no se visualiza nada. Para ello, tenemos que hacer:
En REPOSITORY:COBOL Código:
CLASS COM AS "*COM"
Luego en donde sea necesario, por ejemplo en "Opened" del Form que va a mostrar el Chart.
Para crear un estilo (por ejemplo el ChartAreaSeriesStyle) del Chart via COM, hacemos lo siguiente (todos los estilos posibles los podeis ver en el ejemplo que se instala para VB) :COBOL Código:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 TXT PIC X(50). 01 CHART-STYLE OBJECT REFERENCE COM. 01 COB-CAPA OBJECT REFERENCE POW-COBJECT. 01 OBJ-CAPA OBJECT REFERENCE COM. PROCEDURE DIVISION. *> CREAMOS ESTILO EN DINAMICO MOVE "Codejock.ChartAreaSeriesStyle.15.0.1" TO TXT INVOKE COM "CREATE-OBJECT" USING TXT RETURNING CHART-STYLE *> AÑADIMOS PRIMERA CAPA DE CHART INVOKE "Series" OF "Content" OF ChartControl1 "Add" USING "CAPA1" RETURNING COB-CAPA *> CONVERTIMOS LA CAPA CREADA EN COM CALL "POWERCONVTOCOM" USING COB-CAPA RETURNING OBJ-CAPA *> APLICAMOS ESTILO INVOKE OBJ-CAPA "SET-STYLE" USING CHART-STYLE *> AÑADIMOS TEXTO DE ENCABEZADO DEL CHART INVOKE "Titles" OF "Content" OF ChartControl1 "Add" USING "Datos del año" *> SI QUEREMOS USAMOS PIEL OSCURA DEL ESTILO INVOKE "Appearance" OF "Content" OF ChartControl1 "SetAppearance" USING "BLACK" *> AÑADIMOS DATOS EN LA CAPA (0 = CAPA1, SI AÑADIMOS OTRA SERIA "Item"(1) ETC) INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº1" 1000 INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº2" 589 INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº3" 1544 INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº4" 879
Resultado aqui en la imagen 1. El resto son ejemplos de apariencias.
Los 6 y 7 son 3D, movibles en ejecucion por raton.
Marcadores