Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.064 c
4-1224075402
shurets
2008-10-15 16:56
2010.08.27
Создать профиль пользователя


4-1217672834
DeadMeat
2008-08-02 14:27
2010.08.27
Отключение скринсейвера


2-1272400279
rizhiy87
2010-04-28 00:31
2010.08.27
TWebBrowser и сеансы


4-1238491669
Lexi
2009-03-31 13:27
2010.08.27
GetWindowRect; Скриншот максимизированного окна


2-1269262492
Guz
2010-03-22 15:54
2010.08.27
Delphi 7, реестр.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский