[luffi]

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

[cotseec]

Код:

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;

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

Код:

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

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

[angvelem]

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

[luffi]

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

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

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

[angvelem]

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

[luffi]

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

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

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