Главная страница
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.972 c
2-1271222434
d@nger
2010-04-14 09:20
2010.08.27
Хэндл MDI


4-1221129469
kalexi
2008-09-11 14:37
2010.08.27
Как загрузить BMP в массив?


9-1187856709
Woriors
2007-08-23 12:11
2010.08.27
Алгоритм змейки


3-1242275833
petvv
2009-05-14 08:37
2010.08.27
SQLConnection1+LoadParamsFromIniFile


15-1271534156
Игорь Шевченко
2010-04-17 23:55
2010.08.27
руки моделируют