Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.07.2013, 17:02
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию 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;
WinSpy-ем проверил, флаг присутствует.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #2  
Старый 12.07.2013, 18:36
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Можно без всяких флагов хинт показать через 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  
Старый 12.07.2013, 22:21
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Можно, но это несколько не тот хинт что нужен. Нужен отдаваемый OS, стандартный используется по своему прямому назначению и не хочется их смешивать.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #4  
Старый 12.07.2013, 22:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А что ОС отдаёт, просветите пжлст - вот этого-то и не понял
Ответить с цитированием
  #5  
Старый 12.07.2013, 22:33
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

То что ты предлагаешь, показать позицию курсора. Я так делал лет 10 назад, когда не знал о возможности OS, но то делалось на WinAPI.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #6  
Старый 13.07.2013, 00:33
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

О, я понял в чём дело - нет объявления 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  
Старый 13.07.2013, 00:36
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Я переопределил класс, смотри приведённый код выше, "генофонд" править не совсем правильно.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #8  
Старый 13.07.2013, 00:37
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А я "руками" подправил и оно работает. Проверил. (с генами согласен, но что тут поделать, лучше правануть :-)
Ответить с цитированием
  #9  
Старый 13.07.2013, 01:01
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Плюнул на SetWindowLong, перехватил CreateParams и изменил стиль класса в нём - так заработало.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #10  
Старый 13.07.2013, 01:21
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Alegun, эта хрень в винды, если мне не изменяет мой склероз, с "плюсом" пришла, видимо поэтому заглушка.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #11  
Старый 13.07.2013, 01:26
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Получается, что это глюк 7 Дельфи. Помимо TBS_TOOLTIPS у меня ещё изменялись стили TBS_ENABLESELRANGE и TBS_FIXEDLENGTH. Последние 2 нормально применялись, а 1 изменялся но не работал. Получилось только через перехват CreateParams.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #12  
Старый 13.07.2013, 01:41
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Конечно сейчас не так как раньше было (у меня это было в 97-98 году прошлого века, тогда не было красивого "плюса", и вообще нихрена в дельфях не работало, а в VFP работало - поэтому и рыл).
Сейчас
нифига не мало ответов
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #13  
Старый 13.07.2013, 01:47
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

"Балон" подключается элементарно, без использовании класса 1.5 десятка строк, а вот по TrackBar-у ничего найти не удалось (лень было перехватывать CreateParams а пришлось ).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #14  
Старый 13.07.2013, 01:59
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Болон - он надстройка ИЕ, я не помню версии, но если ИЕ низкой версии - балона не будет - будет AV
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #15  
Старый 13.07.2013, 02:03
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Не будет, требуется Comctl32.dll Internet Explorer 5, а это добро у всех есть, в противном случае он просто не появится (балон).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter