FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Cita:
Para evitar esta posibilidad, y si tenes el evento asociado a varias rejillas, creo que podes valerte del Sender, no? Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#2
|
|||
|
|||
ami me funciono de la siguiente forma
utilice el codigo expuesto anteriormente pero lo cambie a los eventos del grid
getcolorcelda getcolortexto y reviso que la columna de la celda sea la que quiero cambiar el color utilizando acol para la posicion de la columna Código:
procedure Tfrmvalidar.grdpreprogGetColorCelda(Sender: TObject; Column: TColumn; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); begin if preprog.FieldByName('error').AsInteger = 1 then begin if grdpreprog.Fields[acol].DisplayName = 'COMPONENTE' then begin grdpreprog.Canvas.Brush.Color :=claqua; end; end; end; procedure Tfrmvalidar.grdpreprogGetTextoCelda(Sender: TObject; Column: TColumn; ARow, ACol: Integer; var Texto: String); begin if preprog.FieldByName('error').AsInteger = 1 then begin if grdpreprog.Fields[acol].DisplayName = 'COMPONENTE' then begin grdpreprog.Canvas.Font.Color := clRed; grdpreprog.Canvas.Font.Style := [fsBold]; end; end; end; |
|
|
|