FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
colorear filas de un dbgrid
¿alguien sabe el código para colorear las líneas de un dbgrid alternativas en dos colores distintos? gracias.
|
#2
|
|||
|
|||
Fijate si este código te ayuda (Tenés que usar el evento DrawDataCell del componente):
Código:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); var iRowNumber : Integer; begin with (Sender as TDBGrid), Canvas do begin iRowNumber := (Rect.Top + Rect.Bottom) div ((1+Rect.Bottom - Rect.Top)*2); if Odd(iRowNumber) then Brush.Color := clYellow else Brush.Color := clWhite; FillRect(Rect); DefaultDrawDataCell(Rect, Field, State); end; end;
__________________
Suerte .: Gydba :. |
#3
|
|||
|
|||
Pintar celdas alternas con texto
Cita:
Gracias de antemano Última edición por rmora fecha: 05-08-2010 a las 22:29:47. |
#4
|
||||
|
||||
Cita:
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
|
#5
|
|||
|
|||
Gracias por tu respuesta, sin embargo ahora me encuentro con el siguiente problema:
Mi componente (rxDbLib) posee estos parametros: GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Por lo tanto el código se cae ya que no recibe el parámetro "Field" como lo indica el código anterior. Tener idea que puedo cambiar para lograr lo que deseo?? De antemano gracias por tu ayuda. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|