Стартовый пул
This commit is contained in:
@@ -0,0 +1,49 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlcPlayer;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm},
|
||||
FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm},
|
||||
SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm},
|
||||
SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm},
|
||||
VideoAdjustFormUnit in 'VideoAdjustFormUnit.pas' {VideoAdjustForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.Title := 'PasLibVlcPlayerDemo';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm);
|
||||
Application.CreateForm(TSelectOutputDeviceForm, SelectOutputDeviceForm);
|
||||
Application.CreateForm(TVideoAdjustForm, VideoAdjustForm);
|
||||
Application.Run;
|
||||
end.
|
@@ -0,0 +1,54 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0cc0787e-8cd7-4c7f-8614-4fc87cef6130}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlcPlayer.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlcPlayer.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlcPlayer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPasLibVlcPlayer.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="FullScreenFormUnit.pas">
|
||||
<Form>FullScreenForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SelectOutputDeviceFormUnit.pas">
|
||||
<Form>SelectOutputDeviceForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SetEqualizerPresetFormUnit.pas">
|
||||
<Form>SetEqualizerPresetForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="VideoAdjustFormUnit.pas">
|
||||
<Form>VideoAdjustForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
22
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm
Normal file
22
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm
Normal file
@@ -0,0 +1,22 @@
|
||||
object FullScreenForm: TFullScreenForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
BorderIcons = []
|
||||
BorderStyle = bsNone
|
||||
ClientHeight = 436
|
||||
ClientWidth = 639
|
||||
Color = clBlack
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FormStyle = fsStayOnTop
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
OnKeyPress = FormKeyPress
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
61
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas
Normal file
61
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas
Normal file
@@ -0,0 +1,61 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit FullScreenFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs;
|
||||
|
||||
type
|
||||
TFullScreenForm = class(TForm)
|
||||
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
FullScreenForm: TFullScreenForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TFullScreenForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
end.
|
510
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
510
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
@@ -0,0 +1,510 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 491
|
||||
Top = 194
|
||||
Width = 543
|
||||
Height = 575
|
||||
Caption = 'PasLibVlcPlayerDemo'
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 455
|
||||
Constraints.MinWidth = 435
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PopupMenu = PopupMenu
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnMouseDown = FormMouseDown
|
||||
OnResize = FormResize
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object PR: TPanel
|
||||
Left = 356
|
||||
Top = 0
|
||||
Width = 179
|
||||
Height = 548
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object PlayBtn: TButton
|
||||
Left = 8
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play'
|
||||
TabOrder = 0
|
||||
OnClick = PlayClick
|
||||
end
|
||||
object PauseBtn: TButton
|
||||
Left = 8
|
||||
Top = 41
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Pause'
|
||||
TabOrder = 1
|
||||
OnClick = PauseClick
|
||||
end
|
||||
object GetWidthBtn: TButton
|
||||
Left = 8
|
||||
Top = 99
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get width'
|
||||
TabOrder = 2
|
||||
OnClick = GetWidthClick
|
||||
end
|
||||
object GetHeightBtn: TButton
|
||||
Left = 8
|
||||
Top = 128
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get height'
|
||||
TabOrder = 3
|
||||
OnClick = GetHeightBtnClick
|
||||
end
|
||||
object GetStateBtn: TButton
|
||||
Left = 8
|
||||
Top = 157
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get state'
|
||||
TabOrder = 4
|
||||
OnClick = GetStateClick
|
||||
end
|
||||
object ResumeBtn: TButton
|
||||
Left = 8
|
||||
Top = 70
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Resume'
|
||||
TabOrder = 5
|
||||
OnClick = ResumeClick
|
||||
end
|
||||
object GetPosLenBtn: TButton
|
||||
Left = 8
|
||||
Top = 184
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get pos, len'
|
||||
TabOrder = 6
|
||||
OnClick = GetPosLenClick
|
||||
end
|
||||
object Scale10Btn: TButton
|
||||
Left = 8
|
||||
Top = 215
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Scale -10%'
|
||||
TabOrder = 7
|
||||
OnClick = Scale10Click
|
||||
end
|
||||
object ScaleFitBtn: TButton
|
||||
Left = 8
|
||||
Top = 244
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'ScaleFit'
|
||||
TabOrder = 8
|
||||
OnClick = ScaleFitClick
|
||||
end
|
||||
object SnapShotBtn: TButton
|
||||
Left = 8
|
||||
Top = 273
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'SnapShot'
|
||||
TabOrder = 9
|
||||
OnClick = SnapShotClick
|
||||
end
|
||||
object NextFrameBtn: TButton
|
||||
Left = 8
|
||||
Top = 304
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Next Frame'
|
||||
TabOrder = 10
|
||||
OnClick = NextFrameClick
|
||||
end
|
||||
object GetASpectRatioBtn: TButton
|
||||
Left = 96
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Aspect'
|
||||
TabOrder = 11
|
||||
OnClick = GetASpectRatioClick
|
||||
end
|
||||
object SetAsp11Btn: TButton
|
||||
Left = 96
|
||||
Top = 41
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set asp 1:1'
|
||||
TabOrder = 12
|
||||
OnClick = SetAsp11Click
|
||||
end
|
||||
object SetAsp43Btn: TButton
|
||||
Left = 96
|
||||
Top = 70
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set asp 4:3'
|
||||
TabOrder = 13
|
||||
OnClick = SetAsp43Click
|
||||
end
|
||||
object GetVolume: TButton
|
||||
Left = 96
|
||||
Top = 99
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Volume'
|
||||
TabOrder = 14
|
||||
OnClick = GetVolumeClick
|
||||
end
|
||||
object SetVolumeUp10: TButton
|
||||
Left = 96
|
||||
Top = 128
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Volume +10'
|
||||
TabOrder = 15
|
||||
OnClick = SetVolumeUp10Click
|
||||
end
|
||||
object SetVolumeDo10: TButton
|
||||
Left = 96
|
||||
Top = 157
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Volume -10'
|
||||
TabOrder = 16
|
||||
OnClick = SetVolumeDo10Click
|
||||
end
|
||||
object GetPlayRateBtn: TButton
|
||||
Left = 96
|
||||
Top = 186
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Play Rate'
|
||||
TabOrder = 17
|
||||
OnClick = GetPlayRateBtnClick
|
||||
end
|
||||
object SetPlayRate2xBtn: TButton
|
||||
Left = 96
|
||||
Top = 215
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Rate 2x'
|
||||
TabOrder = 18
|
||||
OnClick = SetPlayRate2xBtnClick
|
||||
end
|
||||
object SetPlayRateHalfBtn: TButton
|
||||
Left = 96
|
||||
Top = 244
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Rate 1/2'
|
||||
TabOrder = 19
|
||||
OnClick = SetPlayRateHalfBtnClick
|
||||
end
|
||||
object FullScreenYesBtn: TButton
|
||||
Left = 96
|
||||
Top = 273
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'FullScreen'
|
||||
TabOrder = 20
|
||||
OnClick = FullScreenYesBtnClick
|
||||
end
|
||||
object DeInterlaceBtn: TButton
|
||||
Left = 8
|
||||
Top = 335
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'DeInterlace'
|
||||
TabOrder = 21
|
||||
OnClick = DeInterlaceBtnClick
|
||||
end
|
||||
object GetAudioChannel: TButton
|
||||
Left = 96
|
||||
Top = 304
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Audio Ch'
|
||||
TabOrder = 22
|
||||
OnClick = GetAudioChannelClick
|
||||
end
|
||||
object SetAudioChannelLeft: TButton
|
||||
Left = 96
|
||||
Top = 335
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C L'
|
||||
TabOrder = 23
|
||||
OnClick = SetAudioChannelLeftClick
|
||||
end
|
||||
object SetAudioChannelRight: TButton
|
||||
Left = 96
|
||||
Top = 366
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C R'
|
||||
TabOrder = 24
|
||||
OnClick = SetAudioChannelRightClick
|
||||
end
|
||||
object SetAudioChannelStereo: TButton
|
||||
Left = 96
|
||||
Top = 397
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C S'
|
||||
TabOrder = 26
|
||||
OnClick = SetAudioChannelStereoClick
|
||||
end
|
||||
object GetAudioOutListBtn: TButton
|
||||
Left = 8
|
||||
Top = 366
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioOutList'
|
||||
TabOrder = 25
|
||||
OnClick = GetAudioOutListBtnClick
|
||||
end
|
||||
object GetAudioOutDevEnumBtn: TButton
|
||||
Left = 8
|
||||
Top = 397
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AOutDevEnum'
|
||||
TabOrder = 27
|
||||
OnClick = GetAudioOutDevEnumBtnClick
|
||||
end
|
||||
object SetEqualizerBtn: TButton
|
||||
Left = 96
|
||||
Top = 428
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Equalizer'
|
||||
TabOrder = 28
|
||||
OnClick = SetEqualizerBtnClick
|
||||
end
|
||||
object GetEqPreListBtn: TButton
|
||||
Left = 96
|
||||
Top = 459
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'EqalizerPreList'
|
||||
TabOrder = 29
|
||||
OnClick = GetEqPreListBtnClick
|
||||
end
|
||||
object ChAudioOut: TButton
|
||||
Left = 8
|
||||
Top = 428
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Ch Audio Out'
|
||||
TabOrder = 30
|
||||
OnClick = ChAudioOutClick
|
||||
end
|
||||
object GetAudioTrackListBtn: TButton
|
||||
Left = 8
|
||||
Top = 459
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioTrackList'
|
||||
TabOrder = 31
|
||||
OnClick = GetAudioTrackListBtnClick
|
||||
end
|
||||
object GetAudioFilterListBtn: TButton
|
||||
Left = 8
|
||||
Top = 490
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioFilterList'
|
||||
TabOrder = 32
|
||||
OnClick = GetAudioFilterListBtnClick
|
||||
end
|
||||
object GetVideoFilterListBtn: TButton
|
||||
Left = 96
|
||||
Top = 490
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'VideoFilterList'
|
||||
TabOrder = 33
|
||||
OnClick = GetVideoFilterListBtnClick
|
||||
end
|
||||
object VideoAdjustBtn: TButton
|
||||
Left = 8
|
||||
Top = 521
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Video Adjust'
|
||||
TabOrder = 34
|
||||
OnClick = VideoAdjustBtnClick
|
||||
end
|
||||
end
|
||||
object PL: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 356
|
||||
Height = 548
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object MrlLab: TLabel
|
||||
Left = 8
|
||||
Top = 4
|
||||
Width = 60
|
||||
Height = 13
|
||||
Caption = 'MRL to play:'
|
||||
FocusControl = MrlEdit
|
||||
end
|
||||
object MrlEdit: TEdit
|
||||
Left = 8
|
||||
Top = 20
|
||||
Width = 320
|
||||
Height = 21
|
||||
TabOrder = 0
|
||||
Text = '..\..\_testFiles\Maximize.mp4'
|
||||
end
|
||||
object PasLibVlcPlayer1: TPasLibVlcPlayer
|
||||
Left = 8
|
||||
Top = 45
|
||||
Height = 202
|
||||
OnClick = PasLibVlcPlayer1Click
|
||||
OnDblClick = PasLibVlcPlayer1DblClick
|
||||
OnMouseDown = PasLibVlcPlayer1MouseDown
|
||||
OnMouseMove = PasLibVlcPlayer1MouseMove
|
||||
OnMouseUp = PasLibVlcPlayer1MouseUp
|
||||
AudioOutput = aoWaveOut
|
||||
SnapShotFmt = 'png'
|
||||
OnMediaPlayerMediaChanged = PasLibVlcPlayer1MediaPlayerMediaChanged
|
||||
OnMediaPlayerNothingSpecial = PasLibVlcPlayer1MediaPlayerNothingSpecial
|
||||
OnMediaPlayerOpening = PasLibVlcPlayer1MediaPlayerOpening
|
||||
OnMediaPlayerBuffering = PasLibVlcPlayer1MediaPlayerBuffering
|
||||
OnMediaPlayerPlaying = PasLibVlcPlayer1MediaPlayerPlaying
|
||||
OnMediaPlayerPaused = PasLibVlcPlayer1MediaPlayerPaused
|
||||
OnMediaPlayerStopped = PasLibVlcPlayer1MediaPlayerStopped
|
||||
OnMediaPlayerForward = PasLibVlcPlayer1MediaPlayerForward
|
||||
OnMediaPlayerBackward = PasLibVlcPlayer1MediaPlayerBackward
|
||||
OnMediaPlayerEndReached = PasLibVlcPlayer1MediaPlayerEndReached
|
||||
OnMediaPlayerEncounteredError = PasLibVlcPlayer1MediaPlayerEncounteredError
|
||||
OnMediaPlayerTimeChanged = PasLibVlcPlayer1MediaPlayerTimeChanged
|
||||
OnMediaPlayerPositionChanged = PasLibVlcPlayer1MediaPlayerPositionChanged
|
||||
OnMediaPlayerSeekableChanged = PasLibVlcPlayer1MediaPlayerSeekableChanged
|
||||
OnMediaPlayerPausableChanged = PasLibVlcPlayer1MediaPlayerPausableChanged
|
||||
OnMediaPlayerTitleChanged = PasLibVlcPlayer1MediaPlayerTitleChanged
|
||||
OnMediaPlayerSnapshotTaken = PasLibVlcPlayer1MediaPlayerSnapshotTaken
|
||||
OnMediaPlayerLengthChanged = PasLibVlcPlayer1MediaPlayerLengthChanged
|
||||
OnMediaPlayerVideoOutChanged = PasLibVlcPlayer1MediaPlayerVideoOutChanged
|
||||
OnMediaPlayerScrambledChanged = PasLibVlcPlayer1MediaPlayerScrambledChanged
|
||||
OnMediaPlayerCorked = PasLibVlcPlayer1MediaPlayerCorked
|
||||
OnMediaPlayerUnCorked = PasLibVlcPlayer1MediaPlayerUnCorked
|
||||
OnMediaPlayerMuted = PasLibVlcPlayer1MediaPlayerMuted
|
||||
OnMediaPlayerUnMuted = PasLibVlcPlayer1MediaPlayerUnMuted
|
||||
OnMediaPlayerAudioVolumeChanged = PasLibVlcPlayer1MediaPlayerAudioVolumeChanged
|
||||
OnMediaPlayerEsAdded = PasLibVlcPlayer1MediaPlayerEsAdded
|
||||
OnMediaPlayerEsDeleted = PasLibVlcPlayer1MediaPlayerEsDeleted
|
||||
OnMediaPlayerEsSelected = PasLibVlcPlayer1MediaPlayerEsSelected
|
||||
OnMediaPlayerAudioDevice = PasLibVlcPlayer1MediaPlayerAudioDevice
|
||||
OnMediaPlayerChapterChanged = PasLibVlcPlayer1MediaPlayerChapterChanged
|
||||
OnRendererDiscoveredItemAdded = PasLibVlcPlayer1RendererDiscoveredItemAdded
|
||||
OnRendererDiscoveredItemDeleted = PasLibVlcPlayer1RendererDiscoveredItemDeleted
|
||||
end
|
||||
object ProgPanel: TPanel
|
||||
Left = 8
|
||||
Top = 252
|
||||
Width = 320
|
||||
Height = 46
|
||||
TabOrder = 2
|
||||
object ProgLabel1: TLabel
|
||||
Left = 1
|
||||
Top = 25
|
||||
Width = 44
|
||||
Height = 20
|
||||
Align = alLeft
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgLabel2: TLabel
|
||||
Left = 275
|
||||
Top = 25
|
||||
Width = 44
|
||||
Height = 20
|
||||
Align = alRight
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgBar: TTrackBar
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 318
|
||||
Height = 24
|
||||
Align = alTop
|
||||
TabOrder = 0
|
||||
ThumbLength = 15
|
||||
TickStyle = tsNone
|
||||
OnChange = ProgBarChange
|
||||
end
|
||||
end
|
||||
object LB: TListBox
|
||||
Left = 9
|
||||
Top = 309
|
||||
Width = 320
|
||||
Height = 176
|
||||
ItemHeight = 13
|
||||
PopupMenu = LbPopupMenu
|
||||
TabOrder = 3
|
||||
end
|
||||
object BtnSelect: TButton
|
||||
Left = 276
|
||||
Top = 21
|
||||
Width = 51
|
||||
Height = 19
|
||||
Caption = 'Select'
|
||||
TabOrder = 4
|
||||
OnClick = BtnSelectClick
|
||||
end
|
||||
end
|
||||
object PopupMenu: TPopupMenu
|
||||
Left = 16
|
||||
Top = 56
|
||||
object a1: TMenuItem
|
||||
Caption = 'a'
|
||||
end
|
||||
object b1: TMenuItem
|
||||
Caption = 'b'
|
||||
end
|
||||
object c1: TMenuItem
|
||||
Caption = 'c'
|
||||
end
|
||||
object d1: TMenuItem
|
||||
Caption = 'd'
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
DefaultExt = '*.*'
|
||||
Filter = 'All files|*.*'
|
||||
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
||||
Left = 288
|
||||
Top = 60
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
DefaultExt = '*.txt'
|
||||
FileName = 'PasLibVlcDemo.txt'
|
||||
Left = 20
|
||||
Top = 316
|
||||
end
|
||||
object LbPopupMenu: TPopupMenu
|
||||
Left = 56
|
||||
Top = 316
|
||||
object LbPmClear: TMenuItem
|
||||
Caption = 'Clear'
|
||||
OnClick = LbPmClearClick
|
||||
end
|
||||
object LnPmSaveAs: TMenuItem
|
||||
Caption = 'Save as'
|
||||
OnClick = LnPmSaveAsClick
|
||||
end
|
||||
end
|
||||
end
|
1040
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
1040
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,56 @@
|
||||
object SelectOutputDeviceForm: TSelectOutputDeviceForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Select output device'
|
||||
ClientHeight = 242
|
||||
ClientWidth = 395
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object OutputDevicesLabel: TLabel
|
||||
Left = 12
|
||||
Top = 8
|
||||
Width = 77
|
||||
Height = 13
|
||||
Caption = 'Output devices:'
|
||||
FocusControl = OutputDevicesLB
|
||||
end
|
||||
object OutputDevicesLB: TListBox
|
||||
Left = 12
|
||||
Top = 27
|
||||
Width = 285
|
||||
Height = 198
|
||||
Style = lbOwnerDrawFixed
|
||||
ItemHeight = 16
|
||||
TabOrder = 0
|
||||
OnDblClick = OutputDevicesLBDblClick
|
||||
OnDrawItem = OutputDevicesLBDrawItem
|
||||
end
|
||||
object OkBtn: TButton
|
||||
Left = 310
|
||||
Top = 28
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
OnClick = OkBtnClick
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 310
|
||||
Top = 59
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
@@ -0,0 +1,90 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit SelectOutputDeviceFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls;
|
||||
|
||||
type
|
||||
TSelectOutputDeviceForm = class(TForm)
|
||||
OutputDevicesLB: TListBox;
|
||||
OkBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
OutputDevicesLabel: TLabel;
|
||||
procedure OkBtnClick(Sender: TObject);
|
||||
procedure OutputDevicesLBDblClick(Sender: TObject);
|
||||
procedure OutputDevicesLBDrawItem(Control: TWinControl; Index: Integer;
|
||||
Rect: TRect; State: TOwnerDrawState);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
SelectOutputDeviceForm: TSelectOutputDeviceForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TSelectOutputDeviceForm.OkBtnClick(Sender: TObject);
|
||||
begin
|
||||
if (OutputDevicesLB.ItemIndex < 0) then
|
||||
begin
|
||||
ModalResult := mrCancel;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ModalResult := mrOK;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSelectOutputDeviceForm.OutputDevicesLBDblClick(Sender: TObject);
|
||||
begin
|
||||
if (OutputDevicesLB.ItemIndex > -1) then
|
||||
begin
|
||||
ModalResult := mrOK;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSelectOutputDeviceForm.OutputDevicesLBDrawItem(Control: TWinControl;
|
||||
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
||||
var
|
||||
str : string;
|
||||
begin
|
||||
with (Control as TListBox).Canvas do
|
||||
begin
|
||||
FillRect(Rect);
|
||||
str := (Control as TListBox).Items[Index];
|
||||
TextOut(Rect.Left + 2, Rect.Top + 1, Copy(str, Pos('|', str) + 1, MaxInt));
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
@@ -0,0 +1,71 @@
|
||||
object SetEqualizerPresetForm: TSetEqualizerPresetForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Set Equalizer Preset'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 470
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object PresetListLabel: TLabel
|
||||
Left = 16
|
||||
Top = 13
|
||||
Width = 40
|
||||
Height = 13
|
||||
Caption = 'Presets:'
|
||||
FocusControl = PresetListLB
|
||||
end
|
||||
object BandInfoLabel: TLabel
|
||||
Left = 140
|
||||
Top = 13
|
||||
Width = 83
|
||||
Height = 13
|
||||
Caption = 'Preset band info:'
|
||||
FocusControl = BandInfoLB
|
||||
end
|
||||
object PresetListLB: TListBox
|
||||
Left = 16
|
||||
Top = 32
|
||||
Width = 105
|
||||
Height = 245
|
||||
ItemHeight = 13
|
||||
TabOrder = 0
|
||||
OnClick = PresetListLBClick
|
||||
end
|
||||
object OkBtn: TButton
|
||||
Left = 380
|
||||
Top = 13
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 380
|
||||
Top = 44
|
||||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
object BandInfoLB: TListBox
|
||||
Left = 140
|
||||
Top = 32
|
||||
Width = 221
|
||||
Height = 245
|
||||
ItemHeight = 13
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
@@ -0,0 +1,85 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit SetEqualizerPresetFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, PasLibVlcClassUnit;
|
||||
|
||||
type
|
||||
TSetEqualizerPresetForm = class(TForm)
|
||||
PresetListLB: TListBox;
|
||||
OkBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
PresetListLabel: TLabel;
|
||||
BandInfoLB: TListBox;
|
||||
BandInfoLabel: TLabel;
|
||||
procedure PresetListLBClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
FVLC : TPasLibVlc;
|
||||
end;
|
||||
|
||||
var
|
||||
SetEqualizerPresetForm: TSetEqualizerPresetForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TSetEqualizerPresetForm.PresetListLBClick(Sender: TObject);
|
||||
var
|
||||
equalizer : TPasLibVlcEqualizer;
|
||||
index : Integer;
|
||||
begin
|
||||
BandInfoLB.Clear;
|
||||
if (PresetListLB.ItemIndex > -1) then
|
||||
begin
|
||||
equalizer := TPasLibVlcEqualizer.Create(
|
||||
FVLC,
|
||||
Word(PresetListLB.Items.Objects[PresetListLB.ItemIndex])
|
||||
);
|
||||
BandInfoLB.AddItem(
|
||||
'PreAmp: ' + IntToStr(Round(equalizer.GetPreAmp())),
|
||||
NIL
|
||||
);
|
||||
for index := 0 to equalizer.GetBandCount() - 1 do
|
||||
begin
|
||||
BandInfoLB.AddItem(
|
||||
'Band no: ' + IntToStr(index+1) +
|
||||
', freq.: ' + IntToStr(Round(equalizer.GetBandFrequency(index))) +
|
||||
'Hz, amp.:' + IntToStr(Round(equalizer.GetAmp(index))),
|
||||
NIL
|
||||
);
|
||||
end;
|
||||
equalizer.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
127
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.dfm
Normal file
127
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.dfm
Normal file
@@ -0,0 +1,127 @@
|
||||
object VideoAdjustForm: TVideoAdjustForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Video Adjust'
|
||||
ClientHeight = 509
|
||||
ClientWidth = 337
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object labVideoAdjustContrast: TLabel
|
||||
Left = 20
|
||||
Top = 52
|
||||
Width = 76
|
||||
Height = 13
|
||||
Caption = 'Adjust Contrast'
|
||||
FocusControl = tbVideoAdjustContrast
|
||||
end
|
||||
object labVideoAdjustBrightness: TLabel
|
||||
Left = 20
|
||||
Top = 140
|
||||
Width = 84
|
||||
Height = 13
|
||||
Caption = 'Adjust Brightness'
|
||||
FocusControl = tbVideoAdjustBrightness
|
||||
end
|
||||
object labVideoAdjustHue: TLabel
|
||||
Left = 20
|
||||
Top = 228
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'Adjust Hue'
|
||||
FocusControl = tbVideoAdjustHue
|
||||
end
|
||||
object labVideoAdjustSaturation: TLabel
|
||||
Left = 20
|
||||
Top = 316
|
||||
Width = 84
|
||||
Height = 13
|
||||
Caption = 'Adjust Saturation'
|
||||
FocusControl = tbVideoAdjustSaturation
|
||||
end
|
||||
object labVideoAdjustGamma: TLabel
|
||||
Left = 20
|
||||
Top = 408
|
||||
Width = 66
|
||||
Height = 13
|
||||
Caption = 'AdjustGamma'
|
||||
FocusControl = tbVideoAdjustGamma
|
||||
end
|
||||
object chkVideoAdjustEnable: TCheckBox
|
||||
Left = 20
|
||||
Top = 16
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Video Adjust Enable'
|
||||
TabOrder = 0
|
||||
OnClick = chkVideoAdjustEnableClick
|
||||
end
|
||||
object tbVideoAdjustContrast: TTrackBar
|
||||
Left = 20
|
||||
Top = 76
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 200
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 1
|
||||
OnChange = tbVideoAdjustContrastChange
|
||||
end
|
||||
object tbVideoAdjustBrightness: TTrackBar
|
||||
Left = 20
|
||||
Top = 164
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 200
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 2
|
||||
OnChange = tbVideoAdjustBrightnessChange
|
||||
end
|
||||
object tbVideoAdjustHue: TTrackBar
|
||||
Left = 20
|
||||
Top = 252
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 360
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
TabOrder = 3
|
||||
OnChange = tbVideoAdjustHueChange
|
||||
end
|
||||
object tbVideoAdjustSaturation: TTrackBar
|
||||
Left = 20
|
||||
Top = 340
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 300
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 4
|
||||
OnChange = tbVideoAdjustSaturationChange
|
||||
end
|
||||
object tbVideoAdjustGamma: TTrackBar
|
||||
Left = 20
|
||||
Top = 432
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 1000
|
||||
PageSize = 0
|
||||
Frequency = 50
|
||||
Position = 100
|
||||
TabOrder = 5
|
||||
OnChange = tbVideoAdjustGammaChange
|
||||
end
|
||||
end
|
160
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas
Normal file
160
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas
Normal file
@@ -0,0 +1,160 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit VideoAdjustFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls;
|
||||
|
||||
type
|
||||
TVideoAdjustForm = class(TForm)
|
||||
chkVideoAdjustEnable: TCheckBox;
|
||||
tbVideoAdjustContrast: TTrackBar;
|
||||
labVideoAdjustContrast: TLabel;
|
||||
tbVideoAdjustBrightness: TTrackBar;
|
||||
labVideoAdjustBrightness: TLabel;
|
||||
tbVideoAdjustHue: TTrackBar;
|
||||
labVideoAdjustHue: TLabel;
|
||||
tbVideoAdjustSaturation: TTrackBar;
|
||||
labVideoAdjustSaturation: TLabel;
|
||||
tbVideoAdjustGamma: TTrackBar;
|
||||
labVideoAdjustGamma: TLabel;
|
||||
procedure chkVideoAdjustEnableClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure tbVideoAdjustContrastChange(Sender: TObject);
|
||||
procedure tbVideoAdjustBrightnessChange(Sender: TObject);
|
||||
procedure tbVideoAdjustHueChange(Sender: TObject);
|
||||
procedure tbVideoAdjustSaturationChange(Sender: TObject);
|
||||
procedure tbVideoAdjustGammaChange(Sender: TObject);
|
||||
private
|
||||
FHandleChanges : Boolean;
|
||||
public
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
VideoAdjustForm: TVideoAdjustForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
MainFormUnit;
|
||||
|
||||
procedure TVideoAdjustForm.chkVideoAdjustEnableClick(Sender: TObject);
|
||||
begin
|
||||
MainForm.PasLibVlcPlayer1.SetVideoAdjustEnable(chkVideoAdjustEnable.Checked);
|
||||
|
||||
tbVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
FHandleChanges := FALSE;
|
||||
|
||||
// chkVideoAdjustEnable.Checked := MainForm.PasLibVlcPlayer1.GetVideoAdjustEnable();
|
||||
chkVideoAdjustEnableClick(SELF);
|
||||
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
tbVideoAdjustContrast.Position := Round(100 * GetVideoAdjustContrast());
|
||||
tbVideoAdjustBrightness.Position := Round(100 * GetVideoAdjustBrightness());
|
||||
tbVideoAdjustHue.Position := Round(GetVideoAdjustHue());
|
||||
tbVideoAdjustSaturation.Position := Round(100 * GetVideoAdjustSaturation());
|
||||
tbVideoAdjustGamma.Position := Round(100 * GetVideoAdjustGamma());
|
||||
end;
|
||||
|
||||
FHandleChanges := TRUE;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustBrightnessChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustBrightness(tbVideoAdjustBrightness.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustContrastChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustContrast(tbVideoAdjustContrast.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustGammaChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustGamma(tbVideoAdjustGamma.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustHueChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustHue(tbVideoAdjustHue.Position);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustSaturationChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustSaturation(tbVideoAdjustSaturation.Position);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
Reference in New Issue
Block a user