![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#16
|
|||
|
|||
|
Aca te paso el codigo
Código Delphi [-]
procedure tdata.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState); begin inherited; if query1.Field[No].AsString[1] ='R' then begin DBGrid1.Canvas.Font.Color:=clBLACK; dbgrid1.Canvas.Brush.Color:=clblue; end ELSE BEGIN if query1.Field[No].AsString[1] ='O' then BEGIN DBGRID1.Canvas.Font.Color:=CLWHITE; DBGRID1.Canvas.Brush.Color:=CLgreen END END; DBGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State); end; Me tira error en el query1, el campo No no se que es. Supongo que esos son los dos puntos que estan mal. Muchas gracias por todo. |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| ¿Cómo poner colores diferentes a los Items de un TListView? | Alcolea | OOP | 2 | 16-02-2007 00:36:41 |
| dbgrid con diferentes .db | ale21alito | SQL | 2 | 08-02-2005 20:38:31 |
| dbgrid con colores | Giniromero | Conexión con bases de datos | 7 | 08-07-2004 16:26:29 |
| Celdas de colores diferentes en un TStringGrid | phyera | Gráficos | 2 | 14-09-2003 19:06:26 |
| Colores en una DBGrid | REDCOM | Varios | 2 | 26-05-2003 20:42:58 |
|