Главная страница
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.117 c
2-1269859107
kulon
2010-03-29 14:38
2010.08.27
Отображение вещественных чисел в компанентах


15-1269176312
windaws
2010-03-21 15:58
2010.08.27
Развитие АИС, Delphi или PHP ?


15-1267521403
sniknik
2010-03-02 12:16
2010.08.27
Символ + и TIdURI.URLEncode, как правильно?


2-1268653223
tippa
2010-03-15 14:40
2010.08.27
одновременное обращение к процедуре


11-1216289923
BMouradov
2008-07-17 14:18
2010.08.27
потеря фокуса формы