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
|
|||
|
|||
Filas de distintos colores en un dbgrip.
Buenas soy nuevo en Delphi, estoy haciendo una aplicacion sencilla donde se lee una variable que determina una accion y dependiendo de esta la fila del dbgrip deberia cambiar a un color especifico, para que el cliente a simple vista pueda saber el status.
Mucho sabri agradecerle su colaboracion. G.A.R.S. |
#2
|
||||
|
||||
Prueba esto....
Dentro del evento gridDrawColumnCell Prueba Esto G.A.R.S.
Saludos.... Última edición por AGAG4 fecha: 21-05-2005 a las 17:09:31. Razón: Corrección |
#3
|
||||
|
||||
algo asi:
procedure TFSelec.grdListadoDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin case (DMSIU.cdsMaster.FieldByName('ntipocta').AsInteger) of 0:grdListado.Canvas.Brush.Color:=clYellow; 1:grdListado.Canvas.Brush.Color:=clMoneyGreen; 2:grdListado.Canvas.Brush.Color:=clSkyBlue; 3:grdListado.Canvas.Brush.Color:=clMedGray; end; grdListado.Canvas.FillRect(Rect); grdListado.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; en el ondrawcolumncell del dbgrid |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|