Стартовый пул

This commit is contained in:
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions

View File

@@ -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.

View File

@@ -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>

View 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

View 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.

View 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

File diff suppressed because it is too large Load Diff

View File

@@ -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

View File

@@ -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.

View File

@@ -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

View File

@@ -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.

View 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

View 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.