Вверх ↑
Ответов: 2416
Рейтинг: 692
#1: 2025-05-14 09:46:06 ЛС | профиль | цитата
Aziz писал(а):
неприятный момент
Да действительно есть такое безобразие, видео скачет как ему вздумается. В Media.pas было задокументировано что при стартовой позиции -1 продолжит воспроизведение с того же места, что и использовалось в элементе. Переделал этот момент, обновил архив в первом посте (замен Media.pas обязательна).
Aziz, onResize лучше использовать того элемента на котором видео:
Add(Label,516766,245,196)
{
Left=70
Top=35
Width=335
Height=225
Align=5
AutoSize=1
Point(Handle)
Point(onResize)
link(onResize,1216677:doData,[(328,209)(328,345)(175,345)(175,293)])
}
Add(MainForm,13094838,392,259)
{
Width=507
Height=385
Color=-16777203
Point(onResize)
link(onCreate,1545626:doCreateRect,[])
}
Add(MediaPlayerEx,7794242,245,252)
{
Scale=2
Point(onError)
Point(doScale)
link(Handle,516766:Handle,[])
}
Add(Image,4167310,490,154)
{
Width=491
Height=346
Align=5
Color=15780518
Point(Handle)
Point(Width)
Point(Height)
}
Add(ODialog,6287391,189,252)
{
Filter="All Unknown Types|*.3gp;*.asf;*.avi;*.divx;*.flv;*.m1v;*.m2v;*.mkv;*.mov;*.mp4;*.mpe;*.mpeg;*.mpg;*.mpv;*.ogm;*.qt;*.ram;*.rm;*.rv;*.swf;*.vob;*.wm;*.wmv;*.aac;*.ac3;*.aif;*.aifc;*.aiff;*.ape;*.au;*.flac;*.it;*.kar;*.lxm;*.m4a;*.mid;*.midi;*.mka;*.mod;*.mp1;*.mp2;*.mp3;*.mpa;*.mpc;*.ogg;*.ra;*.rmi;*.s3m;*.snd;*.stm;*.wav;*.wv;*.wma;*.xm;*.bmp;*.jpeg;*.jpg|All Files|*.*"
Title=""
StartDir=""
FileName=""
link(onExecute,7794242:doOpen,[])
}
Add(Button,5485962,133,252)
{
Left=5
Top=280
Height=45
link(onClick,6287391:doExecute,[])
}
Add(RGN_Rect,1545626,504,273)
{
Point2=100
link(onCreateRect,5949742:doCreateRect,[])
link(Point2,152639:Point,[(517,245)(481,245)(481,352)(440,352)])
}
Add(RGN_Combine,3864493,616,273)
{
Mode=2
link(onCombine,7533673:doSetRegion,[])
link(Region1,1545626:Result,[(622,261)(656,261)(656,316)(510,316)])
}
Add(RGN_Rect,5949742,560,273)
{
Point1=3621480
Point2=9621480
link(onCreateRect,3864493:doCombine,[])
}
Add(RGN_SetToWindow,7533673,672,273)
{
link(Handle,4167310:Handle,[(678,201)(503,201)])
}
Add(PointXY,152639,434,308)
{
X=40
Y=40
link(X,4167310:Width,[(440,218)(510,218)])
link(Y,4167310:Height,[(447,234)(517,234)])
}
Add(DoData,1216677,189,287)
{
Data=Integer(2)
link(onEventData,7794242:doScale,[])
}

Aziz писал(а):
У лейбла какой-то особый статус в системе, тк это надпись и ее нельзя перекрывать?
Тут боюсь ошибиться, но скорее всего дело в том что с Image они братья, а вот форма для них мама (она и главнее).
Aziz писал(а):
А отключить подобное поведение компонента, сложно?
Могу только предположить что скорее всего да. Но в нашем Media.pas ничего такого нет. Это нужно будет добавлять. Если найдешь что это и как должно быть, то постараюсь добавить. Вот можешь тут поискать:
Команды мультимедиа
Начать поиск наверно с MCI_WINDOW стоит.
карма: 11

0
Редактировалось 1 раз(а), последний 2025-05-14 09:46:41