15 Aralık 2018, 12:40:04

Haberler:

Picproje Pazar Sohbetleri: https://bit.ly/2GHsjAK


Stringgrid hücre renklendirme

Başlatan uardal, 10 Ocak 2018, 12: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.

Kod Seç
procedure TForm1.Krmz2Click(SenderTObject);

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

end;

procedure TForm1.StringGrid3DrawCell(SenderTObjectAColARowInteger;
  
RectTRectStateTGridDrawState);
  var 
CellTextstring;
begin
//
  
if (ARow 0) and (ACol 0then
  begin
    CellText 
:= StringGrid3.Cells[AColARow];
    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 4Rect.Top 4CellText);
 
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.