Buena tarde, jóvenes delphineros:
Pues nada, resulta que tengo un TStringGrid, y requiero colorear UNA celda dependiendo de su contenido. Es decir, en ésa celda puede contener o no un texto específico (en éste caso, la palabra "sí"), en caso de estar presente ésta palabra, la celda deberá aparecer en color verde, caso contrario en su color "natural" (clWindow, clWindowText)..., ¿alguien podría colaborarme con un poco de código para solucionar éste asunto, por favor?
Agradeciendo de antemano.
TStringGrid, colorear UNA celda.
Comenzado por
TiammatMX
, sep 03 2012 11:06
2 respuestas en este tema
#1
Escrito 03 septiembre 2012 - 11:06
#2
Escrito 03 septiembre 2012 - 11:18
delphi
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if StringGrid1.Cells[ACol, ARow] = 'si' then begin StringGrid1.Canvas.Brush.Color := clGreen; StringGrid1.Canvas.Font.Color := clwhite; end; StringGrid1.Canvas.FillRect(Rect); StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]); end;
#3
Escrito 03 septiembre 2012 - 11:26
Miembros (MUY ) agradecidos:
TiammatMX
En éste post, 1 usuario dió gracias!
¡¡Gracias, Wilson!!