Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

KOLMediaPlayer - OnNotify   Найти похожие ветки 

 
Jon ©   (2008-07-11 05:05) [0]

I cannot get OnNotify for KOLMediaPlayer to work.
Here is a basic example:

program KolTest;

uses
 KOL, KOLMediaPlayer;

type
 Ptest = ^Ttest;
 Ttest = object(TObj)
   Form: PControl;
   Clip: PMediaPlayer;
   procedure MouseDown(Sender: PControl; var Mouse: TMouseEventData);
   procedure Notify(Sender: PMediaPlayer; NotifyValue: TMPNotifyValue);
 end;

var
 Test: PTest;

procedure Ttest.Notify(Sender: PMediaPlayer; NotifyValue: TMPNotifyValue);
begin
 ShowMessage("Notify!"); // This event does not trigger
end;

procedure Ttest.MouseDown(Sender: PControl; var Mouse: TMouseEventData);
begin
 Clip.Free;
 Clip := NewMediaPlayer("c:\WINDOWS\clock.avi",Form.Handle);
 with Clip^ do
 begin
   Wait := False;
   DisplayRect := Form.ClientRect;
   OnNotify := Notify;
   Play(0,-1);
 end;
end;

begin
 New(Test,Create);
 Test.Form := NewForm(nil,"KOL Test").SetSize(320,240);
 Test.Form.OnMouseDown := Test.MouseDown;
 Run(Test.Form);
end.


I have also tried with PAS_VERSION defined too.
Can anyone confirm or make suggestions please.


 
Jon ©   (2008-07-11 16:12) [1]

I found a new version of KOLMediaPlayer - now it works!

Working version is 31/07/2005 - 74,592 bytes.

Sorry for any inconvenience.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.049 c
9-1185035010
Evgraf
2007-07-21 20:23
2010.08.27
Подскажите


15-1267560202
TUser
2010-03-02 23:03
2010.08.27
БАК: статус и ожидания


2-1273656185
Чапаев
2010-05-12 13:23
2010.08.27
Принудительная перерисовка формы


3-1237973641
zdm
2009-03-25 12:34
2010.08.27
Посмотреть членство в группах пользователя FireBird


15-1273125258
oxothuk
2010-05-06 09:54
2010.08.27
Точки останова