Gönderen Konu: Stringgrid hücre renklendirme  (Okunma sayısı 210 defa)

Çevrimdışı uardal

  • Kıdemli
  • ****
  • İleti: 160
Stringgrid hücre renklendirme
« : 11 Ocak 2018, 00:21:05 »
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.

Kod: [Seç]
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;


Çevrimdışı Salih

  • Profesyonel Üye
  • *****
  • İleti: 1456
Ynt: Stringgrid hücre renklendirme
« Yanıtla #1 : 11 Ocak 2018, 01:41:03 »



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

Çevrimdışı uardal

  • Kıdemli
  • ****
  • İleti: 160
Ynt: Stringgrid hücre renklendirme
« Yanıtla #2 : 11 Ocak 2018, 02:26:30 »
Denedim maalesef olmadı.

Çevrimdışı uardal

  • Kıdemli
  • ****
  • İleti: 160
Ynt: Stringgrid hücre renklendirme
« Yanıtla #3 : 11 Ocak 2018, 02:47:46 »
Hocam sorunu çözdüm, event larda ondrawcell  stringgrid3 için seçili olmalıymış, gözümden kaçmış. İlginize teşekkürler.