Удаление пунктирной рамки фокуса в `TListBox` с `lbOwnerDrawFixed` в Delphi

Delphi , Графика и Игры , Canvas

Удаление пунктирной рамки фокуса в TListBox с lbOwnerDrawFixed в Delphi

При использовании TListBox в режиме lbOwnerDrawFixed в Delphi, разработчики часто сталкиваются с проблемой, когда пунктирная рамка фокуса отображается вокруг выделенного элемента списка, даже если они явно переопределили метод рисования элементов (OnDrawItem). Это может быть нежелательным поведением, так как разработчик стремится полностью контролировать внешний вид элементов списка.

Проблема

При использовании стиля lbOwnerDrawFixed в TListBox, разработчик ожидает получить пустое пространство для рисования элементов по своему усмотрению. Однако, даже после переопределения события OnDrawItem и отрисовки фон элемента в белый цвет, пунктирная рамка фокуса все еще отображается вокруг выделенного элемента.

Решение

Проблема заключается в том, что систематическое рисование рамки фокуса происходит после выполнения пользовательского события OnDrawItem. В классе TCustomListBox есть метод CNDrawItem, который отвечает за рисование рамки фокуса после возврата из OnDrawItem.

Для решения этой проблемы, разработчику необходимо самостоятельно перерисовать рамку фокуса в методе OnDrawItem с использованием функции DrawFocusRect, что позволит затем системе удалить ее, так как DrawFocusRect — это функция XOR, и ее повторный вызов с теми же параметрами приведет к удалению рамки.

Пример кода

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  ARect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do begin
    Brush.Color := clWhite;
    Pen.Color := clWhite;
    FillRect(ARect);
    if odFocused in State then
      DrawFocusRect(ARect);
  end;
end;

В этом примере кода, после отрисовки белого фона элемента списка, проверяется состояние odFocused в параметре State, и если элемент выделен, то вызывается DrawFocusRect, который затем будет перекрыт системной функцией и рамка не отобразится.

Заключение

Используя данный подход, разработчик может полностью контролировать внешний вид элементов списка в TListBox с lbOwnerDrawFixed и убрать ненужную пунктирную рамку фокуса.

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

Удаление пунктирной рамки фокуса в `TListBox` с `lbOwnerDrawFixed` в Delphi достигается путём самостоятельной перерисовки рамки в методе `OnDrawItem` с использованием функции `DrawFocusRect`, что позволяет затем системе удалить её, используя свойство XOR

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

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

:: Главная :: Canvas ::