Автор | Сообщение |
|
| |
Пост N: 4
Зарегистрирован: 20.04.07
|
|
Отправлено: 16.03.10 07:58. Заголовок: Не работает команда SET TOOLTIPBALLOON ON
Доброго времени суток. Не работает команда SET TOOLTIPBALLOON ON Думал, что только на моем компьютере, но после проверки на других - то-же самое. Я что-то упустил ? Или это ошибка ? Если команда включена: SET TOOLTIPBALLOON ON - то подсказки видны только в кнопках TOOLBAR, а во всех остальных контролах их вообще нет. Причем в TOOLBAR они обычные (как при SET TOOLTIPBALLOON OFF) Если команду отключить: SET TOOLTIPBALLOON OFF - то все подсказки видны во всех контролах. Демо-примеры SAMPLES\BASIC\Tooltip_Balloon\demo2.prg и SAMPLES\BASIC\Tooltip_Balloon\demo3.prg - то-же самое.
|
|
|
Ответов - 1
[только новые]
|
|
|
| moderator
|
Пост N: 18
Зарегистрирован: 11.02.10
|
|
Отправлено: 16.03.10 11:52. Заголовок: Andrey_IV пишет: Я ..
Andrey_IV пишет: Не забывай о том, что вывод всплывающих подсказок (balloon tooltip) может быть отключен в Винде через ключик в реестре (см. скрипт ниже) Скрытый текст Option Explicit On Error Resume Next Dim WSHShell, n, p, itemtype, MyBox Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips" itemtype = "REG_DWORD" n = WSHShell.RegRead (p) errnum = Err.Number if errnum <> 1 then WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then WshShell.RegWrite p, 1, itemtype MyBox = MsgBox("Balloon Tips are now ENABLED", 64, "Show or Hide Balloon Tips") End If If n = 1 Then WshShell.Regwrite p, 0, itemtype MyBox = MsgBox("Balloon Tips are now DISABLED", 64, "Show or Hide Balloon Tips") End If Set WshShell = Nothing
|
|
|
|