JuanJuan77, aquí está el OCX:
[Aporte] SCGrid 4.5.0.5 Freeware - COBOL Foro
En cuanto a su utilización, es bastante fácil. Haz doble click en su nombre en el código (por ejemplo SCGrid1) y verás sus propiedades.
Puedes variar Rows, Cols, los colores, bordes etc.
Ejemplos de código:
Código COBOL:
move 85 to "ColWidth"(0) OF SCGrid1
move 185 to "ColWidth"(1) OF SCGrid1
move 95 to "ColWidth"(2) OF SCGrid1
move 85 to "ColWidth"(0) OF SCGrid2
move 185 to "ColWidth"(1) OF SCGrid2
move 95 to "ColWidth"(2) OF SCGrid2
move 155 to "ColWidth"(0) OF SCGrid3
move 95 to "ColWidth"(1) OF SCGrid3
move 95 to "ColWidth"(2) OF SCGrid3
move 95 to "ColWidth"(3) OF SCGrid3
MOVE 2 TO "ColTextAlign"(2) OF SCGrid1
MOVE 2 TO "ColTextAlign"(2) OF SCGrid2
MOVE 2 TO "ColTextAlign"(1) OF SCGrid3
MOVE 2 TO "ColTextAlign"(2) OF SCGrid3
MOVE 2 TO "ColTextAlign"(3) OF SCGrid3
MOVE "Referencia" TO "Text"(-1 0) OF SCGrid1
MOVE "Concepto " TO "Text"(-1 1) OF SCGrid1
MOVE "Importe " TO "Text"(-1 2) OF SCGrid1
MOVE "Referencia" TO "Text"(-1 0) OF SCGrid2
MOVE "Concepto " TO "Text"(-1 1) OF SCGrid2
MOVE "Importe " TO "Text"(-1 2) OF SCGrid2
MOVE "Referencia" TO "Text"(-1 0) OF SCGrid3
MOVE "Ingresos " TO "Text"(-1 1) OF SCGrid3
MOVE "Gastos " TO "Text"(-1 2) OF SCGrid3
MOVE "Beneficios" TO "Text"(-1 3) OF SCGrid3
MOVE "Text"(IDX-1 0) OF SCGrid1 TO SV-FECHA
MOVE "Text"(IDX-1 1) OF SCGrid1 TO SV-CONCEP
MOVE "Text"(IDX-1 2) OF SCGrid1 TO SV-IMP