Stringgrid - farve én og kun én celle

Jeg ville nok bruge en anden komponent end en TStringGrid...

Find evt. nogle her: www.torry.ru

Her en procedure som laver kolonne 2 grøn og resten røde.
Det kan nemt ændres til felter.
Hvordan du ændrer det ved klik i feltet har jeg ikke lige et forslag til.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

Const  //define your color here. Of course you
        //can use default colors too.
  clPaleGreen = TColor($CCFFCC);
  clPaleRed =  TColor($CCCCFF);

begin

//Does the cell have the focus you have to paint it with other colors
if (gdFocused in State) then begin   
  StringGrid1.Canvas.Brush.Color := clBlack;
  StringGrid1.Canvas.Font.Color := clWhite;
end
else  //Does the cell have NOT the focus you can use
      //your personal colors here

  if ACol = 2  //the second Column should be
                //green, the other cells red
    then StringGrid1.Canvas.Brush.color := clPaleGreen
    else StringGrid1.canvas.brush.Color := clPaleRed;

//Now Paint the cells, but only, if the cell isn't the Title- Row/Column
//This of course depends whether you have title-Row/Columns or not.

If (ACol > 0) and (ARow>0) then
  begin
      //Painting the Background
    StringGrid1.canvas.fillRect(Rect);

      //Painting the Text. Here you can improve the code with
      // using alignment and so on.
    StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
  end;
end;

Hvis du vil lave felt(2,2) til grøn bruger du;
If ((acol=2) and (arow=2)) then

Det er meget vigtigt at det er ved tryk på cellen at farven ændrer sig - ellers er det omsonst.

har selv fundet en plug-in til det