stringGrid

[mohsen_solhjoo]

دوستان سلام
کسی می تونه راهنمایی کنه که چطور می تونم ستونهای خاصی از StringGrid یا DrawGrid رو رنگ کنم
ممنون

[merced]

private
ColorCol, ColorRow: integer;


procedure TForm1.Button1Click(Sender: TObject);
begin
ColorCol := 4;
ColorRow := 3;
StringGrid1.Repaint;
end;


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
S: string;
begin
if (ACol = ColorCol) and (ARow = ColorRow) then begin
StringGrid1.Canvas.Brush.Color := clYellow;
StringGrid1.Canvas.FillRect(Rect);
S := StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S);
end;
end;