Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c