![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Доброго времени суток!
Возникла необходимость использования компонента типа "Слайдер" - переключатель на два положения. Поискав в интернете, нашел нечто подобное, которое меня устраивает вполне на Stackoverflow https://stackoverflow.com/questions/...imilar-to-ipad. Нижеприведенный код, замечательно компилируется и работает в Delphi 7. Код:
Но мне нужно его использовать в Delphi XE7, но он выкидывает кучу ошибок и не работает. Просто не вижу смысла из-за одного компонента ставить целый pack от TMS, в котором подобный компонент присутствует, тем более что еще и pack этот Trial. Помогите пожалуйста переделать компонент для Delphi XE7, если Вам не трудно. Проект прикрепляю Slider_XE.7z. Исходник брал отсюда - https://svn.apada.nl/svn/NLDelphi-op...LDOnOffSwitch/ Заранее огромное спасибо! |
#2
|
|||
|
|||
![]() Ошибки какие?
Если не ошибаюсь, компилил ээтот компонент в D10 какой-то, все работалло. Только я его не ставил, создавал динамически. |
#3
|
||||
|
||||
![]() Была проблема с ThemeServices, которые в версиях Delphi XE идут как StyleServices, это я поправил, везде вроде бы
Код:
Теперь ругается на вот эту строку Код:
|
#4
|
|||
|
|||
![]() Ага, сигнатура метода, видимо, отличается. Нажми Ctrl+Space на имени метода, должна появиться подсказка. Там смотри типы параметров.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
LIONSMILE (22.12.2018)
|
#6
|
|||
|
|||
![]() Ну тут похоже порядок параметров другой.
В исходнике: Details, Canvas.Handle, PaintRect А библиотечная функция ожидает: Canvas.Handle, Details, PaintRect (еще там может быть четвертый - тот же PaintRect, если этот метод описан как procedure,а не как function. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
LIONSMILE (22.12.2018)
|
#7
|
||||
|
||||
![]() Оказывается все было куда проще, нужно было просто поменять классы, что я и сделал ранее, и просто пересоздать заново файл DPK. В итоге все получилось и работает.
ScreenXE7.png |