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

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]

Спасибо!

---

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

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



Память: 0.45 MB
Время: 0.013 c