Текущий архив: 2003.10.16;
Скачать: 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 вся ветка
Текущий архив: 2003.10.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
