Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Un par de trucos sobre "Grillas" (https://www.clubdelphi.com/foros/showthread.php?t=80699)

dec 01-07-2006 03:06:58

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:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as DBGrid do
  begin
    if (condición) then
      Canvas.Font.Color := clRed;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

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:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    if (condición) then
    begin
      if Canvas.Font.Color = clWindowText then
        Canvas.Font.Color := clRed
      else
        Canvas.Font.Color := clYellow;
    end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

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:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    if Column.FieldName <> '' then //para identificar la columna que nosotros creamos
      DefaultDrawColumnCell(Rect, DataCol, Column, State)
    else
      if (condición) then
        Canvas.TextOut(Rect.Left + Font.Size,Rect.Top + 2,'Texto1')
      else
        Canvas.TextOut(Rect.Left + Font.Size,Rect.Top + 2,'Texto2');
  end;
end;

luisgutierrezb 08-07-2006 01:10:10

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...

marioestevez 08-07-2006 18:32:07

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






La franja horaria es GMT +2. Ahora son las 10:04:45.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi