Скачать: CL | DM;

Подскажите, почему 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] ошибку кажет..

---

← →
ZEE ©   (2003-11-03 14:02) [6]

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

---

← →
Layner ©   (2003-11-03 14:04) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c