Как сделать стандартный цвет выделенной строки в `TStringGrid` в Delphi?

Delphi , Синтаксис , Справочник по API-функциям

Как сделать стандартный цвет выделенной строки в TStringGrid в Delphi?

При работе с компонентом TStringGrid в Delphi часто возникает необходимость использовать стандартные цвета, которые система использует для выделения строк. В этом руководстве мы рассмотрим, как определить и использовать стандартные цвета выделения для строк в зависимости от стиля отображения (DrawingStyle) в различных версиях Delphi.

Стандартный цвет выделения строки

В версиях Delphi до 2010 года стандартным цветом для выделения строки (selected row) в компоненте TStringGrid является clHighlight. Этот цвет можно использовать, когда вы переопределяете метод OnDrawCell и хотите воспроизвести стандартное поведение системы.

Зависимость от стиля отображения

С версии Delphi 2010 и выше, компоненты TStringGrid, TDrawGrid и TDBGrid получили свойство DrawingStyle, которое определяет стиль отображения ячеек. В зависимости от этого стиля, стандартный цвет выделения будет меняться:

1. Для стиля gdsClassic используйте цвет clHighlight.
2. Для стиля gdsGradient используйте метод GradientFillCanvas для заполнения области градиентным цветом. Например:

GradientFillCanvas(Canvas, GetShadowColor(clHighlight, 45), GetShadowColor(clHighlight, 10), LRect, gdVertical);

1. Для стиля gdsThemed вызовите метод DrawElement класса TCustomStyleServices:

StyleServices.DrawElement(Canvas.Handle, StyleServices.GetElementDetails(tgCellSelected), LRect, ARect);

Работа с VCL стилями

В Delphi XE2 и XE3 с введением VCL стилей, необходимо учитывать, что линейные цвета могут быть привязаны к определённым стилям, так что вам потребуется использовать цвета, возвращаемые через методы стилей.

1. Для стиля gdsGradient вы можете использовать следующие вызовы для получения цветов градиента:

StyleServices.GetElementColor(StyleServices.GetElementDetails(tgGradientCellRowSelectedRight), ecGradientColor1, StartColor);
StyleServices.GetElementColor(StyleServices.GetElementDetails(tgGradientCellRowSelectedRight), ecGradientColor2, EndColor);

1. Для стиля gdsClassic используйте следующий вызов для получения цвета заливки:

StyleServices.GetElementColor(StyleServices.GetElementDetails(tgClassicCellRowSelectedRight), ecFillColor, LColor);

Если вы хотите, чтобы ваш код имитировал процесс, используемый системой для рисования выделенных ячеек, попробуйте реализовать метод TCustomGrid.DrawCellHighlight.

Пример кода

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; Var CellText, CellKind, CellState: Integer);
begin
  if CellState and gdSelected then
  begin
    // Здесь код для использования стандартного цвета выделения строки
    case StringGrid1.DrawingStyle of
      dsClassic:
        Canvas.Brush.Color := clHighlight;
      dsGradient:
        // Код для градиента
      dsThemed:
        // Код для стилизованного выделения
    end;
    Canvas.FillRect(Rect);
  end;
  // Дополнительный код для рисования содержимого ячейки
end;

Используя этот пример, вы сможете определить и применить стандартные цвета выделения строк в зависимости от выбранного стиля отображения в TStringGrid.

Создано по материалам из источника по ссылке.

Руководство по использованию стандартного цвета выделенной строки в компоненте `TStringGrid` в Delphi, с учетом различных стилей отображения и версий Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::