paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 09:23:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed debug statements

Browse Source 
git-svn-id: trunk@22946 -
This commit is contained in:
michael 2012-11-07 13:51:57 +00:00
parent a3f7a7fdb4
commit 461ca6fa90
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/libvlc/src/vlc.pp
View File

@ -1146,7 +1146,6 @@ end;
procedure TCustomVLCMediaPlayer.HandleVLCEvent(e: Plibvlc_event_t); procedure TCustomVLCMediaPlayer.HandleVLCEvent(e: Plibvlc_event_t);
begin begin
Writeln('Enter : ',Ord(e^._type));
FECS.Enter; FECS.Enter;
try try
case libvlc_event_e(e^._type) of case libvlc_event_e(e^._type) of
@ -1162,40 +1161,33 @@ begin
libvlc_MediaPlayerEndReached : DoOnEOF; libvlc_MediaPlayerEndReached : DoOnEOF;
libvlc_MediaPlayerEncounteredError : DoOnError; libvlc_MediaPlayerEncounteredError : DoOnError;
libvlc_MediaPlayerTimeChanged : begin libvlc_MediaPlayerTimeChanged : begin
Writeln('A');
DoOnTimeChanged(e^.media_player_time_changed.new_time); DoOnTimeChanged(e^.media_player_time_changed.new_time);
end; end;
libvlc_MediaPlayerPositionChanged : begin libvlc_MediaPlayerPositionChanged : begin
Writeln('AA');
DoOnPositionChanged(e^.media_player_position_changed.new_position); DoOnPositionChanged(e^.media_player_position_changed.new_position);
end; end;
libvlc_MediaPlayerSeekableChanged : begin libvlc_MediaPlayerSeekableChanged : begin
Writeln('AAA');
DoOnSeekableChanged(e^.media_player_seekable_changed.new_seekable<>0); DoOnSeekableChanged(e^.media_player_seekable_changed.new_seekable<>0);
end; end;
libvlc_MediaPlayerPausableChanged : begin libvlc_MediaPlayerPausableChanged : begin
Writeln('AAAA');
DoOnPausableChanged(e^.media_player_pausable_changed.new_pausable<>0) ; DoOnPausableChanged(e^.media_player_pausable_changed.new_pausable<>0) ;
end; end;
libvlc_MediaPlayerTitleChanged : begin libvlc_MediaPlayerTitleChanged : begin
Writeln('AAAAA');
DoOnTitleChanged(e^.media_player_title_changed.new_title); DoOnTitleChanged(e^.media_player_title_changed.new_title);
end; end;
libvlc_MediaPlayerSnapshotTaken : begin libvlc_MediaPlayerSnapshotTaken : begin
Writeln('AAAAAA');
DoOnSnapShot(e^.media_player_snapshot_taken.psz_filename); DoOnSnapShot(e^.media_player_snapshot_taken.psz_filename);
end; end;
libvlc_MediaPlayerLengthChanged : begin libvlc_MediaPlayerLengthChanged : begin
Writeln('AAAAAAA');
DoOnLengthChanged(e^.media_player_length_changed.new_length); DoOnLengthChanged(e^.media_player_length_changed.new_length);
end; end;
else else
Writeln('Unknown event type ',e^._type); // Not sure what to do here.
// Writeln('Unknown event type ',e^._type);
end; end;
finally finally
FECS.Leave; FECS.Leave;
end; end;
Writeln('Leave');
end; end;
destructor TCustomVLCMediaPlayer.Destroy; destructor TCustomVLCMediaPlayer.Destroy;