HiAsm

Разработчик

Ответов: 4698

Рейтинг: 426

#1: 2009-07-30 19:20:50 ЛС | профиль | цитата

Думаю имеет смысл произвести изменения в компоненте скроллбар:
1. заменить

#pas
procedure THIScrollBar._work_doPosition;
begin
  si.nPos := ToInteger(_data); 
  Update;
end;

на

#pas
procedure THIScrollBar._work_doPosition;
begin
  si.nPos := ToInteger(_data); 
  Update;
  _hi_OnEvent(_event_onPosition,GetPos);
end;

так как это благоразумнее, поскольку во всех компонентах после do(изменить значение чего либо) идет on(изменение значения чего-либо).2. Вследствие п.1 надо изменить комментарий у точки onPosition на "Событие происходит при изменении значения позиции"

карма: 10

Мой сайт, Мои рассказы

Форумы Делаем компоненты ScrollBar