Текущий архив: 2006.12.31;
Скачать: CL | DM;
Вниз
TMHTrackBar - OnChange Найти похожие ветки
← →
BaryVetaL © (2006-03-17 12:04) [0]Кто пожет помочь: как к TMHTrackBar прикрутить событие OnChange?
Спасибо!
← →
ECM © (2006-03-17 12:14) [1]Оно уже есть! Поставьте в опциях проекта USE_PROP. Пересоберите его и пользуйтесь событием OnScroll.
Попозже я поправлю MHTrackBar так чтобы OnScroll работал и без USE_PROP.
← →
BaryVetaL © (2006-03-17 13:30) [2]Чего то не шибко получается. На всякий случай, скажу, что я имею ввиду использование в KOL без MCK (если ты имеешь ввиду использование в MCK).
← →
ECM © (2006-03-17 13:44) [3]Работает - работает ... :)
Я перед тем как отвечать всё проверил... (правда на MCK - но это здесь неважно). Скорее всего у Вас почему то при компиляции KOL.PAS не устанавливается $DEFINE USE_PROP. Проверьте... но можете и без USE_PROP. Только исправьте в KOLMHTrackBar.pas :function WndProcTrackbarParent(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
var
Trackbar: PMHTrackbar;
Bar: TScrollerBar;
begin
Result := FALSE;
if ((Msg.message = WM_HSCROLL) or (Msg.message = WM_VSCROLL)) and (Msg.lParam <> 0) then
begin
{$IFDEF USE_PROP}
Trackbar := Pointer(GetProp(Msg.lParam, ID_SELF));
{$ELSE}
Trackbar := Pointer( GetWindowLong( Msg.lParam, GWL_USERDATA ) );
{$ENDIF}
if Trackbar <> nil then
begin
if Assigned(Trackbar.OnScroll) then
begin
if Msg.message = WM_VSCROLL then
Bar := sbVertical
else
Bar := sbHorizontal;
Trackbar.OnScroll(Trackbar, Bar, LoWord(Msg.wParam), HiWord(Msg.wParam));
end;
end;
end;
end;
← →
BaryVetaL © (2006-03-17 14:49) [4]Нет все равно не работает...
← →
ECM © (2006-03-17 16:00) [5]Попробуйте тогда вот эту версию (ссылка временная)
http://www.kolnmck.ru/KOLMHTrackBar.zip
Если не заработет - надо смотреть Ваш код...
← →
Vladimir Kladov (2006-03-18 14:07) [6]Кстати, свой trackbar обновил - тоже была проблема с OnChange с новым способом хранения связки объекта с окном (USE_PROPS), теперь этот символ учтен. KOLCCtrls.zip (KOLTrackbar в Дополнениях)
← →
BaryVetaL © (2006-03-21 10:21) [7]Понял почему не мог попасть на OnChange, здесь его нет вовсе, есть OnScroll :-)
Страницы: 1 вся ветка
Текущий архив: 2006.12.31;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.054 c
