|
|
|
|
Delphi 1
Цвет неактивной ячейки StringGrid
Создайте обработчик (если он отсутствует) события сетки OnDrawCell и включите в него следующий код:
|
procedure TForm1.StringGrid3DrawCell(Sender: TObject; vCol, vRow: Longint; Rect: TRect; State: TGridDrawState);
begin
IF Sender = ActiveControl THEN Exit;
IF NOT (gdSelected IN State) THEN Exit;
WITH Sender AS TStringGrid DO
BEGIN
Canvas.Brush.Color := Color;
Canvas.Font.Color := Font.Color;
Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2,
Cells[vCol, vRow]);
END;
end;
|
Имейте в виду, что в обработчике события OnDrawCell я переименовал параметры Col и Row на vCol и vRow, чтобы избежать путаницы со свойствами StringGrid, имеющими те же имена. Данный метод выполняется немедленно после того, как сетка становится неактивной, и после того как запрошенная ячейка становится НЕвыбранной. В любом из этих случаев вы должны нарисовать невыбранную ячейку для НЕАКТИВНОЙ сетки - т.е. в тех случаях, когда у вас получается "неправильный" цвет. Вы просто берете работу Delphi по закрашиванию ячеек на себя, пропуская defaultDrawing (отрисовку по умолчанию), для таких ячеек, но в то же время разрешая Delphi поработать за вас во всех остальных случаях.
- Neil J. Rubenking [000833]
|
|
|
|
|