FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como pintar la fila de un DBGrid
Hola amigos, tengo un DBGrid donde muestros los datos de mis facturas y quiero saber como puedo hacer para que las facturas que no han sido pagadas el fondo de la fila me lo pinte de rojo u otro color y el resto me mantenga el color de original.
|
#2
|
||||
|
||||
revisa este ejemplo, lo aplicas en el evento DrawColumnCell
Código Delphi [-]procedure TfmAlmacen.dbgDetalleDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i : integer; begin with dbgDetalle, dbgDetalle.DataSource.DataSet do begin if fieldByName('nroRevision').AsInteger=0 then Canvas.Brush.Color := clWindow else Canvas.Brush.Color := clRed; Canvas.Font := Column.Font; Canvas.Font.Color := Column.Font.Color; Canvas.Font.Style := Column.Font.Style; SetBkMode(Canvas.Handle, TRANSPARENT); Canvas.FillRect(Rect); case Column.Alignment of taRightJustify : begin SetTextAlign(Canvas.Handle, TA_RIGHT); I := Rect.Right - 2; end; taLeftJustify : begin SetTextAlign(Canvas.Handle, TA_LEFT); I := Rect.Left + 2; end; else begin SetTextAlign(Canvas.Handle, TA_CENTER); I := (Rect.Right + Rect.Left) DIV 2; end; end; { case } Canvas.TextRect(Rect, I, Rect.Top + 2, VarToStr(Column.Field.Value) ); end; end; |
#3
|
||||
|
||||
Saludos
En esta mismi hilo, abajo, hay enlaces que te pueden ayudar. Dale pa'bajo a esta pagina.
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pintar toda una fila de un DBGrid | Luciano M. | Varios | 4 | 02-05-2006 22:30:24 |
Pintar Fila del DBGrid | Palmiro | Conexión con bases de datos | 2 | 05-04-2006 23:25:51 |
Pintar Fila por medio en ub DBGrid | josem | OOP | 3 | 01-01-2005 20:54:52 |
Como marcar una fila de un DBGrid? | danytorres | Varios | 2 | 11-02-2004 22:33:14 |
Como enfocar la ultima fila de un DBGrid? | danytorres | Varios | 6 | 01-10-2003 17:27:29 |
|