Конференция VBStreets

**A.A.Z.** » 10.10.2004 (Вс) 19:29

Сабж, собсна...
Ведь Chameleon Clock это как-то делает??
(ScreenShot)

**GSerg** » 10.10.2004 (Вс) 19:48

Через Paint сохранял?

Я так думаю, он не увеличивает, а вместо.

**A.A.Z.** » 10.10.2004 (Вс) 20:03

Да

Хорошо, как "вместо" сделать? :roll:

**GSerg** » 10.10.2004 (Вс) 20:34

Бери Spy++, смотри структуру таскбара, делай выводы о том, куда пихать своё окно...
Наверное так

**tyomitch** » 10.10.2004 (Вс) 20:41

Таскбару-то как сказать, чтобы он "растянулся" и пустил меня внутрь?
А то ведь я все иконки в трее собой накрою, если он не растянется; некрасиво получится.

**Amed** » 10.10.2004 (Вс) 21:02

Call SendMessage (Таскбар.ХВнд, "Растянись", CBoolean("Да!"))

**GSerg** » 10.10.2004 (Вс) 21:54

А lParam чему равным должен быть?

**Amed** » 10.10.2004 (Вс) 21:59

А, он не Optional, я забыл...

Тогда так:
Call SendMessage (Таскбар.ХВнд, "Растянись", CBoolean("Да!"), 0)

**A.A.Z.** » 11.10.2004 (Пн) 20:26

GSerg писал(а):Бери Spy++, смотри структуру таскбара, делай выводы о том, куда пихать своё окно...
Наверное так

Ох... И почему мы не ищем легких путей?..

**Cyrax** » 11.10.2004 (Пн) 21:00

хде-то я видал прымеры как свое окно в трей засунуть...
там что-то было про ProgressBar в трее
вот:
Форма в Systray
ProgressBar в System Tray

**tyomitch** » 11.10.2004 (Пн) 21:12

Оба примера перекрывают иконки в трее. Не круто :ncool:

**A.A.Z.** » 11.10.2004 (Пн) 21:21

Почти то

В первом плохо, что добавляется слева, а не справа, а во втором - то, что значки перекрываются

Но все равно спасибо

**A.A.Z.** » 11.10.2004 (Пн) 21:21

Я писал 11 минут :shock:

**A.A.Z.** » 11.10.2004 (Пн) 21:55

Чуток изменю вопрос:
Как можно поставить иконку в трэй не с краю слева, а справа (прямо перед часами)?

**GSerg** » 11.10.2004 (Пн) 21:57

Есть только одна функция добавления иконок, и она этого не позволяет.
Хотя наверняка всё возможно

**tyomitch** » 11.10.2004 (Пн) 22:02

AAZ, если хочешь пихать в трей свои иконки и перекрывать их - имей в виду, что другие проги тоже могут добавлять свои иконки, и тогда новые будут попадать под твоё окно.
Нужно что-то принципиально другое выдумать... Кто знает, как системные часы определяют, какого размера им быть? У меня исходников винды сейчас под рукой нет...

**A.A.Z.** » 11.10.2004 (Пн) 22:02

2 GSerg
Ну вот, так всегда... Только соберусь что-нибудь интересное сделать, так облом

**A.A.Z.** » 11.10.2004 (Пн) 22:03

tyomitch писал(а):Кто знает, как системные часы определяют, какого размера им быть? У меня исходников винды сейчас под рукой нет...

Я пытался изменить шрифт и надпись часов (SetWindowText и WM_SETFONT) - ноль реакции...

**GSerg** » 11.10.2004 (Пн) 22:04

А invalidaterect делал?

**A.A.Z.** » 11.10.2004 (Пн) 22:05

Нет, ща попробую...

**tyomitch** » 11.10.2004 (Пн) 22:10

Шпионом видно, что по SetWindowText заголовок действительно меняется.
Вместо InvalidateRect можно просто протащить другое окно над часами, чтобы увидеть, что это не поможет. Там рисуется не заголовок, а истинное время :-)

Придётся поднимать те исходники... :вздох:

**A.A.Z.** » 11.10.2004 (Пн) 22:11

2 GSerg
Не, не катит

**A.A.Z.** » 11.10.2004 (Пн) 22:13

tyomitch писал(а):Придётся поднимать те исходники... :вздох:

Какие?

**GSerg** » 11.10.2004 (Пн) 22:16

Виндовские, какие же ещё

А вот через setwindowpos размер часиков меняется... Правда, его контейнеру это совершенно пофигу

**A.A.Z.** » 11.10.2004 (Пн) 22:19

в хр - нет...

**GSerg** » 11.10.2004 (Пн) 22:19

А поскольку при изменении размера таскбара часики возвращаются на место...

Придётся тебе заниматься сабклассингом самого таксбара, с самого верха

И реагировать на всё

**GSerg** » 11.10.2004 (Пн) 22:20

В XP - да! Щас скрин приложу. И код

**tyomitch** » 11.10.2004 (Пн) 22:22

GSerg писал(а):Виндовские, какие же ещё

А вот через setwindowpos размер часиков меняется... Правда, его контейнеру это совершенно пофигу

Нашёл. Надо сабклассить часики на

Код: Выделить всё: #define WM_CALCMINSIZE (WM_USER + 100)

Параметров у сообщения нету, возвращается минимальный размер часов в виде POINTS (ширина в младшем слове, выстоа в старшем).

Как сабклассить чужой процесс на VB? :roll:

**GSerg** » 11.10.2004 (Пн) 22:23

Код: Выделить всё: Option Explicit Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const SWP_NOACTIVATE As Long = &H10 Private Const SWP_NOCOPYBITS As Long = &H100 Private Const SWP_NOMOVE As Long = &H2 Private Const SWP_NOOWNERZORDER As Long = &H200 Private Const SWP_NOREDRAW As Long = &H8 Private Const SWP_NOZORDER As Long = &H4 Private Const SWP_SHOWWINDOW As Long = &H40 Private Sub Command1_Click() SetWindowPos &H3003E, 0, 0, 0, 15, 10, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOOWNERZORDER Or SWP_NOZORDER End Sub

hWnd свой подставь

Тут я часики уменьшаю...

**GSerg** » 11.10.2004 (Пн) 22:24

А что, нельзя? Вроде всегда получалось :roll:

Конференция VBStreets

Как увеличить размер часов в трэе?

Как увеличить размер часов в трэе?

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