Убрать прямоугольную рамку фокуса в ListBox.

← →
AlexanderMS © (2006-08-05 16:09) [0]

Скажите, пожалуйста, как можно избавится от пунктирной рамочки, которая появляется вокруг выделенного элемента в ListBox? Я думаю, вполне достаточно синего фона выделения, а при MultiSelect этот прямоугольник даже портит вид.

← →
Loginov Dmitry © (2006-08-05 17:40) [1]

В OnDrawItem можешь рисовать собственное выделение

← →
Новенькиййййййййй (2006-08-06 01:12) [2]

В OnDrawItem я как раз и написал (я не автор топика:-))) недавно, но все, кроме пунктира получается хорошо, точнее я никак не могу убрать именно пунктир. Может примерчик какой нибудь подкинете?

← →
Loginov Dmitry © (2006-08-06 10:47) [3]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with ListBox1.Canvas do begin // Стираем изорбажение Brush.Color := clWhite; Pen.Color := clWhite; if odSelected in State then begin if odFocused in State then Brush.Color := clMoneyGreen; Pen.Color := clBlack; Pen.Style := psDot; end; Rectangle(Rect); // Рисуем рамочку // Выводим текст Pen.Style := psSolid; Pen.Color := clBlack; Brush.Style := bsClear; Font.Color := clBlack; if Index = ListBox1.ItemIndex then Fonr.Style := [fsBold]; TextOut(Rect.Left + 2, Rect.Top + 1, ListBox1.Items[Index]); end; end;

Программировал в клиенте, убирайте баги сами ;)

Не знаю, где-то же должна убираться. Смотрел исходники VCL, но не нашёл. Было там, по-моему, DrawFocusRect, но не помогает.
--
Всем спасибо. Попробую.

Если внимательно смотреть исходники, то заметно, что то, что не помогает, работает только при определенном стиле листбокса.

Убрать прямоугольную рамку фокуса в ListBox. Найти похожие ветки