Common Controls

Есть небольшое предложение, сделать набор классов или UserControls (хотя, более чем уверен, что он уже существует в том или ином виде), которые смогут полностью заменить ActiveX MS Common Control, дабы не возникало тем, вроде этой, а так же в целях избавить себя от перетаскивания почти 1 МБ, чтобы пользовать, к примеру, банальный ProgressBar. Если тема имеет смысл, то могу набросать еще для TabControl по прототипу PropertySheet с возможностью добавлять Frame. В качестве поддержки темы набросал класс ProgressBar'а...

Реализовано:
SysListView32 — ListView.ctl — Обновлено 10/12/2007
msctls_progress32 — Progress.ctl
SysDateTimePick32 — SysDateTimePick.ctl
SysTabControl32 — TabStrip.ctl — Обновлено 10/12/2007
SysTreeView32 — TreeView.ctl
msctls_statusbar32 — StatusBar.ctl — Обновлено 10/12/2007
SysIpAddress32 — IpAddress.ctl

CODEBOX controls
CodeBox.part01.rar
CodeBox.part02.rar
CodeBox.part03.rar
EOF CODEBOX controls

Сообщение отредактировано: ALXR - 08.12.10, 17:30

Прикреплённый файлcommctrl.zip (171.21 Кбайт, скачиваний: 5521)

VisualProg
Все, что нашел при беглом просмотре...
1. frame - Caption сразу не меняется... см. тут, нет Enable!
2. кнопки... посмотри API ReleaseCapture & SetCapture и выбрось таймеры... не нажимается 2 раза приDoubleClick
3. checkbox - вроде ок, но caption...
4. ап-даун - все плохо. Не работает! юзай val(text1.text) хотябы...
5. прогресбар - при max<1 работает! И нет выбора цвета!

Цитата Black Star @ 09.12.08, 14:44

1. frame - Caption сразу не меняется... см. тут, нет Enable!

Для меня это слишком сложно, да и вроде не так это важно.

Цитата Black Star @ 09.12.08, 14:44

нет Enable!

Исправил

Цитата Black Star @ 09.12.08, 14:44

2. кнопки... посмотри API ReleaseCapture & SetCapture и выбрось таймеры... не нажимается 2 раза приDoubleClick

Double Click срабатывает работает, а на счет ReleaseCapture и SetCapture по подробнее обьясни, на примере.

Цитата Black Star @ 09.12.08, 14:44

4. ап-даун - все плохо. Не работает! юзай val(text1.text) хотябы...

Как не работает?! Ты ValueChange измени на число > 0 и всё ок.

Цитата Black Star @ 09.12.08, 14:44

5. прогресбар - при max<1 работает! И нет выбора цвета!

Здесь сложность есть не большая, там в качестве Value используется Image растягиваемый по Width, так вот цвет у картинки изменить нельзя (ну традиционными методами)При максе изменил.

Сообщение отредактировано: VisualProg - 09.12.08, 15:14

Прикреплённый файлVista.rar (20.04 Кбайт, скачиваний: 728)

Цитата ALXR @ 13.11.06, 20:15

Выделил данный набор в отдельный проект и выделил ему отдельную страничку на сайте — http://mega-set.com/comctl/

Так много выделил А страница не грузится...

Нашел в нете такой архивчик, весь выложить не могу, тыт также исходники контролов, но вот почему-то не могу отдельно их использовать, не знаю правильно ли все делаю.... пробовал скомпилировать, неполучилось, посмотрите, может пригодиться кому
Прикреплённый файлvbComCtl.part01.rar (195.31 Кбайт, скачиваний: 786)

Вот вторая часть архива
Прикреплённый файлvbComCtl.part02.rar (87.18 Кбайт, скачиваний: 776)

Что-то в эту тему мало захаживают чтоли?

сам разобрался с двойным кликом

делаю свой вклад, ImageList. мне понравился
Прикреплённый файлImage_List.rar (84.9 Кбайт, скачиваний: 820)

Поле iImage в структуре LV_ITEM. Получить структуру можно методом отправки сообщения LVM_INSERTITEM.

Ну что же, я продолжаю мучить тему контролов, которая для меня интерестна, но пока не понятна.

тот RichEdit который в основной паке лежит, меня не очень устроил и я нашел именно чтоб он был выполнен в виде контрола, исходники прилогаю, кому интерестно.

так вот, у этого контрола не могу сделать свойства MultiLine, пробовал по всякому, пытался взять аналог из класа который лежал в паке, но всеравно ничего не получилось.

кто сможет помочь. пока это единственное свойство, которое мне сейчас в нем дополнительно нужно.
Прикреплённый файлctlKGRichTextBox.rar (6.34 Кбайт, скачиваний: 752)

в Windows7 скомпилированный вариант не работает.
Падает на строке

Call SendMessage(hTabStrip, TCM_INSERTITEMA, 10, tsItem)

Текст ошибки:

Цитата

---------------------------
CommCtrl
---------------------------
Run-time error '-2147417848 (80010108)':

Automation error
The object invoked has disconnected from its clients.
---------------------------
ОК
---------------------------

как вариант, манифест надо делать.

Цитата nash @ 21.10.09, 18:35

как вариант, манифест надо делать.

манифест есть

SCINER

Писал, так как понадобилось выделение нужной строки в ListView... Может быть понадобится...

Public Property Get SelectedItem() As Long
    Dim lFlags As Long
 
    lFlags = LVNI_SELECTED
    If GetFocus() = hListView Then lFlags = lFlags Or LVNI_FOCUSED
 
    SelectedItem = SendMessage(hListView, LVM_GETNEXTITEM, &HFFFF, ByVal lFlags)
End Property
 
Public Property Let SelectedItem(ByVal lIndex As Long)
Const LVIS_FOCUSED As Long = &H1
Const LVIS_SELECTED As Long = &H2
 Call ListView_SetItemState(lIndex, LVIS_FOCUSED Or LVIS_SELECTED, LVIS_FOCUSED Or LVIS_SELECTED)
End Property
 
Private Function ListView_SetItemState(i As Long, State As Long, Mask As Long) As Boolean
 
  Dim lvi As LVITEM
  lvi.State = State
  lvi.stateMask = Mask
  ListView_SetItemState = SendMessage(hListView, LVM_SETITEMSTATE, ByVal i, lvi)
End Function

Да и ещё, попробуй вариант с работой под Se7en, у меня всё без проблем работает...

PS Так как коменты под Toleranto оставлять не могу, пришлось завести нового пользователя

Сообщение отредактировано: Dirk - 22.10.09, 11:12

Прикреплённый файлclsTabStrip.rar (2.8 Кбайт, скачиваний: 823)

Проверил твой вариант. Не работает. При запуске из студии - работает, а скомпилированный вариант - нет.
Падает естественно в том-же месте.

SCINER

Вот, запускал на виртуальной машине, TabStrip реализован данным классом, работает без проблем... (единственное, что скомпилирована программа в WinXP)

Цитата Dirk @ 22.10.09, 13:02

скомпилирована программа в WinXP

кинь сюда пример скомпилированный в XP. гляну