Вверх ↑
Этот топик читают: Гость
Ответов: 832
Рейтинг: 181
#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,[])
}

карма: 16

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

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

карма: 4

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

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

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

0
Ответов: 832
Рейтинг: 181
#110: 2025-02-05 18:03:16 ЛС | профиль | цитата
Нашёл интересный способ поместить форму своей программы между обоями рабочего стола и иконками, т. е. форма программы будет находиться под иконками рабочего стола.
Ни клавиатурой, ни мышкой после этого до формы не дотянутся. После остановки программы изображение форма останется на этом “слое”. Для того чтобы его убрать нужно перегрузить проводник(explorer.exe).
Не уверен, что этот способ будет работать на windows ниже 10.
На всякий случай сохраните все свои проекты и документы перед запуском.
В пример вставил обычный счётчик чтобы показать, что программа работает, находясь за иконками.
Таким образом можно делать виджеты рабочего стола.
https://forum.hiasm.com/getfile/39708
карма: 16

0
файлы: 1App Form Behind Desktop Icons in Windows.zip [1.2KB] [38]
Ответов: 22
Рейтинг: 7
#111: 2025-02-05 21:06:39 ЛС | профиль | цитата
Не работает
Windows 11 Pro B22621
Форма активна, но не видно.
карма: 0

0
Ответов: 832
Рейтинг: 181
#112: 2025-02-05 21:34:15 ЛС | профиль | цитата
Buns писал(а):
Не работает
Windows 11 Pro B22621
Форма активна, но не видно.

У меня Windows [Version 10.0.19045.4780]
Всё работает сколько бы ни запускал
https://disk.yandex.ru/i/aHTDCtPgVThOYg
карма: 16

0
Ответов: 338
Рейтинг: 28
#113: 2025-02-06 10:35:06 ЛС | профиль | цитата
Gunta писал(а):
Нашёл интересный способ поместить форму своей программы между обоями рабочего стола и иконками

Интересно
Можно сделать анимационные заставки или обои на рабочий стол У меня работает.

Редактировалось 1 раз(а), последний 2025-02-09 13:55:25
карма: 2
0
Ответов: 22
Рейтинг: 7
#114: 2025-02-07 01:10:56 ЛС | профиль | цитата
Gunta,

Запустилась один раз после перезагрузки
Подключено 2 монитора.
карма: 0

0
Ответов: 832
Рейтинг: 181
#115: 2025-02-07 06:51:47 ЛС | профиль | цитата
Buns писал(а):
Запустилась один раз после перезагрузки
Подключено 2 монитора.

У меня нет windows11 и второго монитора. Попробуй перед запуском перегружать Explorer. Схема тоже в архиве.
карма: 16

0
Ответов: 832
Рейтинг: 181
#116: 2025-02-10 08:16:58 ЛС | профиль | цитата
envoy_sky писал(а):
Можно сделать анимационные заставки или обои на рабочий стол

И не только. Можно рисовать непосредственно там.
Add(MainForm,10240866,196,154)
{
Position=1
Point(Handle)
link(onCreate,6065944:doFind,[])
}
Add(WinEnum,16639620,343,168)
{
VisibleOnly=1
Point(ClassName)
link(onFindWindow,14834785:doCompare,[])
link(onEndEnum,1772281:doCreate,[(382,181)(382,272)])
}
Add(FindWindow,6065944,245,168)
{
ClassName="Progman"
SkipParam=1
link(onFind,15487364:doSendMessage,[])
}
Add(SendMessage,15487364,294,168)
{
Point(Message)
link(onSend,16639620:doEnum,[])
link(Message,13074007:Value,[])
}
Add(Memory,13074007,315,112)
{
Default=Integer(1324)
}
Add(StrMask,14834785,441,168)
{
Mask="WorkerW"
link(onTrue,2382714:doValue,[])
link(Str,16639620:ClassName,[(447,159)(433,159)(433,208)(356,208)])
}
Add(Memory,2382714,497,175)
{
Point(Data)
link(Data,16639620:Handle,[(503,166)(489,166)(489,215)(349,215)])
}
Add(Img_FloodFill,4929651,497,252)
{
X=1
Y=1
DrawSource=1
Color=255
ColorBorder=65280
PatternStyle=0
Point(Pattern)
link(onDraw,6352366:In,[])
link(Bitmap,2382714:Value,[])
link(Pattern,9670037:Var3,[(517,237)])
}
Add(Bitmap,1772281,392,252)
{
HWidth=20
HHeight=20
FillColor=16777215
Point(doCreate)
Point(onCreate)
Point(FillColor)
link(onCreate,15605091:doDraw,[])
}
Add(Img_Point,15605091,448,252)
{
Size=2
Point(Color)
link(onDraw,4929651:doDraw,[])
link(Bitmap,9670037:Var2,[])
}
Add(GetDataEx,9670037,448,232)
{
Angle=3
link(Data,1772281:Bitmap,[(439,237)(439,292)(398,292)])
}
Add(LineBreak,11853633,147,175)
{
link(Out,10240866:doClose,[])
Primary=[6352366,392,77]
}


Редактировалось 1 раз(а), последний 2025-02-10 13:33:26
карма: 16

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