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;
StringGrid3 içinParentColor özelliğini False edip denermisin.
Denedim maalesef olmadı.
Hocam sorunu çözdüm, event larda ondrawcell stringgrid3 için seçili olmalıymış, gözümden kaçmış. İlginize teşekkürler.