[luffi]

Доброй поры времени. у меня вышла вот такай проблемка.
я зарисовую оприделённые ячейки в StringGrid-е, и текст в ячейках стаёт не виден. как сделать что бы он был виден?

[cotseec]

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); begin if ARow = 3 then begin     StringGrid1.Canvas.Brush.Color := clMenu;     StringGrid1.Canvas.Rectangle(Rect);     StringGrid1.Font.Color:=clBlack; end;     StringGrid1.Font.Color:=clBlack; end;

этим вы все закрашиваете, после чего нужно в этой же процедуре вывести ранее закрашенный текст

Код:

1 2	StringGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Bottom,                             StringGrid1.Cells[ACol,ARow]);

соответсвтенно задав перед выводом необходимые свойства шрифта и пера

[angvelem]

Использование события OnDrawCell для StringGrid-а много раз обсуждалось на форуме. Используйте поиск.

[luffi]

Сообщение от luffi

Доброй поры времени. у меня вышла вот такай проблемка.
я зарисовую оприделённые ячейки в StringGrid-е, и текст в ячейках стаёт не виден. как сделать что бы он был виден?

что-то оно не пашет

[angvelem]

Ну потому что искать по форуму лень, хочется чтобы кто-нибудь поискал и решение выложил.

[luffi]

Сообщение от angvelem

Ну потому что искать по форуму лень, хочется чтобы кто-нибудь поискал и решение выложил.

спс, сделал сам