PHP DM Gate v0.9 » снова TrackBar <span class="vd">[Delphi, Windows]</span>

Robt (14.09.07 20:09) [20]

кароче эта хрень изза отладочной инфы :(
2 дня изза нее промудохался ....

и чо теперь ? без отладки работать ?

<Цитата>
Robt © (18.12.07 08:48) [21]

после установки последней версии кола 2.84
trackbar отказывается програмно становица "в фокусе" любыми способами
только если на него мышью нажать

возврат к 2.73 - все нормально

чтоли гдето чтото поменялось ?

<Цитата>
Jon © (18.12.07 11:56) [22]

You need to do the following:

TrackBar := NewTrackbar(....);
TrackBarTabstop := True;
TrackBar.Style := TrackBar.Style or WS_TABSTOP;

Work for me in all versions including current 2.85

<Цитата>
Robt © (19.12.07 08:30) [23]

да я не табуляцию имел в виду а Focused

<Цитата>
Dy1 (17.02.09 09:52) [24]

КОЛнМЦК 2.88, Д7
вылет при попытке прочитать trackbar.Position

<Цитата>
Dy1 (25.02.09 17:02) [25]

помогите пожалуйста

<Цитата>
Jon © (25.02.09 17:33) [26]

Use Position property - KOL only example shown:

program Trackbar;

uses KOL, KOLCCtrls;

procedure TrackbarChange(Dummy: Pointer; Sender: PTrackbar; Code: Integer);
begin
Applet.Caption := Int2Str(Sender.Position);
end;

begin
Applet := NewForm(nil,'Trackbar');
NewTrackbar(Applet,[],TOnScroll(MakeMethod(nil,@TrackbarChange))).ResizeParent;
Run(Applet);
end.

<Цитата>
Дмитрий К © (26.02.09 18:27) [27]

> Dy1 (25.02.09 17:02) [25]

Если не удастся победить ошибку, попробуй http://kolnmck.kolmck.net/files/components/controls/kolxitrackbar.7z Этот контрол не основан на системном трекбаре.

<Цитата>
Dy1 (28.02.09 13:04) [28]

Не удалось. Может ли xitrackbar выглядеть системным?

<Цитата>
~~имя~~ (28.02.09 22:34) [29]

Удалено модератором

<Цитата>
PeTRoViCH (23.03.09 19:03) [30]

У меня тоже не работает.
Как выяснилось, в модуле KOLCCtrls.pas в функции WndProcTrackbarParent
после Trackbar := Pointer(GetProp(Msg.lParam, ID_SELF));
имеем Trackbar=nil
Выяснять причину не стал из-за лени.
Проблему решил так:
(все изменения в юните KOLCCtrls.pas)

1. В функции NewTrackbar:
Перед AParent.AttachProc( WndProcTrackbarParent ); добавляем строку:
SetWindowLong(Result.Handle,GWL_USERDATA,Integer(@Result));

2. В функции WndProcTrackbarParent:
Строку Trackbar := Pointer(GetProp(Msg.lParam, ID_SELF)); заменяем на:
Trackbar := Pointer(GetWindowLong(Msg.lParam,GWL_USERDATA));

Удачи.

<Цитата>
~~имя~~ (27.03.09 13:14) [31]

Удалено модератором

<Цитата>
Dy1 (22.06.09 20:51) [32]

не помогло

<Цитата>