|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
TrackBar и хинт от OS
Для того чтобы при таскании ползунка TrackBar-а показывался хинт, нужно установить дополнительный флаг стиля окна - TBS_TOOLTIPS.
В Дельфи 2009 это уже реализовано, а в 7-ке ещё не было. Пытаюсь выставить этот флаг, но хинт не появляется, сравнивал исходные коды реализации TrackBar-ов, существенной разницы не нашёл. Может кто-нибудь сталкивался с этим. Код:
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(TrackBar1.Handle, GWL_STYLE, GetWindowLong(TrackBar1.Handle, GWL_STYLE) or TBS_TOOLTIPS); SendMessage(TrackBar1.Handle, TBM_SETTIPSIDE, TBTS_RIGHT, 0); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#2
|
||||
|
||||
Можно без всяких флагов хинт показать через Mouse.CursorPos, главное чтоб ShowHint у трекбара был в true
Код:
procedure TForm1.TrackBar1Change (Sender: TObject); begin TrackBar1.Hint:= IntToStr(TrackBar1.Position); Application.ActivateHint(Mouse.CursorPos); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 12.07.2013 в 19:07. |
#3
|
||||
|
||||
Можно, но это несколько не тот хинт что нужен. Нужен отдаваемый OS, стандартный используется по своему прямому назначению и не хочется их смешивать.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
||||
|
||||
А что ОС отдаёт, просветите пжлст - вот этого-то и не понял
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
То что ты предлагаешь, показать позицию курсора. Я так делал лет 10 назад, когда не знал о возможности OS, но то делалось на WinAPI.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
||||
|
||||
О, я понял в чём дело - нет объявления TBS_TOOLTIPS в Style TrackBar, надо немного подправить ComCtrls.pas, как я делал
в процедуре TTrackBar.CreateParams (строка 10030) дописал к Код:
Style := Style or OrientationStyle[FOrientation] or // Ignore tsAuto if more than MaxAutoTicks in the track bar range. // tsAuto is is ignored because the TRACKBAR_CLASS will paint, // as many tick marks as you ask for. Too many an it appears // the track bar has hung but it just painting very slowly. Since large // ranges can be accidentally entered in the object inpsector we just // have the control ignore them instead of hanging. TickStyles[FMax - FMin > MaxAutoTicks, FTickStyle] or ATickMarks[FTickMarks] or TBS_FIXEDLENGTH or TBS_ENABLESELRANGE or TBS_TOOLTIPS;//вот это Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
||||
|
||||
Я переопределил класс, смотри приведённый код выше, "генофонд" править не совсем правильно.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
||||
|
||||
А я "руками" подправил и оно работает. Проверил. (с генами согласен, но что тут поделать, лучше правануть :-)
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#9
|
||||
|
||||
Плюнул на SetWindowLong, перехватил CreateParams и изменил стиль класса в нём - так заработало.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#10
|
||||
|
||||
Alegun, эта хрень в винды, если мне не изменяет мой склероз, с "плюсом" пришла, видимо поэтому заглушка.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#11
|
||||
|
||||
Получается, что это глюк 7 Дельфи. Помимо TBS_TOOLTIPS у меня ещё изменялись стили TBS_ENABLESELRANGE и TBS_FIXEDLENGTH. Последние 2 нормально применялись, а 1 изменялся но не работал. Получилось только через перехват CreateParams.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#12
|
||||
|
||||
Конечно сейчас не так как раньше было (у меня это было в 97-98 году прошлого века, тогда не было красивого "плюса", и вообще нихрена в дельфях не работало, а в VFP работало - поэтому и рыл).
Сейчас нифига не мало ответов Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#13
|
||||
|
||||
"Балон" подключается элементарно, без использовании класса 1.5 десятка строк, а вот по TrackBar-у ничего найти не удалось (лень было перехватывать CreateParams а пришлось ).
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#14
|
||||
|
||||
Болон - он надстройка ИЕ, я не помню версии, но если ИЕ низкой версии - балона не будет - будет AV
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#15
|
||||
|
||||
Не будет, требуется Comctl32.dll Internet Explorer 5, а это добро у всех есть, в противном случае он просто не появится (балон).
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |