FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Un par de trucos sobre "Grillas"
TRUCO 1
En el libro La Cara Oculta De Delphi 4 de Ian Marteens en la pág. 379 explica como cambiar en una DBGrilla el color de fuente de una de una fila dependiendo de una determinada condición, en el evento onDrawColumnCell de una manera parecida a esta:
El problema radica en que al seleccionar la celda que tiene fuente de color rojo, ésta sigue quedando de ese color. Por lo cual me propuse mejorar el código de la siguiente manera:
El color clWindowsText es el color de fuente por defecto de la grilla, en el caso de modificar el color de fuente de la grilla se debe reflejar esta modificación en la sección de código citada. TRUCO 2 Este truco fue basado en uno presentado en La Cara Oculta De Delphi 4 de Ian Marteens en la pág. 380 que mostraba como introducir un pequeño dibujo en una celda de una DBGrilla, que luego modifiqué para escribir un texto. En primer lugar se debe insertar una nueva columna ,en el editor de columnas, que no este enlazada a ningún campo luego añadir el siguiente código en el evento onDrawColumnCell:
|
#2
|
|||
|
|||
como sugerencia en lugar del Canvas.TextOut puedes usar la API de windows DrawText, que te permite, centrar y justificar el texto sin hacer ningun tipo de operacion, solo mandas el Rect y listo...
|
#3
|
|||
|
|||
En una sencilla aplicación que estuve utilizando empleé este código, que no se diferencia mucho del utilizado por Ustedes y con origen en distintas fuentes (estoy seguro no es de mi creación) y me dió excelente resultado. El objetivo era que me diferenciara con colores los campos de una grid en dependencia de que estuviesen comprometidos o no los horarios solicitados por pacientes. Usaba Access como base de datos en un módulo de datos.
A continuación el código: procedure TfrmAppControl.DBGrid2DrawColumnCell(Sender: TObject); var OutRect:=TRect; begin OutRect:=Rect; DBGrid2.Columns.Items[0].Font.Style:=[fsBold]; DBGrid2.Columns.Items[0].Font.Color:=clBlue; // If (Column.Field = DMod.tbStatStatus) AND (DMod.tbStatStatus.AsString = 'Booked') then begin DBGrid2.Canvas.Font.Color:=clWhite; DBGrid2.Canvas.Font.Style:=[fsBold]; DBGrid2.Canvas.Brush.Color:=clRed; end; // If (Column.Field = DMod.tbStatStatus) AND (DMod.tbStatStatus.AsString = 'Available') then begin DBGrid2.Canvas.Font.Color:=clWhite; DBGrid2.Canvas.Font.Style:=[fsBold]; DBGrid2.Canvas.Brush.Color:=$043b154;// tono de verde end; // DBGrid2.DefaultDrawDataCell(OutRect,Column.Field,State); end; Espero pueda servir a alguien y gracias por recibirme al Club |
|
|
|