| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

AlexanderMS ©   (2006-08-05 16:09:00) 

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

---

KilkennyCat   (2006-08-06 17:36:00) [1]

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

---

AlexanderMS   (2006-08-06 17:16:00) [2]

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

---

Loginov Dmitry   (2006-08-06 10:47:00) [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;

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

---

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

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

---

Loginov Dmitry   (2006-08-05 17:40:00) [5]

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

---

Наверх