Как сохранить цвет строк при потере фокуса ListView

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
brigval
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 176
Зарегистрирован: 16.10.2005 (Вс) 12:37
Откуда: Подмосковье

Как сохранить цвет строк при потере фокуса ListView

Сообщение brigval » 31.03.2006 (Пт) 10:54

Как сделать так, чтоб цвет шрифта и фона выделенных строк при потере фокуса ListView (режим отчета) отображались такими же как и при наличии фокуса?
brigval

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 31.03.2006 (Пт) 11:04

Код: Выделить всё
ListView1.ListItems(1).Ghosted = True

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 31.03.2006 (Пт) 11:17

хотя, я не совсем понял вопрос: что значит такой же цет при потере фокуса? разве он другой становится?

brigval
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 176
Зарегистрирован: 16.10.2005 (Вс) 12:37
Откуда: Подмосковье

Сообщение brigval » 31.03.2006 (Пт) 11:17

Konst_One писал(а):
Код: Выделить всё
ListView1.ListItems(1).Ghosted = True

Что-то не получилось.
Вот рисунки для пояснения вопроса...
Вложения
Focus.gif
Фокус на ListView
(7.14 Кб) Скачиваний: 75
NoFocus.gif
Фокус потерян
(6.57 Кб) Скачиваний: 63
brigval

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 31.03.2006 (Пт) 12:15

выделение элементов активно только при фокусе контрола

brigval
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 176
Зарегистрирован: 16.10.2005 (Вс) 12:37
Откуда: Подмосковье

Сообщение brigval » 31.03.2006 (Пт) 15:13

Konst_One писал(а):выделение элементов активно только при фокусе контрола

Это понятно. Но может быть какими-нибудь API можно заменить цвет неактивных выделенных строк?
brigval

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 31.03.2006 (Пт) 15:18

а смысл такого изврата :?:

конечно, если очень хочется, то наверное можно - копать примерно надо в сторону сабклассинга и ownerdraw, я так думаю

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 31.03.2006 (Пт) 15:21

вот это посмотри
Вложения
Custom_Dra556832172002.zip
(65.88 Кб) Скачиваний: 90

Kovu
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 924
Зарегистрирован: 29.04.2005 (Пт) 17:38

Сообщение Kovu » 31.03.2006 (Пт) 16:25

Пашет кривовато :)
+надо заменить
Код: Выделить всё
Private Sub EnableHighlighting(ByVal row As Integer, ByVal bHighLight As Boolean)
    CDLV.Refresh '(в оригинале тут ещё стоит =False)
    CDLV.ListItems.Item(row + 1).Selected = bHighLight
End Sub
Если всё делать своими ручками, они скоро отвалятся !

brigval
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 176
Зарегистрирован: 16.10.2005 (Вс) 12:37
Откуда: Подмосковье

Сообщение brigval » 31.03.2006 (Пт) 17:01

Konst_One
Спасибо. Судя по всему, это то что нужно. Буду разбираться.
Kovu
Спасибо.
brigval


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 189

    TopList