On Friday 08 April 2016 14:06:46 Fred van Stappen wrote:
> > In 2016-04-06 09:24:03 f6e88fce69a57f51e352726a4d69fc7891e8f410:
>
> Ooops, I did not see this.
>
> Thanks.
>
> > procedure tmainfo.changepos(const sender: TObject; var avalue: realty;
> > var accept: Boolean);
> > begin
> > uos_Seek(PlayerIndex1, InputIndex1, round(avalue * inputlength));
> > end;
>
> Excellent and perfect. It works ;-)
>
BTW, if you like to disable scrollbar updating in callback while moving
manually do:
"
procedure tmainfo.ShowPosition;
var
temptime: ttime;
ho, mi, se, ms: word;
begin
if (TrackBar1.Tag = 0) then
begin
if uos_InputPosition(PlayerIndex1, InputIndex1) > 0 then
begin
if (application.mousecapturewidget <> trackbar1) then begin <<<<---
TrackBar1.value := uos_InputPosition(PlayerIndex1, InputIndex1) /
inputlength;
end;
"
Martin
------------------------------------------------------------------------------
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
