Ap A puntes sobre StringGrid en Delphi Color y alineación en celdas de un StringGrid http://neftali.clubdelphi.com/?p=180
Éste ejemplo muestra cómo programar el evento OnDrawCell de un TStringGrid para modificar la alineación y color de las celdas pertenecientes a una columna completa; Además implementa los metodos de Importar desde un fichero separado por comas e interacción i nteracción con el portapapeles de filas completas (Cortar/Copiar/Pegar). (Cortar/Copiar/Pegar).
En este ejemplo está el código necesario para:
Cambiar la alineación de las columnas del StringGrid (columnas 0, 1 2).
Cambiar el color de una columna.
Cambiar el color de una fila.
Realizar operaciones sobre el portapapeles con una o varias filas.
Cargar (Importar) datos a un StringGrid desde un fichero.
http://www.formauri.es/arrobamasmas/Cursos/index.php?apdo=0402&curso=4_02_03&cap=3
Este componente, situado en la pestaña 'Additional' de la paleta decomponentes, bajo el icono nos va a permitir manipular cadenas que tengan quemostrarse quemostrarse en forma de grid, al estilo de las grids de Excel oAccess. Insertando un componente de este estilo, veremos que aparece asíen el form:
con un número de filas y columnas predeterminado que podremoscambiar. Vamos a estudiar algunas de las propiedades másimportantes con los que cuentan estos objetos, dejando lainvestigación del resto, como siempre, de ejercicio al lector. Es un componentecon muchas posibilidades a descubrir.
Algunas propiedades
BorderStyle Cells Col ColCount Ctl3D FixedCols FixedRows Options Row RowCount
PropertyBorderStyle: PropertyB orderStyle: TBorderStyle; Con esta propiedad fijamos el estilo del borde de la grid. Losvalores posibles son bsSingle y bsNone. Elprimero nos pondrá una línea rodeando la grid y el segundo no. Sinembargo, la apariencia del borde depende también del valor de
lapropiedadCtl3D. Afortunadamente, se puede experimentar entiempo de diseño.
PropertyCells[NCol, NRow: Integer]: String; Gracias a esta propiedad podemos acceder a la cadena que hayaalmacenada en la fila NRow, columna NCol. Losvalores máximos vienen dados por las propiedades ColCount yRowCount .
Property Col: Longint Se trata de una propiedad que sólo está disponible en tiempo deejecución que nos sirve, bien para determinar qué columna ha sidoseleccionada, o bien para mover el foco a la celda que esté en lafila en la que estuviera pero cambiando la columna a la queasignemos a la propiedad Col . Asignando un valor a estapropiedad produce el mismo efecto que si pulsáramos sobre esacolumna. Sabiendo, gracias a esta propiedad, qué columna ha sidoseleccionada, podemos usarla como índice para acceder a uno de los Cells concreto. Hay que añadir que la primera columna es la0, la segunda la 1, y así hasta la última, que esColCount-1.
PropertyColCount: Longint Nos dice cuántas columnas tiene la grid. Si le asignamos unvalor, lo que hace es cambiar el número de columnas de la grid. Lagrid tendrá columnas desde 0 hasta ColCount-1.
Property Ctl3D: Boolean; Fijando este valor a True, el borde del control tieneun aspecto "acolchado" típico de los controles con apariencia 3D,mientras que si se pone a False, el borde es de aparienciaplana. En la imagen podemos ver la misma grid de antes pero conCtl3D = False:
PropertyFixedCols: Integer; En cuanto insertamos una grid en el form, vemos que, aparte delas celdas blancas normales, tiene una fila y una columna extra queson de color gris con apariencia 3D. Estas son las llamadasFixed . En concreto, con FixedCols podemos poner lascolumnas de este estilo que queramos, simplemente asignándoles unvalor. Estas columnas son especiales, puesto que no se desplazan siaparecen las barras de scroll, permanecen fijas (de ahí su nombre),y están indicadas por ejemplo para poner títulos a las filascorrespondientes. Hay que añadir un último punto: no se puede poner el valor de lapropiedadFixedCols a un valor mayor que ColCount -1, es decir, debe haber al menos una columna que sí estésometida al scroll.
PropertyFixedRows: Integer; Exactamente lo mismo que lo dicho para las columnas, perocambiándolo por filas.
PropertyOptions: TGridOptions; El tipo TGridOptions tiene la siguiente definición(extraído de la ayuda de Delphi): TYPE TGridOption = (goFixedVertLine, goFixedHorzLine, goVertLine , goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing , goColSizing, goRowMoving, goColMoving, goEditing, goTabs , goRowSelect, goAlwaysShowEditor, goThumbTracking ); TGridOptions = Set OF TGridOption;
Y cada una de las opciones sirve para... goFixedVertLine
Las líneas verticales son dibujadas para separar las columnasfijas (fixed ) de la grid. goFixedHorzLine
Las líneas horizontales son dibujadas para separar las filasfijas de la grid. goVertLine
Las líneas verticales son dibujadas para separar las columnasno fijas de la grid. goHorzLine
Las líneas horizontales son dibujadas para separar las filas nofijas de la grid. goRangeSelect
Permite al usuario seleccionar un rango de celdas a la vez.Este valor es ignorado si entre las opciones se encuentra goEditing. goDrawFocusSelected
Si incluimos esta opción, las celdas que tengan el foco deentrada serán dibujadas con un color especial para resaltarlas, dela misma manera que las celdas seleccionadas pero sin el foco deentrada. Si no la incluimos, la celda con el foco de entrada sedistingue simplemente porque será rodeada por un rectángulo, perono por color alguno de fondo especial. goRowSizing
Las filas que hacen scroll pueden ser redimensionadasindividualmente en ejecución. goColSizing
Las columnas que hacen scroll redimensionadasindividualmente en ejecución.
pueden
ser
goRowMoving
Las filas que hace scroll pueden ser cambiadas de posición(movidas) usando el ratón.
goColMoving
Las columnas que hace scroll posición(movidas) usando el ratón.
pueden
ser
cambiadas
de
goEditing
Permite al usuario editar el contenido de las celdas. Siincluimos esta opción, la opción goRangeSelect no tieneefecto. goTabs
Permite al usuario moverse entre las celdas de la gridusando Tab y Shift+Tab. goRowSelect
Se selecciona una fila completa en lugar de celdasindividuales. Si tenemos esta opción incluida, la opcióngoAlwaysShowEditor no tiene efecto. goAlwaysShowEditor
La grid se encuentra permanentemente en modo edición (para loque debe estar seleccionada la opción goEditing, de locontrario esta opción por sí sola no tiene efecto). Con ello, elusuario no necesita pulsar Enter o F2 para entrara editar una celda, basta con pulsar sobre ella. Si tenemosseleccionada la opción goRowSelect ,goAlwaysShowEditor no tiene efecto. goThumbTracking
Si añadimos esta opción, la imagen de la grid se actualizamientras el usuario pulsa sobre la barra de scrollparadesplazarse. Si no la añadimos, no veremos por dónde vamos en lagrid hasta que no soltemos la barra de scroll.
PropertyRow: Longint; Se trata de una propiedad que sólo está disponible en tiempo deejecución que nos sirve, bien para determinar qué fila ha sidoseleccionada, o bien para mover el foco a la celda que esté en lacolumna en la que estuviera pero cambiando la fila a la queasignemos a la propiedad Row . Asignando un valor a estapropiedad produce el mismo efecto que si pulsáramos sobre esa fila. Sabiendo, gracias a esta propiedad, qué fila ha sidoseleccionada, podemos usarla como índice para acceder a uno de los Cells concreto. Hay que añadir
que la primera fila es la 0,la segunda la 1, y así hasta la última, que es RowCount-1.Teniendo Col y Row, en un momento dado siemprepodremos acceder a la celda concreta que esté seleccionada, puesestas propiedades nos van a dar sus coordenadas.
PropertyRowCount: Longint; Nos dice cuántas filas tiene la grid. Si le asignamos un valor,lo que hace es cambiar el número de filas de la grid. La gridtendrá filas desde 0 hasta RowCount-1.
Ejemplo Vamos a terminar este capítulo sobre TStringGrid con unpequeño ejemplito. Simplemente, tenemos una grid, llamadaSG, a la que en tiempo de diseño sólo se le ha tocado elvalor de la propiedad Ctl3D poniéndolo a Falseycambiando un poco su posición y tamaño para que quede más o menoscentrada en el form. Entonces, en el onShow del formlecambiaremos el número de filas y de columnas, y escribiremos algodentro de ella: procedure TForm1.FormShow(Sender: TObject); VAR i, j: Integer; begin SG.ColCount := 12; SG.RowCount := 7; FOR i := 1 TO SG.RowCount - 1 DO SG.Cells[0,i] := 'Fila ' + IntToStr(i); FOR i := 1 TO SG.ColCount - 1 DO SG.Cells[i,0] := 'Columna ' + IntToStr(i); FOR i := 1 TO SG.RowCount - 1 DO FOR j := 1 TO SG.ColCount - 1 DO SG.Cells[j,i] := '(' + IntToStr(i) + ',' + IntToStr(j) + ')'; end;
Con esto, tenemos el resultado del gráfico:
Se ha desplazado un poco la barra de scroll para que se vea quela FixedCol es, efectivamente, Fixed .
http://delphiallimite.blogspot.com/2007/09/mostrando-datos-en-el-componente.html
Mostrando datos en el componente StringGrid Anteriormente vimos como mostrar información en un componente ListView llegando incluso a cambiar el color de filas y columnas a nuestro antojo. El único inconveniente estaba en que no se podían cambiar los títulos de las columnas, ya que venían predeterminadas por los colores de Windows. Pues bien, el componente de la clase TStringGrid es algo más cutre que el ListView, pero permite cambiar al 100% el formato de todas las celdas. Veamos primero como meter información en el mismo. Al igual que ocurría con el ListView, todos las celdas de un componente StringGrid son de tipo string, siendo nosotros los que le tenemos que dar formato a mano.
AÑADIENDO DATOS A LA REJILLA Vamos a crear una rejilla de datos con las siguiente columnas: NOMBRE, APELLIDO1, APELLIDO2, NIF, IMPORTE PTE.
Cuando insertamos un componente StringGrid en el formulario nos va a poner por defecto la primera columna con celdas fijas (fixed). Vamos a fijar las siguientes propiedades: Propiedad --------ColCount RowCount FixedCols FixedRows DefaultRowHeight
Valor ----5 4 0 1 20
Descripción ----------5 columnas 4 filas 0 columnas fijas 1 fila fija altura de las filas a 20 pixels
Ahora creamos un procedimiento para completar de datos la rejilla:
procedureTFormulario.RellenarTabla; begin withStringGrid do begin // Título de las columnas Cells[0, 0] := 'NOMBRE'; Cells[1, 0] := 'APELLIDO1'; Cells[2, 0] := 'APELLIDO2'; Cells[3, 0] := 'NIF'; Cells[4, 0] := 'IMPORTE PTE.'; // Datos Cells[0, 1] := Cells[1, 1] := Cells[2, 1] := Cells[3, 1] := Cells[4, 1] :=
'PABLO'; 'GARCIA'; 'MARTINEZ'; '67348321D'; '1500,36';
// Datos Cells[0, 2] := Cells[1, 2] := Cells[2, 2] := Cells[3, 2] := Cells[4, 2] :=
'MARIA'; 'SANCHEZ'; 'PALAZON'; '44878234A'; '635,21';
// Datos Cells[0, 3] := Cells[1, 3] := Cells[2, 3] := Cells[3, 3] := Cells[4, 3] := end; end;
'CARMEN'; 'PEREZ'; 'GUILLEN'; '76892693L'; '211,66';
Al ejecutar el programa puede apreciarse lo mal que quedan los datos en pantalla, sobre todo la columna del importe pendiente:
DANDO FORMATO A LAS CELDAS DE UN COMPONENTE STRINGGRIND Lo que vamos a hacer a continuación es lo siguiente: - La primera fila fija va a ser de color de fondo azul oscuro con fuente blanca y además el texto va a ir centrado.
- La columna del importe pendiente va a tener la fuente de color verde y va a ir alineada a la derecha. - El resto de columnas tendrán el color de fondo blanco y el texto en negro. Todo esto hay que hacerlo en el evento OnDrawCell del componente StringGrid: procedureTFormulario.StringGridDrawCell( Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState ); var sTexto: String; // Texto que va a imprimir en la celda actual Alineacion: TAlignment; // Alineación que le vamos a dar al texto iAnchoTexto: Integer; // Ancho del texto a imprimir en pixels begin withStringGrid.Canvas do begin // Lo primero es coger la fuente por defecto que le hemos asignado al componente Font.Name := StringGrid.Font.Name; Font.Size := StringGrid.Font.Size; ifARow = 0 then Alineacion := taCenter else // Si es la columna del importe pendiente alineamos el texto a la derecha ifACol = 4 then Alineacion := taRightJustify else Alineacion := taLeftJustify; // ¿Es una celda fija de sólo lectura? ifgdFixed in Statethen begin Brush.Color := clNavy; // le ponemos azul de fondo Font.Color := clWhite; // fuente blanca Font.Style := [fsBold]; // y negrita end else begin // ¿Esta enfocada la celda? ifgdFocused in Statethen begin Brush.Color := clRed; // fondo rojo Font.Color := clWhite; // fuente blanca Font.Style := [fsBold]; // y negrita end
else begin // Para el resto de celdas el fondo lo ponemos blanco Brush.Color := clWindow; // ¿Es la columna del importe pendiente? if ACol = 4 then begin Font.Color := clGreen; // la pintamos de azul Font.Style := [fsBold]; // y negrita Alineacion := taRightJustify; end else begin Font.Color := clBlack; Font.Style := []; end; end; end; sTexto := StringGrid.Cells[ACol,ARow]; FillRect( Rect ); iAnchoTexto := TextWidth( sTexto ); case Alineacion of taLeftJustify: TextOut( Rect.Left + 5, Rect.Top + 2, sTexto ); taCenter: TextOut( Rect.Left + ( ( Rect.Right - Rect.Left ) - iAnchoTexto ) div 2, Rect.Top + 2, sTexto ); taRightJustify: TextOut( Rect.Right - iAnchoTexto - 2, Rect.Top + 2, sTexto ); end; end; end;
Así quedaría al ejecutarlo:
Sólo hay un pequeño inconveniente y es que la rejilla primero se pinta de manera normal y luego nosotros volvemos a pintarla encima con el evento OnDrawCell con lo cual hace el proceso dos veces. Si queremos que sólo se haga una vez hay que poner a False la propiedad DefaultDrawing. Quedaría de la siguiente manera:
Por lo demás creo que este componente que puede sernos muy útil para mostrar datos por pantalla en formato de sólo lectura. En formato de escritura es algo flojo porque habría que controlar que tipos de datos puede escribir el usuario según en que columnas esté.
Pruebas realizadas en Delphi 7.
http://www.programacionfacil.com/borland_delphi:stringgrid
III BORLAND DELPHI UNIDAD ARREGLOS 6.- COMPONENTE StringGrid (adicional) DELPHI
Este componente es de los mas importantes, para el procesamiento de muchos datos, permite concentrar, procesar y mostrar gran cantidad de información para la vista del usuario. Este componente presenta, manipula y procesa conjuntos de datos de tipo stringsen forma tabular, es decir en forma de tablas, matrices, cuadros concentrados, ejemplo; CIA ACME INGRESOS POR VENTAS MENSUALES MILLONES DE PESOS ENE FEB MAR ABR SUC A 1 2 3 4 SUC B 5 6 4 5 SUC C 6 7 8 9 Recordar que son los datos numéricos internos quienes se procesan (es decir, se capturan, se realizan operaciones con ellos, se despliegan, etc.), es la información externa quien le da sentido.
Y RECORDAR QUE SUS INDICES EMPIEZAN EN RENGLON=0 y COLUMNA=0. Algunas de sus propiedades y métodos mas interesantes son:
ColCount.- Determina la cantidad de columnas que contendrá la tabla. Recordar que para efectos de programación, la primera de ellas es la columna 0.
RowCount.- Determina la cantidad de renglones que contendrá la tabla. Recordar que para efectos de programación, el primero de ellos es el renglón 0. Fixedcol ,Fixedrow.- Determinan la cantidad de columnas y renglones fijos o de encabezado, estas propiedades ponerlas en 0.
+Options, goediting = true; Para que permita editar o capturar datos al usuario. +Options, gotab = true; Para que el usuario pueda navegar entre celdas usando la tecla del tabulador. Cells[ columna,renglón ], Es la propiedad mas importante, porque es la que permite el acceso a cualquier celda de la tabla, ej. StringGrid1.Cells[1,1] := 'PATO'; Edit1.Text=StringGrid1.Cells[0,0];
Las demás propiedades investigarlas en la ayuda delborlanddelphi . Para procesar todos los elementos de la tabla, solo recordar que se debenusar dos ciclos foruno externo para controlar columnas y uno interno para controlar renglón ( observar que es lo inverso de las tablas o arreglos normales). Ejemplo capturar una tabla de 3 * 4 enteros, y restarles 4 después; Pantalla de Diseño: (inspector objetos)
FORM1:
Programa;
procedure TForm1.Button1Click(Sender: TObject); var c,r,temp:integer;
begin for c:=0 to 2 do begin for r:=0 to 3 do begin temp:= StrToInt(StringGrid1.Cells[c,r])-4; StringGrid1.Cells[c,r] := IntToStr(temp); end; end; end;
Pantalla de Corrida:
[[|Un proceso muy común con tablas, cuadros y concentrados es agregarles listas [[|[[|de totales y promedios ya sea por columna o por renglón o ambas , por ejemplo; ]]]]]] CIA ACME INGRESOS MENSUALES (MILES DE PESOS) ENE FEB MARZO TOTALSUC PROMSUC SUC A 1 2 3 6 2 SUC B 4 5 6 15 5 SUC C 7 8 9 24 8 SUC D 10 11 12 33 11
TOTMES 22 26 30 PROMMES 5.5 6.5 7.8 En este ejemplo aparte de la tabla se ocupan 4 listas, dos para totales y dos para promedios. El código en C++ es sencillo, pero cambiarlo a borlanddelphi, recordarlo y aprenderlo para siempre:
//declaración float tabla[4][3], totsuc[4], promsuc[4]; floattotmes[3], promes[3]; //observar tamaños de listas que referencian renglón // listas que referencian columnas, se supone que la tabla // ya esta capturada. //código para operaciones para totales y promedios //renglones por sucursal: for(reng=0;reng<=3;reng++) for(col=0;col<=2;col++) { totsuc[reng]=totsuc[reng]+tabla[reng][col]; }; for(reng=0;reng<=3;reng++) promsuc[reng]=totsuc[reng] / 3.0 ; // operaciones para totales y promedios por mes for(reng=0;reng<=3;reng++) for(col=0;col<=2;col++) {totmes[col]=totmes[col]+tabla[reng][col]; }; for (col=0;col<=2;col++) prommes[col]=totmes[col]/4.0;
TAREAS PROGRAMACION BORLAND DELPHI 1.- Construir un concentrado que despliegue los costos fijos de tres diversos productos que se fabrican en cuatro sucursales de una empresa MAQUILADORA. 2.- Construir un concentrado que contenga los ingresos por ventas mensuales de los 4 primeros meses del año de tres sucursales de una cadena refaccionaría, agregar listas de ingresos totales por mes e ingresos promedios por sucursal.
3.- Construir un cuadro que contenga las calificaciones de 5 materias de cuatro alumnos cualesquiera, incluir promedios de calificaciones por materia y por alumno.
La calidad de las respuestas es directamente proporcional a la calidad de la pregunta Dime cuanto presumes y te diré cuanto careces
