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

[A.A.Z.]

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

[GSerg]

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

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

[A.A.Z.]

Да

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

[GSerg]

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

[tyomitch]

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

[Amed]

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

[GSerg]

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

[Amed]

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

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

[A.A.Z.]

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

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

[Cyrax]

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

[tyomitch]

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

[A.A.Z.]

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

[A.A.Z.]

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

[A.A.Z.]

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

[GSerg]

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

[tyomitch]

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

[A.A.Z.]

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

[A.A.Z.]

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

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

[GSerg]

А invalidaterect делал?

[A.A.Z.]

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

[tyomitch]

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

[A.A.Z.]

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

[A.A.Z.]

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

Какие?

[GSerg]

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

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

[A.A.Z.]

в хр - нет...

[GSerg]

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

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

[GSerg]

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

[tyomitch]

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

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

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

Код: Выделить всё

#define WM_CALCMINSIZE  (WM_USER + 100)

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

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

[GSerg]

Код: Выделить всё

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]

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