Stringgrid hücre renklendirme

Başlatan uardal, 10 Ocak 2018, 09:21:05

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


uardal

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