aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/UVideo.pas23
-rw-r--r--Game/Code/Classes/UVisualizer.pas26
2 files changed, 23 insertions, 26 deletions
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index c2e42224..62351e2d 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -96,22 +96,21 @@ type
function find_stream_ids( const aFormatCtx : PAVFormatContext; Out aFirstVideoStream, aFirstAudioStream : integer ): boolean;
public
constructor create();
- function GetName: String;
+ function GetName: String;
+ procedure init();
- procedure init();
+ function Open( aFileName : string): boolean; // true if succeed
+ procedure Close;
- function Open( aFileName : string): boolean; // true if succeed
- procedure Close;
+ procedure Play;
+ procedure Pause;
+ procedure Stop;
- procedure Play;
- procedure Pause;
- procedure Stop;
+ procedure MoveTo(Time: real);
+ function getPosition: real;
- procedure MoveTo(Time: real);
- function getPosition: real;
-
- procedure GetFrame(Time: Extended); // WANT TO RENAME THESE TO BE MORE GENERIC
- procedure DrawGL(Screen: integer); // WANT TO RENAME THESE TO BE MORE GENERIC
+ procedure GetFrame(Time: Extended);
+ procedure DrawGL(Screen: integer);
end;
diff --git a/Game/Code/Classes/UVisualizer.pas b/Game/Code/Classes/UVisualizer.pas
index 0f2334ba..6fb5b7a7 100644
--- a/Game/Code/Classes/UVisualizer.pas
+++ b/Game/Code/Classes/UVisualizer.pas
@@ -63,22 +63,21 @@ type
procedure VisualizerTogglePause;
public
constructor create();
- function GetName: String;
+ procedure init();
+ function GetName: String;
- procedure init();
+ function Open( aFileName : string): boolean; // true if succeed
+ procedure Close;
- function Open( aFileName : string): boolean; // true if succeed
- procedure Close;
+ procedure Play;
+ procedure Pause;
+ procedure Stop;
- procedure Play;
- procedure Pause;
- procedure Stop;
+ procedure MoveTo(Time: real);
+ function getPosition: real;
- procedure MoveTo(Time: real);
- function getPosition: real;
-
- procedure GetFrame(Time: Extended); // WANT TO RENAME THESE TO BE MORE GENERIC
- procedure DrawGL(Screen: integer); // WANT TO RENAME THESE TO BE MORE GENERIC
+ procedure GetFrame(Time: Extended);
+ procedure DrawGL(Screen: integer);
end;
@@ -188,8 +187,7 @@ end;
procedure TVideoPlayback_ProjectM.VisualizerTogglePause;
begin
- if VisualizerPaused then VisualizerPaused:=False
- else VisualizerPaused:=True;
+ VisualizerPaused := not VisualizerPaused;
end;
procedure TVideoPlayback_ProjectM.GetFrame(Time: Extended);