Вверх ↑
Этот топик читают: Гость
Ответов: 787
Рейтинг: 168
#106: 2024-11-24 13:15:53 ЛС | профиль | цитата
Вывод своего текста рядом с часами (в нижнем правом углу)


Add(MainForm,2953706,154,91)
{
Width=193
Height=133
WinStyle=2
Caption="Свой текст около часов"
BorderStyle=4
}
Add(Registry,254920,420,126)
{
HKey=1
Key="Control Panel\International"
Value="sShortTime"
}
Add(FormatStr,8797018,364,133)
{
DataCount=1
Mask=""
Point(FString)
Point(doMask)
link(onFString,254920:doWrite,[])
link(Str1,9802079:Text,[])
}
Add(Button,3449498,154,140)
{
Top=30
Width=177
Height=64
Align=5
Caption="Добавить текст"
Point(doCaption)
Point(doEnabled)
link(onClick,8124074:doSwitch,[])
}
Add(Switch,8124074,238,140)
{
DataOn=String(H:mm '%1')
DataOff=String(H:mm)
Point(onOff)
Point(DataOn)
Point(doOn)
Point(onOn)
link(onSwitch,9253237:doEvent1,[])
link(onOff,7783774:doReset,[(305,153)(305,181)])
link(onOn,7783774:doOn,[(298,160)(298,188)])
}
Add(Switch,7783774,315,168)
{
DataOn=String(Удалить текст)
DataOff=String(Добавить текст)
Point(onOn)
Point(onOff)
Point(DataOn)
Point(doOn)
link(onSwitch,3449498:doCaption,[(354,174)(354,209)(144,209)(144,146)])
}
Add(Edit,9802079,364,84)
{
Width=177
Height=30
Align=2
Font=[MS Sans Serif,12,0,0,1]
Text="Hiasm"
Alignment=2
MaxLenField=10
ClearAfterEnter=1
Point(doColor)
link(onEnter,10868377:In,[])
}
Add(LineBreak,5907899,196,154)
{
link(Out,8124074:doOn,[])
Primary=[10868377,217,-63]
}
Add(Hub,9253237,329,140)
{
link(onEvent1,8797018:doMask,[])
link(onEvent2,8797018:doString,[(354,153)(354,139)])
}

Можно выводить, например: температуру, название своей программы, количество дней до нового года и т.д. и т.п.
После нажатия кнопки нужно подождать, когда часы обновятся (менее одной минуты).
Для нетерпеливых – перезапустите Explorer.

Add(MainForm,2953706,49,112)
{
link(onCreate,2173990:doExec,[])
}
Add(WinExec,2173990,98,126)
{
FileName="taskkill.exe"
Param="/f /im explorer.exe"
link(onExec,5787755:doDeferredEvent,[])
}
Add(WinExec,12283281,196,126)
{
FileName="C:\windows\explorer.exe"
link(onExec,2953706:doClose,[(235,132)(235,104)(39,104)(39,139)])
}
Add(DeferredEvent,5787755,147,126)
{
Delay=500
link(onDeferredEvent,12283281:doExec,[])
}

карма: 15

0
Ответов: 495
Рейтинг: 163
#107: 2024-11-25 15:52:01 ЛС | профиль | цитата
Gunta писал(а):
Вывод своего текста рядом с часами (в нижнем правом углу)

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

карма: 4

0
Ответов: 311
Рейтинг: 26
#108: 2024-11-25 16:45:33 ЛС | профиль | цитата
Я так понял с правой стороны от часов. Перенос строки присутствует или прокрутка?
карма: 2
0
Ответов: 787
Рейтинг: 168
#109: 2024-11-27 12:43:13 ЛС | профиль | цитата
tig-rrr писал(а):
еперь надпись рядом с часами не только в углу

Да уж. Неприятный бонус.
envoy_sky писал(а):
Я так понял с правой стороны от часов. Перенос строки присутствует или прокрутка?

Туда можно вставить 12–15 символов, зависит от версии windows.
Никаких переносов и прокруток вставить не получится
карма: 15

0
109
Сообщение
...
Прикрепленные файлы
(файлы не залиты)