Ir al contenido


Foto

TStringGrid, colorear UNA celda.


  • Por favor identifícate para responder
2 respuestas en este tema

#1 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 03 septiembre 2012 - 11:06

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.
  • 0

#2 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.137 mensajes

Escrito 03 septiembre 2012 - 11:18



delphi
  1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  2.   Rect: TRect; State: TGridDrawState);
  3. begin
  4.   if StringGrid1.Cells[ACol, ARow] = 'si' then
  5.   begin
  6.     StringGrid1.Canvas.Brush.Color := clGreen;
  7.     StringGrid1.Canvas.Font.Color := clwhite;
  8.   end;
  9.   StringGrid1.Canvas.FillRect(Rect);
  10.   StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2,
  11.     StringGrid1.Cells[ACol, ARow]);
  12. end;


  • 0

#3 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 03 septiembre 2012 - 11:26

Miembros (MUY :p ) agradecidos:
TiammatMX
En éste post, 1 usuario dió gracias!


¡¡Gracias, Wilson!!
  • 0




IP.Board spam blocked by CleanTalk.