Форум: "KOL";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "KOL";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.058 c