Sulphide
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Господа! Никто не пробовал побороть родной TTrackBar на предмет нормальной работы OnClick или OnMouseDown? Нужен родной компонент типа TMediaTrackBar (аудио-видео), соответственно в текущей реализации он полностью не пригоден для этих целей. Я в принципе сделал, OnMouseDown в родном TTrackBar (OnClick как мне кажется в данной реализации вообще не жизнеспособен...) и убрал эффект фокус (пунктирный прямоугольник вокруг компонента при фокусе) И так что было исправлено: В procedure TMediaTrackBarStyleHook.Paint(Canvas: TCanvas); убраны if Focused then Canvas.DrawFocusRect(Control.ClientRect); в published свойства добавлен property OnMouseDown; Повешен свой обработчик OnMouseDown... Что не устраивает - при клике мышкой сообщение OnChange прилетает 3 раза подряд... При нажатии клавиш курсора, например влево OnChange прилетает 2 раза подряд. ps я понимаю, что есть tms и прочая лабуда, которую сейчас приходится использовать, но хочется именно родной с поддержкой родных тем И второе (уж простите за нубизм)... есть вот такая интересная реализация OGL контекста на Delphi форме в том числе и FMX и в том числе сразу 4 контекста - https://github.com/LUXOPHIA/OpenGL_VCL В сами исходники вникать смысла нет - там уровень абстракции - просто Бог... Но там Frame без designtime компонента сразу же на форме имеет тип TGLViewer (вернее конечно наоборот там TGLViewer = class(TFrame)) - напрашивается вопрос, а чё так можно было?... И как это реализовано, если TGLViewer объявляется только в исходниках... Или тут без ручной правки *.dfm не обошлось? зы интересно тут обитают люди из BSS (BankSoftSystems)? Просто в курсе, что UI серверной части их банк-клиента написан на Delphi... А возможно и весь сервант. | Всего записей: 277 | Зарегистр. 20-03-2008 | Отправлено: 21:52 11-06-2018 | Исправлено: Sulphide, 22:21 11-06-2018 |
|