StringGrid

← →
Александр из Минска (2003-10-04 14:22) [0]

Всем привет! У меня такая проблема. После выполнения вот этого:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if gdFixed in State then Exit; case M[ACol] of {M - массив с моими кодами цветов} 1 : begin StringGrid1.Canvas.Brush.Color := clCream; {БЛЕДНО-БЕЖЕВЫЙ} StringGrid1.Canvas.Brush.Style := bsSolid; StringGrid1.Canvas.FillRect(Rect); end; ............................................ end; StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]); end;
... я нажимаю на ячейку, которая должна выделяться синим цветом (показать, что она активна), и цвет шрифта какой-нить надписи этой ячейки должен быть белым (т.к. она синяя). цвет шрифта становиться белым, а ячейка как была кремовая, так такой и осталась. Из-за этого я или пользователь не вижу текста выделенной ячейки. Подскажите, как это исправить.

← →
Song (2003-10-04 14:29) [1]

IF gdSelected in State then StringGrid1.Canvas.Brush.Color:=ClHighLight else StringGrid1.Canvas.Brush.Color := clCream;

← →
Александр из Минска (2003-10-04 19:51) [2]

Спасибо!

StringGrid Найти похожие ветки