#sha
Add(MainForm,12518453,315,161)
{
Left=80
Top=60
Width=401
Height=296
}
Add(InlineCode,1876531,70,168)
{
EventPoints=#6:onMenu|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|42:uses Windows, Messages, KOL, Share, Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|9: private|20: Old: TOnMessage;|63: function _OnMes(var Msg: TMsg; var Rslt: integer): Boolean;|8: public|22: onMenu: THi_Event;|36: constructor Create; reintroduce;|33: destructor Destroy; override;|4:end;|0:|14:implementation|0:|5:const|26: WM_TASKBAR_MENU = $0313;|30: WM_POPUP_MENU = WM_USER + 1;|3: |31:constructor THiAsmClass.Create;|5:begin|12: inherited;|26: old := Applet.OnMessage;|29: Applet.OnMessage := _OnMes;|4:end;|0:|31:destructor THiAsmClass.Destroy;|5:begin|26: if Assigned(Applet) then|28: Applet.OnMessage := old;|12: inherited;|4:end;|3: |28:function THiAsmClass._OnMes;|5:begin|17: Result := true;|21: case Msg.message of|69: WM_TASKBAR_MENU: PostMessage(Applet.Handle, WM_POPUP_MENU, 0, 0);|39: WM_POPUP_MENU: _hi_OnEvent(onMenu);|8: else|27: if Assigned(Old) then|32: Result := Old(Msg, Rslt)|10: else|24: Result := false;|6: end;|4:end;|0:|4:end.|
link(onMenu,8114576:doPopupHere,[])
}
Add(PopupMenu,8114576,175,161)
{
Menu=#9:Развенуть|8:Свернуть|1:-|5:Выход|
link(onClick,8355157:doEvent,[])
}
Add(IndexToChanel,8355157,231,161)
{
Count=4
link(onEvent1,12518453:doRestore,[(292,167)(292,174)])
link(onEvent2,12518453:doMinimize,[(279,174)(279,181)])
link(onEvent4,12518453:doClose,[])
}
Этот топик читают: Гость
Ответов: 184
Рейтинг: 4
|
|||
Своё меню по ЛКМ по кнопке программы на таскбаре (свернуть, развернуть и т.д.)
|
|||
карма: 1 |
| ||
Голосовали: | Астрамак |
Ответов: 3851
Рейтинг: 159
|
|||
HuKTO, хорошая штука, особенно с использованием PopupMenuEx. А нельзя ли придумать что-то, чтобы по событию в программе разворачивать BaloonToolTips (например) над кнопкой в панели задач?
|
|||
карма: 0 |
|
Ответов: 5227
Рейтинг: 587
|
|||
Андрей ну кто тебе не даёт в самом деле? возьми и придумай! или ты так легко можешь IC состряпать? Есть что добавить выкладывай, нет - так и не суди и не судим быдешь. Без обид тёска
![]() |
|||
карма: 4 |
|
Ответов: 3851
Рейтинг: 159
|
|||
масштабирование ячеек StatusBar при изменении размеров MainForm code_2098.txt
|
|||
карма: 0 |
| ||
файлы: 1 | code_2098.txt [2.8KB] [726] |
Ответов: 206
Рейтинг: 19
|
|||
карма: 0 |
| ||
файлы: 1 | code_8242.txt [2.9KB] [803] |
Ответов: 5227
Рейтинг: 587
|
|||
круто молодцы - только я давно самодельным StatusBar(ом) пользуюсь (только из за того что в нём цвет не изменить, ну и еще в него все что душе угодно можно затолкнуть), доделаю полный интерфейс выложу...
|
|||
карма: 4 |
|
Ответов: 3851
Рейтинг: 159
|
|||
Ghost_Russia, ну конечно, как же я забыл..
andrestudio писал(а): Андрей ну кто тебе не даёт в самом деле? возьми и придумай! или ты так легко можешь IC состряпать? Есть что добавить выкладывай, нет - так и не суди и не судим быдешь. Без обид тёска andrestudio писал(а): только я давно самодельным StatusBar(ом) пользуюсь ![]() |
|||
карма: 0 |
|
Ответов: 184
Рейтинг: 4
|
|||
Андрей., зачем над кнопкой? Можно ведь как все нормальные люди в уголке над часами.
|
|||
карма: 1 |
|
Разработчик
Ответов: 26100
Рейтинг: 2124
|
|||
Андрей. писал(а): прогрессы там всякие, светодиоды.. |
|||
карма: 22 |
|
Ответов: 3851
Рейтинг: 159
|
|||
HuKTO писал(а): Андрей., зачем над кнопкой? Можно ведь как все нормальные люди в уголке над часами.nesco писал(а): Андрей. писал(а)прогрессы там всякие, светодиоды..
Странно, а для кого я тогда LedLadder делал, только для себя, что ли? |
|||
карма: 0 |
|
Ответов: 3514
Рейтинг: 184
|
|||
А ещё есть и статус бар с прогрессом ;)
Автор тот же. |
|||
карма: 0 |
|
Разработчик
Ответов: 26100
Рейтинг: 2124
|
|||
А вот этюдный вариант кнопки с темой XP и картинкой на ней (Vanchila меня достал)
|
|||
карма: 22 |
|
Ответов: 5227
Рейтинг: 587
|
|||
nesco - а в StatusBar можно точку color добавить?
|
|||
карма: 4 |
|
Разработчик
Ответов: 26100
Рейтинг: 2124
|
|||
andrestudio писал(а): nesco - а в StatusBar можно точку color добавить?![]() |
|||
карма: 22 |
|
Ответов: 5227
Рейтинг: 587
|
|||
Потому что у MainForm есть, а так общего стиля нет в цвете...
|
|||
карма: 4 |
|