Изменение цвета шрифта для неактивных элементов `TComboBox` в Delphi с `csOwnerDrawVariable`

Delphi , Графика и Игры , Шрифты

Изменение цвета шрифта для неактивных элементов TComboBox в Delphi с csOwnerDrawVariable

Вопрос пользователя заключается в необходимости изменения цвета шрифта для неактивного внутреннего элемента Edit в TComboBox, который используется с Style:=csOwnerDrawVariable. По умолчанию, цвет шрифта для неактивных элементов отображается в сером цвете, и пользователь хочет изменить его на черный.

Решение проблемы

Чтобы изменить цвет шрифта для неактивного элемента Edit в TComboBox, необходимо использовать переопределение метода DrawItem. В этом методе можно установить нужный цвет шрифта в зависимости от состояния элемента (Enabled или Disabled). Пример кода на Object Pascal (Delphi):

TCustomComboBox = class(TComboBox)
protected
  procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
end;

procedure TCustomComboBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if odComboBoxEdit in State then begin // Если рисуем элемент во внутреннем Edit-контроле ComboBox
    if not Enabled then
      Canvas.Font.Color := clBlack // Цвет шрифта для неактивного состояния
    else
      Canvas.Font.Color := clWindowText; // Цвет шрифта для активного состояния
    Canvas.Brush.Color := GetBackgroundColor; // Получаем правильный цвет фона
  end;
  inherited;
end;

Подтвержденный ответ

Используя переопределение метода DrawItem, можно настроить цвет шрифта для неактивного состояния Edit контрола в TComboBox на черный цвет. Важно помнить, что все настройки для внешнего вида элементов в TComboBox с csOwnerDrawVariable производятся программно, и нет специальных настроек для компонентов во время разработки.

Альтернативный ответ и комментарии

Пользователь также упоминал попытки изменения цвета шрифта в обработчике WndProc, однако это не приводило к желаемому результату. Также было предложено использовать событие OnDrawItem, но пользователь отметил, что оно не работает с csOwnerDrawVariable. Тем не менее, в комментариях упоминается, что переопределение DrawItem действительно работает, и пример кода, представленный выше, подтверждает это.

Пример использования

procedure TForm3.Button1Click(Sender: TObject);
begin
  ComboBox1.Enabled := not ComboBox1.Enabled; // Изменение состояния Enabled
end;

procedure TForm3.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  txt: string;
begin
  if Index > -1 then
    txt := ComboBox1.Items[Index]
  else
    txt := '';
  if odComboBoxEdit in State then // Если рисуем элемент в Edit-части ComboBox
    if ComboBox1.Enabled then // Активное состояние
    begin
      ComboBox1.Canvas.Font.Color := clRed; // Цвет шрифта для активного состояния
      ComboBox1.Canvas.Brush.Color := clWindow; // Цвет фона
    end
    else // Неактивное состояние
    begin
      ComboBox1.Canvas.Font.Color := clBlack; // Черный цвет шрифта для неактивного состояния
      ComboBox1.Canvas.Brush.Color := clGray; // Серый цвет фона
    end;
  ComboBox1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, txt); // Рисование текста
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  with ComboBox1 do
  begin
    Items.Add('111');
    Items.Add('222');
    Items.Add('333');
    ItemIndex := 1;
    Style := csOwnerDrawVariable;
  end;
end;

Добавьте на форму ComboBox1 и Button1, и назначьте соответствующие обработчики событий. При нажатии на кнопку Button1 состояние Enabled ComboBox1 будет изменяться, что приведет к перерисовке элементов с новыми цветами шрифта и фона.

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

Пользователь хочет изменить цвет шрифта для неактивных элементов `Edit` в `TComboBox` с `Style:=csOwnerDrawVariable` в Delphi, используя переопределение метода `DrawItem`.

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

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

:: Главная :: Шрифты ::