Common Controls

[ALXR]

Есть небольшое предложение, сделать набор классов или 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)

[XPraptor]

Тут тока контролы выкладывать или можно и классы которые заменяют контролы? Могу выложить набор, который реализует класс вместо контрола Winsock.
Набор из нескольких классов и модуля (для глобализации запросов). Реализованы все события в одном из классов, еще в одном реализован синхронный запрос (ваша функция будет ждать пока не загрузятся данные, а потом продолжит обработку) по методам GET и POST. Немного правда надо описать как юзать в сложных ситуациях, но в простом варианте все просто как лыжи.

[ALXR]

Цитата Toleranto @ 02.12.06, 20:00

SCINER, в ListView очень не хватает SelectRow и SelelectCol

Что-то не припомню в ListView возможности выделить столбец... Строку - еще понятно, а столбец как?

[Toleranto]

Извените, если не правильно написал, просто хотелось бы знать именно строку... а вот про столбец....( бес попутал )

ALXR , забыл, в твоем варианте ProgressBar не работает установка ProgressBar.max и ProgressBar.min они всегда 100 и 0 в любом случае, что с ними не делай....

Сообщение отредактировано: Toleranto - 03.12.06, 10:35

[B.V.]

Цитата XPraptor @ 03.12.06, 02:17

Тут тока контролы выкладывать или можно и классы которые заменяют контролы?

Можно и классы, только они должны быть автономны.

[ALXR]

Цитата Toleranto @ 03.12.06, 10:33

ALXR , забыл, в твоем варианте ProgressBar не работает установка ProgressBar.max и ProgressBar.min они всегда 100 и 0 в любом случае, что с ними не делай....

Исправил и поправил первый пост. Теперь работает. Если лень качать заново, то исправление заключается в следующем:

Замени Property Let Max и Property Let Min на следующие:

Property Let Min(ByVal v As Long)
SendMessageA hProgress, PBM_SETRANGE, 0, Me.Max * 65536 + v
End Property
 
Property Let Max(ByVal v As Long)
SendMessageA hProgress, PBM_SETRANGE, 0, v * 65536 + Me.Min
End Property

[ALXR]

Цитата Toleranto @ 03.12.06, 12:54

И я попробoвал по другому...

Я, кстати, отказался от использования UserControls по одной простой причине: он создает свой hWnd, на котором нужно создать свой контрол - еще один hWnd, и вместо одного получается 2 (два) окна. Класс в этом плане более оптимален, но менее гибок... Гибкость, правда, придается бОльшим объемом кода, но зато нет необходимости использовать UCTL.

[ALXR]

Еще 4 класса (включая доработанный clsProgress = 5) с примером.
- HotKey
- StatusBar
- SysAnimate
- SysIPAddress

Кто хочет, может добавить туда обработку событий и т.п.

[Компонент помещен в общий пакет]

Сообщение отредактировано: SCINER - 26.11.07, 12:56

[Большой вопрос]

Привет, а есть контрол вот такой?, извините если туплю

Прикреплённая картинка

[Большой вопрос]

И ещё бы TreeView

[ALXR]

К Common Controls Splitter не относится, но есть класс, который можешь попробовать и, если надо, довести до ума.
TreeView/ListView/TabControl - довольно громоздкие контролы и в один класс не влезут... Как придем к соглашению, как с ними поступить - сделаем.

[Большой вопрос]

Спасибо за внимание

Хоть сказал как называется такая вещь
Сразу нашел кучу всего, и к тому же пример, сделанный тобой, спасибо большое!

Сообщение отредактировано: Большой вопрос - 11.01.07, 23:38

[Toleranto]

А чем такой вариант не устраивает.... Так мне кажется проще...
Прикреплённый файлResizeComponents.zip (1.76 Кбайт, скачиваний: 916)

[B.V.]

Цитата Toleranto @ 12.01.07, 12:50

А чем такой вариант не устраивает....

А где в твоем примере универсальность?

[Lans]

А как для создаваемого на АПИ компонента задать шрифт и его размер?