Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Color de celda en una tabla (https://www.clubdelphi.com/foros/showthread.php?t=74970)

cmfab 21-07-2011 21:28:59

Color de celda en una tabla
 
Hola a todos, en una rejialla de datos de los componentes devexperss
(cxGrid) necesitaria que las celdas tomaran diferentes colores en base
a su contenido. he hecho este tipo de operacion pero para toda la fila
por ejemplo usando este evento

Código Delphi [-]
procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if AViewInfo.GridRecord.Values[0] = True then
  begin
    ACanvas.Brush.Color := clGreen;   {Color del fondo de la fila}
    ACanvas.Font.Style := [fsBold];   {Formatea el texo en negrita (Bold)}
  end;
end

pero en este caso se ointa toda una fila en base al valor de una sola columna

espero me haya explicado correctamente

Gracias

ecfisa 21-07-2011 22:16:49

Hola.

Este código funciona correctamente en un TDBGrid, supongo que con algunos cambios debería hacerlo en un TcxGrid también.

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (Field.FieldName = 'Nombre_Del_Campo') and (Field.AsBoolean = True) then
  begin
    DBGrid1.Canvas.Brush.Color:= clGreen;
    DBGrid1.Canvas.Font.Style:= [fsBold];
  end;
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
No conozco esos componentes pero quizá puedas hacer algo como:
Código Delphi [-]
  if (AViewInfo.GridRecord.Values[0] = True) and (AViewInfo.GridRecord.FieldName = 'Nombre_del_Campo') then

Espero te sirva.

Saludos.

cmfab 21-07-2011 22:28:16

Gracias por la pronta respuesta. lo analizaré y despues les comento

cmfab 22-07-2011 17:55:33

si positivo todo funciono correctamente, gracias por todo


La franja horaria es GMT +2. Ahora son las 01:32:38.

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