Stringgrid hücre renklendirme

[uardal]

Merhaba

Bir süredir üzerinde çalıştığım projede stringgrid renklendirme sorunu yaşıyorum. Aşağıdaki Komutları stringgrid1 için uyguladığımda istediğim hücreyi renklendirebiliyorum, fakat stringgrid3 için aynı kodları uyguladığımda bir türlü renklendirme yapamadım, konu hakkında yardımlarınızı rica ederim.

iyi çalışmalar.

procedure TForm1.Krmz2Click(Sender: TObject);

begin
StringGrid3.Cells[StringGrid3.col, StringGrid3.Row] := 'KIR'; //kırmızı

end;

procedure TForm1.StringGrid3DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var CellText: string;
begin
//
  if (ARow > 0) and (ACol > 0) then
  begin
    CellText := StringGrid3.Cells[ACol, ARow];
    if Pos('KIR', CellText) > 0 then  //KIRMIZI
    begin
      StringGrid3.Canvas.Brush.Color := clRed;
      StringGrid3.Canvas.FillRect(Rect);

    end
    else if Pos('SARI', CellText) > 0 then      //SARI
     begin
      StringGrid3.Canvas.Brush.Color := clYellow;
      StringGrid3.Canvas.FillRect(Rect);

    end
  

    else
      StringGrid3.Canvas.Brush.Color := clwindow;
       StringGrid3.Canvas.TextOut(Rect.Left + 4, Rect.Top + 4, CellText);
 end

end;

[Salih]

StringGrid3 içinParentColor özelliğini False edip denermisin.

[uardal]

Denedim maalesef olmadı.

[uardal]

Hocam sorunu çözdüm, event larda ondrawcell  stringgrid3 için seçili olmalıymış, gözümden kaçmış. İlginize teşekkürler.