Подскажите, почему StringGrid не получается сменить цвет шрифта?

← →
Layner © (2003-11-03 11:55) [0]

procedure Tmf.sg4DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ARow=0 then
sg4.Canvas.Font.Color:=clRed;
end;
Заранее спасибо!

← →
gek © (2003-11-03 12:00) [1]

Canvas.Font.Color :=clRed;
Canvas.FillRect(Rect);
Canvas.TextRect(Rect, Rect.Left +1, Rect.Top + 3, "kuku";

← →
Плохиш_ (2003-11-03 12:02) [2]

1. DefaultDrawing
2. А рисовать кто будет?

← →
Layner © (2003-11-03 12:55) [3]

Спасибо!
А как вместо "kuku" вставить то, что должно пишесатся в эту ячейку?

← →
Babay © (2003-11-03 13:02) [4]

Canvas.TextRect(Rect, Rect.Left +1, Rect.Top + 3,TStringList(Sender).Cells[Acol,Arow] );

← →
Layner © (2003-11-03 13:59) [5]

Ага, спасибо, теперь понял, только вот
TStringList(Sender).Cells[Acol,Arow] ошибку кажет..

Canvas.TextRect(Rect, Rect.Left +1, Rect.Top + 3, TStringGrid(Sender).Cells[Acol,Arow] );
Layner - мог бы и сам догадаться

Чтото раньше этим не занимался :(
Вот так получилось!
sg4.Canvas.TextRect(Rect, Rect.Left +1, Rect.Top + 3, sg4.Cells[Acol,Arow] );
Спасибо за советы!!!

Подскажите, почему StringGrid не получается сменить цвет шрифта? Найти похожие ветки